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 {
} 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 {
'<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>';
}
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>!;
}