- replace ad_parameter by im_parameter for OpenACS

www/invoices/new-3.tcl

@@ -186,14 +186,14 @@ set default_vat 0
 set default_tax 0
 set default_payment_method_id ""
 set default_template_id ""
-set default_payment_days [ad_parameter -package_id [im_package_cost_id] "DefaultCompanyInvoicePaymentDays" "" 30] 
+set default_payment_days [im_parameter -package_id [im_package_cost_id] "DefaultCompanyInvoicePaymentDays" "" 30] 
 
 # Should we show a "Material" field for invoice lines?
-set material_enabled_p [ad_parameter -package_id [im_package_invoices_id] "ShowInvoiceItemMaterialFieldP" "" 0]
-set project_type_enabled_p [ad_parameter -package_id [im_package_invoices_id] "ShowInvoiceItemProjectTypeFieldP" "" 1]
+set material_enabled_p [im_parameter -package_id [im_package_invoices_id] "ShowInvoiceItemMaterialFieldP" "" 0]
+set project_type_enabled_p [im_parameter -package_id [im_package_invoices_id] "ShowInvoiceItemProjectTypeFieldP" "" 1]
 
 # Should we show the "Tax" field?
-set tax_enabled_p [ad_parameter -package_id [im_package_invoices_id] "EnabledInvoiceTaxFieldP" "" 1]
+set tax_enabled_p [im_parameter -package_id [im_package_invoices_id] "EnabledInvoiceTaxFieldP" "" 1]
 
 if {[info exists customer_id]} {
     db_0or1row customer_info "

www/invoices/new.tcl

@@ -83,7 +83,7 @@ set subproject_types [list "t" "[_ intranet-timesheet2-invoices.Yes]" "f" "[_ in
 set page_title "[_ intranet-timesheet2-invoices.Invoices]"
 set context_bar [im_context_bar $page_title]
 set page_focus "im_header_form.keywords"
-set default_currency [ad_parameter -package_id [im_package_cost_id] "DefaultCurrency" "" "EUR"]
+set default_currency [im_parameter -package_id [im_package_cost_id] "DefaultCurrency" "" "EUR"]
 
 set filter_company_id $company_id
 
@@ -107,7 +107,7 @@ if {"" == $target_cost_type_id} {
 }
 
 if { [empty_string_p $how_many] || $how_many < 1 } {
-    set how_many [ad_parameter -package_id [im_package_core_id] NumberResultsPerPage "" 100]
+    set how_many [im_parameter -package_id [im_package_core_id] NumberResultsPerPage "" 100]
 }
 set end_idx [expr $start_idx + $how_many - 1]
 

www/price-lists/new.tcl

@@ -40,7 +40,7 @@ if {!$write || ![im_permission $user_id add_finance]} {
 }
 
 if {"" == $currency} {
-    set currency [ad_parameter -package_id [im_package_cost_id] "DefaultCurrency" "" "EUR"]
+    set currency [im_parameter -package_id [im_package_cost_id] "DefaultCurrency" "" "EUR"]
 }
 
 # ------------------------------------------------------------------

www/price-lists/upload-prices-2.tcl

@@ -22,7 +22,7 @@ set context_bar [im_context_bar [list "/intranet/cusomers/" "<#_ Clients#>"] "<#
 
 # Get the file from the user.
 # number_of_bytes is the upper-limit
-set max_n_bytes [ad_parameter -package_id [im_package_filestorage_id] MaxNumberOfBytes "" 0]
+set max_n_bytes [im_parameter -package_id [im_package_filestorage_id] MaxNumberOfBytes "" 0]
 set tmp_filename [ns_queryget upload_file.tmpfile]
 im_security_alert_check_tmpnam -location "upload-prices-2.tcl" -value $tmp_filename
 if { $max_n_bytes && ([file size $tmp_filename] > $max_n_bytes) } {