fs_selfservice/FS-SelfService/cgi/myaccount.html

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