Skip to content

I
intranet-exchange-rate
Commit e15352bd authored by Frank Bergmann's avatar Frank Bergmann
Browse files
Options

- Updated exchange rate interval

parent cb0cb05a
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
www/index.tcl
View file @ e15352bd
...@@ -40,7 +40,7 @@ if {"" == $year} { ...@@ -40,7 +40,7 @@ if {"" == $year} {
# ------------------------------------------------------------------ # ------------------------------------------------------------------
set supported_currencies [im_supported_currencies] set supported_currencies [im_supported_currencies]
set missing_text "<strong>No packages match criteria.</strong>" set missing_text "<strong><nobr>No Exchange Rates match criteria.</nobr></strong>"
set use_watches_p [expr ! [im_parameter -package_id [ad_acs_kernel_id] PerformanceModeP request-processor 1]] set use_watches_p [expr ! [im_parameter -package_id [ad_acs_kernel_id] PerformanceModeP request-processor 1]]
set return_url "[ad_conn url]?[ad_conn query]" set return_url "[ad_conn url]?[ad_conn query]"
...@@ -72,7 +72,7 @@ set action_url "/intranet-exchange-rate/index" ...@@ -72,7 +72,7 @@ set action_url "/intranet-exchange-rate/index"
set form_mode "edit" set form_mode "edit"
set year_options [list] set year_options [list]
for {set i 1999} {$i <= 2022} {incr i} { lappend year_options [list $i $i] } for {set i 2010} {$i <= 2025} {incr i} { lappend year_options [list $i $i] }
ad_form \ ad_form \
-name $form_id \ -name $form_id \
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment