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?! .
+ return qq!<A CLASS="provision" HREF="${p}edit/$svcpart->{svcdb}.cgi?! .
qq!pkgnum$pkg->{pkgnum}-svcpart$svcpart->{svcpart}">! .
"Provision $svc_nbsp (".
($svcpart->{quantity} - $svcpart->{count}).