diff options
| author | jeff <jeff> | 2007-09-24 15:47:52 +0000 |
|---|---|---|
| committer | jeff <jeff> | 2007-09-24 15:47:52 +0000 |
| commit | 2f3b4161da680cd0fff8c91dbdc50fe5e974610e (patch) | |
| tree | b38079387c295996bd50faba7636343ac85aebd5 /fs_selfservice/FS-SelfService/cgi/myaccount.html | |
| parent | 91caf036bc222d20d078e31f1d28c2d6c86805e1 (diff) | |
self-service support usage improvements (1733)
Diffstat (limited to 'fs_selfservice/FS-SelfService/cgi/myaccount.html')
| -rw-r--r-- | fs_selfservice/FS-SelfService/cgi/myaccount.html | 25 |
1 files changed, 22 insertions, 3 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/myaccount.html b/fs_selfservice/FS-SelfService/cgi/myaccount.html index 421a866f1..65b98427d 100644 --- a/fs_selfservice/FS-SelfService/cgi/myaccount.html +++ b/fs_selfservice/FS-SelfService/cgi/myaccount.html @@ -37,10 +37,29 @@ Hello <%= $name %>!<BR><BR> %> <%= - if ( defined($support_time) ) { + if ( @support_services ) { $OUT .= '<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 BGCOLOR="#eeeeee">'. - '<TR><TH BGCOLOR="#ff6666">Support Time Remaining</TH></TR>'. - "<TR><TD>$support_time</TD></TR></TABLE><BR>"; + '<TR><TH BGCOLOR="#ff6666" COLSPAN="3">Support Time Remaining</TH>'. + '</TR><TR><TH ALIGN="left">#</TH><TH>Package</TH>'. + '<TH>Time Remaining</TH></TR>'; + my $col1 = "ffffff"; + my $col2 = "dddddd"; + my $col = $col1; + + foreach my $support ( @support_services ) { + my $td = qq!<TD BGCOLOR="#$col">!; + my $a = qq!<A HREF="${url}view_support_details;svcnum=!. + $support->{'svcnum'}. '">'; + $OUT .= + "<TR>$td$a". $support->{'pkgnum'}. "</A></TD>". + $td.$a. $support->{'pkg'}. "</A></TD>". + $td.$a. $support->{'time'}. "</A></TD>". + '</TR>'; + $col = $col eq $col1 ? $col2 : $col1; + } + $OUT .= '</TABLE><BR>'; + } else { + $OUT .= ''; } %> |