httemplate/graph/money_time.cgi

   1 <HTML>
   2   <HEAD>
   3     <TITLE>Graphing monetary values over time</TITLE>
   4   </HEAD>
   5 <BODY BGCOLOR="#e8e8e8">
   6 <IMG SRC="money_time-graph.cgi" WIDTH="768" HEIGHT="480">
   7 <BR>
   8 <FORM METHOD="POST">
   9 <INPUT TYPE="checkbox" NAME="ar">
  10   Accounts receivable (invoices - applied credits)<BR>
  11 <INPUT TYPE="checkbox" NAME="charged">
  12   Just Invoices<BR>
  13 <INPUT TYPE="checkbox" NAME="defer">
  14   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>
  15 <INPUT TYPE="checkbox" NAME="cash">
  16   Cashflow (payments - refunds)<BR>
  17 <BR>
  18 From <SELECT NAME="smonth">
  19 <% my @m = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
  20    foreach my $m ( 1..12 ) { %>
  21 <OPTION VALUE="<%= $m %>"><%= $m[$m-1] %>
  22 <% } %>
  23 </SELECT>
  24 <SELECT NAME="syear">
  25 <% foreach my $y ( 1999 .. 2010 ) { %>
  26 <OPTION VALUE="<%= $y %>"><%= $y %>
  27 <% } %>
  28 </SELECT>
  29  to <SELECT NAME="emonth">
  30 <% foreach my $m ( 1..12 ) { %>
  31 <OPTION VALUE="<%= $m %>"><%= $m[$m-1] %>
  32 <% } %>
  33 </SELECT>
  34 <SELECT NAME="eyear">
  35 <% foreach my $y ( 1999 .. 2010 ) { %>
  36 <OPTION VALUE="<%= $y %>"><%= $y %>
  37 <% } %>
  38 </SELECT>
  39
  40 <INPUT TYPE="submit" VALUE="Graph">
  41 </FORM>
  42 </BODY>
  43 </HTML>