diff options
| author | ivan <ivan> | 2003-08-08 02:02:41 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2003-08-08 02:02:41 +0000 |
| commit | ef7bb336cc67f127fb1d77532ad3da1369c0ae36 (patch) | |
| tree | c2497e7638806744c54097d2ecd017d4423dfd2e /httemplate/graph/money_time.cgi | |
| parent | 69ecd0e15d3de36b56ad133d5ae57dcddc53c63e (diff) | |
- fix Mason profiling to pass-through images (for graph/)
- fix graph/money-time.cgi use of $m interfering with Mason
- fix graph/money-time-graph.cgi to set content-type in a Mason/ASP-independant
fashion
- (beginning of) includes!
- (beginning of) moving SQL search to including generic elements/search.html
- fix global.asa typo
- fix masonize to not prepend an extraneous blank line (breaking
graph/money-time-graph.cgi)
Diffstat (limited to 'httemplate/graph/money_time.cgi')
| -rw-r--r-- | httemplate/graph/money_time.cgi | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/httemplate/graph/money_time.cgi b/httemplate/graph/money_time.cgi index e24157ccb..de8f6ee0c 100644 --- a/httemplate/graph/money_time.cgi +++ b/httemplate/graph/money_time.cgi @@ -1,4 +1,4 @@ -<!-- mason kludge %> +<!-- mason kludge --> <% #my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); @@ -32,9 +32,9 @@ my $emonth = $cgi->param('emonth') || $curmon+1; Cashflow (payments - refunds)<BR> <BR> From <SELECT NAME="smonth"> -<% my @m = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec); - foreach my $m ( 1..12 ) { %> -<OPTION VALUE="<%= $m %>"<%= $m == $smonth ? ' SELECTED' : '' %>><%= $m[$m-1] %> +<% my @mon = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec); %> +<% foreach my $mon ( 1..12 ) { %> +<OPTION VALUE="<%= $mon %>"<%= $mon == $smonth ? ' SELECTED' : '' %>><%= $mon[$mon-1] %> <% } %> </SELECT> <SELECT NAME="syear"> @@ -43,8 +43,8 @@ From <SELECT NAME="smonth"> <% } %> </SELECT> to <SELECT NAME="emonth"> -<% foreach my $m ( 1..12 ) { %> -<OPTION VALUE="<%= $m %>"<%= $m == $emonth ? ' SELECTED' : '' %>><%= $m[$m-1] %> +<% foreach my $mon ( 1..12 ) { %> +<OPTION VALUE="<%= $mon %>"<%= $mon == $emonth ? ' SELECTED' : '' %>><%= $mon[$mon-1] %> <% } %> </SELECT> <SELECT NAME="eyear"> |