fs_selfservice/FS-SelfService/cgi/myaccount.html

   1 <HTML><HEAD><TITLE>MyAccount</TITLE></HEAD>
   2 <BODY BGCOLOR="#eeeeee"><FONT SIZE=5>MyAccount</FONT><BR><BR>
   3 <%= $url = "$selfurl?session=$session_id;action="; ''; %>
   4 <%= include('myaccount_menu') %>
   5 <TD VALIGN="top">
   6
   7 Hello <%= $name %>!<BR><BR>
   8 <%= $small_custview %>
   9 <BR>
  10 <%= if ( $balance > 0 ) {
  11   if (scalar(grep $_, @hide_payment_field)) {
  12     $OUT .= qq! <B><A HREF="${url}make_payment">Make a payment</A></B><BR><BR>!;
  13   } else {
  14     $OUT .= qq! <B><A HREF="${url}make_thirdparty_payment&payby_method=CC">Make a payment</A></B><BR><BR>!;
  15   }
  16 } %>
  17 <%=
  18   if ( @open_invoices ) {
  19     $OUT .= '<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 BGCOLOR="#eeeeee">'.
  20             '<TR><TH BGCOLOR="#ff6666" COLSPAN=5>Open Invoices</TH></TR>';
  21     my $link = qq!<A HREF="<%= $url %>myaccount!;
  22     my $col1 = "ffffff";
  23     my $col2 = "dddddd";
  24     my $col = $col1;
  25
  26     foreach my $invoice ( @open_invoices ) {
  27       my $td = qq!<TD BGCOLOR="#$col">!;
  28       my $a=qq!<A HREF="${url}view_invoice;invnum=!. $invoice->{'invnum'}. '">';
  29       $OUT .=
  30         "<TR>$td${a}Invoice #". $invoice->{'invnum'}. "</A></TD>$td</TD>".
  31         "$td$a". $invoice->{'date'}. "</A></TD>$td</TD>".
  32         qq!<TD BGCOLOR="#$col" ALIGN="right">$a\$!. $invoice->{'owed'}.
  33           '</A></TD>'.
  34         '</TR>';
  35       $col = $col eq $col1 ? $col2 : $col1;
  36     }
  37     $OUT .= '</TABLE><BR>';
  38   } else {
  39     $OUT .= 'You have no outstanding invoices.<BR><BR>';
  40   }
  41 %>
  42
  43 <%=
  44   if ( @support_services ) {
  45     $OUT .= '<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 BGCOLOR="#eeeeee">'.
  46             '<TR><TH BGCOLOR="#ff6666" COLSPAN="3">Support Time Remaining</TH>'.
  47             '</TR><TR><TH ALIGN="left">#</TH><TH>Package</TH>'.
  48             '<TH>Time Remaining</TH></TR>';
  49     my $col1 = "ffffff";
  50     my $col2 = "dddddd";
  51     my $col = $col1;
  52
  53     foreach my $support ( @support_services ) {
  54       my $td = qq!<TD BGCOLOR="#$col">!;
  55       my $a = qq!<A HREF="${url}view_support_details;svcnum=!.
  56               $support->{'svcnum'}. '">';
  57       $OUT .=
  58         "<TR>$td$a". $support->{'pkgnum'}. "</A></TD>".
  59         $td.$a. $support->{'pkg'}. "</A></TD>".
  60         $td.$a. $support->{'time'}. "</A></TD>".
  61         '</TR>';
  62       $col = $col eq $col1 ? $col2 : $col1;
  63     }
  64     $OUT .= '</TABLE><BR>';
  65   } else {
  66     $OUT .= '';
  67   }
  68 %>
  69
  70 <%=
  71   if ( @tickets ) {
  72     $OUT .= '<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 BGCOLOR="#eeeeee">'.
  73             '<TR><TH BGCOLOR="#ff6666" COLSPAN=5>Open Tickets</TH></TR>'.
  74             '<TR><TH>#</TH><TH>Subject</TH><TH>Priority</TH><TH>Queue</TH>'.
  75             '<TH>Status</TH></TR>';
  76     my $col1 = "ffffff";
  77     my $col2 = "dddddd";
  78     my $col = $col1;
  79
  80     foreach my $ticket ( @tickets ) {
  81       my $td = qq!<TD BGCOLOR="#$col">!;
  82       $OUT .=
  83         "<TR>$td". $ticket->{'id'}. "</TD>".
  84         $td. $ticket->{'subject'}. "</TD>".
  85         $td. ($ticket->{'content'} || $ticket->{'priority'}). "</TD>".
  86         $td. $ticket->{'queue'}. "</TD>".
  87         $td. $ticket->{'status'}. "</TD>".
  88         '</TR>';
  89       $col = $col eq $col1 ? $col2 : $col1;
  90     }
  91     $OUT .= '</TABLE>';
  92   } else {
  93     $OUT .= '';
  94   }
  95 %>
  96
  97 </TD></TR></TABLE>
  98 <%= include('footer') %>