Index: openacs-4/packages/invoices/lib/projects-billable.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/lib/projects-billable.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/invoices/lib/projects-billable.tcl 13 Oct 2005 17:11:54 -0000 1.2 +++ openacs-4/packages/invoices/lib/projects-billable.tcl 14 Oct 2005 06:25:03 -0000 1.3 @@ -1,5 +1,5 @@ set required_param_list [list organization_id] -set optional_param_list [list orderby elements base_url package_id] +set optional_param_list [list orderby elements base_url package_id no_actions_p] set optional_unset_list [list] foreach required_param $required_param_list { @@ -26,6 +26,10 @@ append row_list "$element {}\n" } +if {[empty_string_p $no_actions_p]} { + set no_actions_p 0 +} + if {![exists_and_not_null format]} { set format "normal" } @@ -54,7 +58,13 @@ set currency [iv::price_list::get_currency -organization_id $organization_id] set contacts_url [apm_package_url_from_key contacts] -set actions [list "[_ invoices.iv_invoice_New]" "${base_url}invoice-ae" "[_ invoices.iv_invoice_New2]" ] +if {$no_actions_p} { + set actions "" + set bulk_id_list "" +} else { + set actions [list "[_ invoices.iv_invoice_New]" "${base_url}invoice-ae" "[_ invoices.iv_invoice_New2]" ] + set bulk_id_list [list organization_id] +} template::list::create \ -name projects \ @@ -91,7 +101,7 @@ label {[_ invoices.iv_invoice_closed_date]} } } -bulk_actions $actions \ - -bulk_action_export_vars {organization_id} \ + -bulk_action_export_vars $bulk_id_list \ -sub_class narrow \ -orderby { default_value project_id