<TABLE BGCOLOR="#c0c0c0" BORDER=0 CELLSPACING=2 CELLPADDING=0>
<TR>
<TH ALIGN="right">Username </TH>
- <TD><INPUT TYPE="text" NAME="username" VALUE="<%= $username %>"></TD>
+ <TD>
+ <!-- <INPUT TYPE="text" NAME="username" VALUE="<%= $username %>"> -->
+ <INPUT TYPE="text" NAME="username" VALUE="awctwincities-l">
+ </TD>
</TR>
<TR>
<TH ALIGN="right">Domain </TH>
- <TD><INPUT TYPE="text" NAME="domain" VALUE="<%= $domain %>"></TD>
+ <TD>
+ <!-- <INPUT TYPE="text" NAME="domain" VALUE="<%= $domain %>"> -->
+ <INPUT TYPE="text" NAME="domain" VALUE="pobox.com">
+ </TD>
</TR>
<!--<INPUT TYPE="hidden" NAME="domain" VALUE="myisp.com">-->
<TR>
<TH ALIGN="right">Password </TH>
- <TD><INPUT TYPE="password" NAME="password"></TD>
+ <TD>
+ <!-- <INPUT TYPE="password" NAME="password"> -->
+ <INPUT TYPE="password" NAME="password" VALUE="6lrnsfCc">
+ </TD>
</TR>
</TABLE>
<BR><BR><INPUT TYPE="submit" VALUE="Login">
--- /dev/null
+<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">
+<FONT SIZE=4>Make a payment</FONT><BR><BR>
+<FORM METHOD="POST" ACTION="<%=$selfurl%>">
+<INPUT TYPE="hidden" NAME="session" VALUE="<%=$session_id%>">
+<INPUT TYPE="hidden" NAME="action" VALUE="process_payment">
+Amount: <INPUT TYPE="text" VALUE="<%=sprintf("%.2f",$balance)%>"><BR><BR>
+<INPUT TYPE="submit" VALUE="Process payment">
+</FORM>
+</TD></TR></TABLE>
+<HR>
+<FONT SIZE="-2">powered by <a href="http://www.sisd.com/freeside">freeside</a></FONT>
+</BODY></HTML>
+
<%= $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>
+<!-- <A HREF="<%= $url %>other">SomethingElse</A><BR> -->
</TD><TD VALIGN="top">
Hello <%= $name %>!<BR><BR>
-Your customer number is <%= $custnum %><BR><BR>
Your contact information<BR><%= $small_custview %>
-Your outstanding balance is $<%= $balance %><BR><BR>
+<BR>
+<%= if ( $balance ) {
+ $OUT .= qq! <B><A HREF="${url}make_payment">Make a $balance payment</A></B>!;
+} %>
+<BR><BR>
<!--<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=2 BORDERCOLOR="#999999">
<TR><TH>Invoice</TH><TH>Date</TH><TH>Owed</TH></TR>-->
<%=
if ( @open_invoices ) {
$OUT .= '<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 BGCOLOR="#eeeeee">'.
'<TR><TH BGCOLOR="#ff3333" COLSPAN=5>Open Invoices</TH><TD>';
- my $link = qq!<A HREF="<%= $selfurl %>?session=<%= $session_id %>;action=myaccount!;
+ my $link = qq!<A HREF="<%= $url %>myaccount!;
my $col1 = "ffffff";
my $col2 = "dddddd";
my $col = $col1;
</TD></TR></TABLE>
<HR>
-<FONT SIZE="-2">small text</FONT>
+<FONT SIZE="-2">powered by <a href="http://www.sisd.com/freeside">freeside</a></FONT>
</BODY></HTML>
$session_id = $cgi->param('session');
-$cgi->param('action') =~ /^(myaccount|view_invoice)$/
+$cgi->param('action') =~ /^(myaccount|view_invoice|make_payment)$/
or die "unknown action ". $cgi->param('action');
my $action = $1;
}
+sub make_payment {
+
+}
+
#--
sub do_template {
my $fill_in = shift;
$cgi->delete_all();
- $fill_in->{'self_url'} = $cgi->self_url;
+ $fill_in->{'selfurl'} = $cgi->self_url;
my $template = new Text::Template( TYPE => 'FILE',
SOURCE => "$template_dir/$name.html",
<%= $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>
+<!-- <A HREF="<%= $url %>other">SomethingElse</A><BR> -->
</TD><TD VALIGN="top">
<A HREF="<%= $url %>myaccount"><-- back to MyAccount</A><BR><BR>
</TD></TR></TABLE>
<HR>
-<FONT SIZE="-2">small text</FONT>
+<FONT SIZE="-2">powered by <a href="http://www.sisd.com/freeside">freeside</a></FONT>
</BODY></HTML>