diff options
author | ivan <ivan> | 2003-05-12 07:33:47 +0000 |
---|---|---|
committer | ivan <ivan> | 2003-05-12 07:33:47 +0000 |
commit | 4454c0bae42714d3dc215572a15a0ad0960b20fe (patch) | |
tree | bbfa335ce6582f8568d07d473d07df7bf76994ba /httemplate/view/cust_main.cgi | |
parent | 38480ba7cb708bbe1bf78482d570425c121f2386 (diff) |
fix service links
Diffstat (limited to 'httemplate/view/cust_main.cgi')
-rwxr-xr-x | httemplate/view/cust_main.cgi | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/httemplate/view/cust_main.cgi b/httemplate/view/cust_main.cgi index af2babcba..3934a3dcb 100755 --- a/httemplate/view/cust_main.cgi +++ b/httemplate/view/cust_main.cgi @@ -430,8 +430,8 @@ foreach my $pkg (sort pkgsort_pkgnum_cancel @$packages) { if ( $pkg->{cancel} ) { #status: cancelled - print '<TR><TD><FONT COLOR="#ff0000">Cancelled </FONT></TD><TD>'. - pkg_datestr($pkg,'cancel'). '</TD></TR>'; + print '<TR><TD><FONT COLOR="#ff0000"><B>Cancelled</B> </FONT></TD>'. + '<TD>'. pkg_datestr($pkg,'cancel'). '</TD></TR>'; unless ( $pkg->{setup} ) { print '<TR><TD COLSPAN=2>Never billed</TD></TR>'; } else { @@ -448,8 +448,8 @@ foreach my $pkg (sort pkgsort_pkgnum_cancel @$packages) { } else { if ( $pkg->{susp} ) { #status: suspended - print '<TR><TD><FONT COLOR="#FF9900">Suspended </FONT></TD><TD>'. - pkg_datestr($pkg,'susp'). '</TD></TR>'; + print '<TR><TD><FONT COLOR="#FF9900"><B>Suspended</B> </FONT></TD>'. + '<TD>'. pkg_datestr($pkg,'susp'). '</TD></TR>'; unless ( $pkg->{setup} ) { print '<TR><TD COLSPAN=2>Never billed</TD></TR>'; } else { @@ -486,8 +486,8 @@ foreach my $pkg (sort pkgsort_pkgnum_cancel @$packages) { '<TR><TD>Billed </TD><TD>'. pkg_datestr($pkg,'setup'). '</TD></TR>'; } else { - print '<TR><TD COLSPAN=2><FONT COLOR="#00CC00">Active</FONT>, '. - 'billed '. freq($pkg->{freq}). '</TD></TR>'. + print '<TR><TD COLSPAN=2><FONT COLOR="#00CC00"><B>Active</B></FONT>'. + ', billed '. freq($pkg->{freq}). '</TD></TR>'. '<TR><TD>Setup </TD><TD>'. pkg_datestr($pkg, 'setup'). '</TD></TR>'; } @@ -835,14 +835,14 @@ return \@packages; sub svc_link { my ($svcpart, $svc) = (shift,shift) or return ''; - return qq!<A HREF="$p1/view/$svcpart->{svcdb}.cgi?$svc->{svcnum}">$svcpart->{svc}</A>!; + return qq!<A HREF="${p}view/$svcpart->{svcdb}.cgi?$svc->{svcnum}">$svcpart->{svc}</A>!; } sub svc_label_link { my ($svcpart, $svc) = (shift,shift) or return ''; - return qq!<A HREF="$p1/view/$svcpart->{svcdb}.cgi?$svc->{svcnum}">$svc->{label}</A>!; + return qq!<A HREF="${p}view/$svcpart->{svcdb}.cgi?$svc->{svcnum}">$svc->{label}</A>!; } |