Returns the FS::cust_svc record for this account (see L<FS::cust_svc>).
+=cut
+
sub cust_svc {
my $self = shift;
qsearchs( 'cust_svc', { 'svcnum' => $self->svcnum } );
<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">
<%= $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>