big update for customer self-service: add provisioning/unprovisioning of purchased...

[freeside.git] / fs_selfservice / FS-SelfService / cgi / make_payment.html
diff --git a/fs_selfservice/FS-SelfService/cgi/make_payment.html b/fs_selfservice/FS-SelfService/cgi/make_payment.html

index a1cda6d..3522c08 100644 (file)
--- a/fs_selfservice/FS-SelfService/cgi/make_payment.html
+++ b/fs_selfservice/FS-SelfService/cgi/make_payment.html
@@ -1,10 +1,9 @@
  <HTML><HEAD><TITLE>MyAccount</TITLE></HEAD>
  <BODY BGCOLOR="#eeeeee"><FONT SIZE=5>MyAccount</FONT><BR><BR>
  <%= $url = "$selfurl?session=$session_id;action="; ''; %>
-<TABLE BORDER=0 CELLPADDING=4><TR><TD VALIGN="top" HEIGHT=384 BGCOLOR="#dddddd">
-<A HREF="<%= $url %>myaccount">MyAccount</A><BR>
-<!-- <A HREF="<%= $url %>other">SomethingElse</A><BR> -->
-</TD><TD VALIGN="top">
+<TABLE BORDER=0 CELLPADDING=4><TR>
+<%= include('myaccount_menu') %>
+<TD VALIGN="top">
  <FONT SIZE=4>Make a payment</FONT><BR><BR>
  <FORM NAME="OneTrueForm" METHOD="POST" ACTION="<%=$selfurl%>" onSubmit="document.OneTrueForm.process.disabled=true">
  <INPUT TYPE="hidden" NAME="session" VALUE="<%=$session_id%>">
@@ -45,16 +44,16 @@
          <TD>Exp.</TD>
          <TD>
            <SELECT NAME="month">
-            <%= for ( ( map "0$_", 1 .. 9 ), 11, 12 ) {
-                  $OUT .= '<OPTION'. ($_ eq $month ? ' SELECTED' : ''). ">$_\n";
+            <%= for ( ( map "0$_", 1 .. 9 ), 10 .. 12 ) {
+                  $OUT .= '<OPTION'. ($_ == $month ? ' SELECTED' : ''). ">$_\n";
              } %>
            </SELECT>
          </TD>
          <TD> / </TD>
          <TD>
            <SELECT NAME="year">
-            <%= for ( 2003 .. 2012 ) {
-                  $OUT .= '<OPTION'. ($_ eq $year ? ' SELECTED' : ''). ">$_\n";
+            <%= my @a = localtime; for ( $a[5]+1900 .. $a[5]+1915 ) {
+                  $OUT .= '<OPTION'. ($_ == $year ? ' SELECTED' : ''). ">$_\n";
              } %>
            </SELECT>
          </TD>