.package TH { font-size: medium }
.package TR { font-size: smaller }
.package .pkgnum { font-size: medium }
-.package .provision { font-size: larger; font-weight: bold }
+.package .provision { font-weight: bold }
</STYLE>
END
if ( $pkg->{cancel} ) { #status: cancelled
- print '<TR><TD><FONT COLOR="#ff0000"><B>Cancelled</B> </FONT></TD>'.
+ 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>';
sub svc_provision_link {
my ($pkg, $svcpart) = (shift,shift) or return '';
+ ( my $svc_nbsp = $svcpart->{svc} ) =~ s/\s+/ /g;
return qq!<A CLASS="provision" HREF="${p1}/edit/$svcpart->{svcdb}.cgi?! .
qq!pkgnum$pkg->{pkgnum}-svcpart$svcpart->{svcpart}">! .
- qq!Provision $svcpart->{svc} (! . ($svcpart->{quantity} - $svcpart->{count}) . qq!)</A>!;
+ "Provision $svc_nbsp (".
+ ($svcpart->{quantity} - $svcpart->{count}).
+ ')</A>';
}
sub svc_unprovision_link {