httemplate/graph/money_time.cgi

   1 <!-- mason kludge %>
   2 <%
   3
   4 #my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
   5 my ($curmon,$curyear) = (localtime(time))[4,5];
   6
   7 #find first month
   8 my $syear = $cgi->param('syear') || 1899+$curyear;
   9 my $smonth = $cgi->param('smonth') || $curmon+1;
  10
  11 #find last month
  12 my $eyear = $cgi->param('eyear') || 1900+$curyear;
  13 my $emonth = $cgi->param('emonth') || $curmon+1;
  14
  15 %>
  16
  17 <HTML>
  18   <HEAD>
  19     <TITLE>Graphing monetary values over time</TITLE>
  20   </HEAD>
  21 <BODY BGCOLOR="#e8e8e8">
  22 <IMG SRC="money_time-graph.cgi?<%= $cgi->query_string %>" WIDTH="768" HEIGHT="480">
  23 <BR>
  24 <FORM METHOD="POST">
  25 <INPUT TYPE="checkbox" NAME="ar">
  26   Accounts receivable (invoices - applied credits)<BR>
  27 <INPUT TYPE="checkbox" NAME="charged">
  28   Just Invoices<BR>
  29 <INPUT TYPE="checkbox" NAME="defer">
  30   Accounts receivable, with deferred revenue (invoices - applied credits, with charges for annual/semi-annual/quarterly/etc. services deferred over applicable time period) (there has got to be a shorter description for this)<BR>
  31 <INPUT TYPE="checkbox" NAME="cash">
  32   Cashflow (payments - refunds)<BR>
  33 <BR>
  34 From <SELECT NAME="smonth">
  35 <% my @m = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
  36    foreach my $m ( 1..12 ) { %>
  37 <OPTION VALUE="<%= $m %>"<%= $m == $smonth ? ' SELECTED' : '' %>><%= $m[$m-1] %>
  38 <% } %>
  39 </SELECT>
  40 <SELECT NAME="syear">
  41 <% foreach my $y ( 1999 .. 2010 ) { %>
  42 <OPTION VALUE="<%= $y %>"<%= $y == $syear ? ' SELECTED' : '' %>><%= $y %>
  43 <% } %>
  44 </SELECT>
  45  to <SELECT NAME="emonth">
  46 <% foreach my $m ( 1..12 ) { %>
  47 <OPTION VALUE="<%= $m %>"<%= $m == $emonth ? ' SELECTED' : '' %>><%= $m[$m-1] %>
  48 <% } %>
  49 </SELECT>
  50 <SELECT NAME="eyear">
  51 <% foreach my $y ( 1999 .. 2010 ) { %>
  52 <OPTION VALUE="<%= $y %>"<%= $y == $eyear ? ' SELECTED' : '' %>><%= $y %>
  53 <% } %>
  54 </SELECT>
  55
  56 <INPUT TYPE="submit" VALUE="Graph">
  57 </FORM>
  58 </BODY>
  59 </HTML>