5 <TD CLASS="inv" BGCOLOR="<% $bgcolor %>">
6 <TABLE CLASS="inv" BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH="100%">
8 % #foreach my $svcpart (sort {$a->{svcpart} <=> $b->{svcpart}} @{$pkg->{svcparts}}) {
9 % foreach my $part_svc ( $cust_pkg->part_svc ) {
11 % #foreach my $service (@{$svcpart->{services}}) {
12 % foreach my $cust_svc ( @{ $part_svc->cust_pkg_svc } ) {
15 <TD ALIGN="right" VALIGN="top"><% FS::UI::Web::svc_link($m, $part_svc, $cust_svc) %></TD>
16 <TD STYLE="padding-bottom:0px"><B><% FS::UI::Web::svc_label_link($m, $part_svc, $cust_svc) %></B></TD>
17 <TD><% FS::UI::Web::svc_export_links($m, $part_svc, $cust_svc) %></TD>
21 <TD ALIGN="right" COLSPAN="3" VALIGN="top" STYLE="padding-bottom:1px;padding-top:0px"><FONT SIZE="-2" COLOR="#FFD000">
23 <% $cust_svc->overlimit ? "Overlimit: ". time2str('%b %o %Y' . ($conf->exists('cust_pkg-display_times') ? ' %l:%M %P' : ''), $cust_svc->overlimit) : '' %>
28 <TD ALIGN="right" VALIGN="top" STYLE="padding-bottom:5px;padding-top:0px"><FONT SIZE="-2">
30 % if ( $curuser->access_right('Recharge customer service')
31 % && $part_svc->svcdb eq 'svc_acct'
32 % && ( $cust_svc->svc_x->seconds ne ''
33 % || $cust_svc->svc_x->upbytes ne ''
34 % || $cust_svc->svc_x->downbytes ne ''
35 % || $cust_svc->svc_x->totalbytes ne ''
38 ( <%svc_recharge_link($cust_svc)%> )
42 <TD ALIGN="right" VALIGN="top" STYLE="padding-bottom:5px;padding-top:0px"><FONT SIZE="-2">
44 % if ( $curuser->access_right('Unprovision customer service') ) {
45 ( <%svc_unprovision_link($cust_svc)%> )
51 % if ( ! $cust_pkg->get('cancel')
52 % && $curuser->access_right('Provision customer service')
53 % && $part_svc->num_avail
57 <TD COLSPAN=3 ALIGN="center" STYLE="padding-bottom:4px;padding-top:0px">
58 <B><% svc_provision_link($cust_pkg, $part_svc, $conf, $curuser) %></B>
73 my $bgcolor = $opt{'bgcolor'};
74 my $cust_pkg = $opt{'cust_pkg'};
75 my $part_pkg = $opt{'part_pkg'};
76 my $curuser = $FS::CurrentUser::CurrentUser;
77 my $conf = new FS::Conf;
79 sub svc_provision_link {
80 my ($cust_pkg, $part_svc, $conf, $curuser) = @_;
81 ( my $svc_nbsp = $part_svc->svc ) =~ s/\s+/ /g;
82 my $num_avail = $part_svc->num_avail;
83 my $pkgnum_svcpart = "pkgnum=". $cust_pkg->pkgnum. ';'.
84 "svcpart=". $part_svc->svcpart;
86 if ( $part_svc->svcdb eq 'svc_external' #could be generalized
87 && $conf->exists('svc_external-skip_manual')
89 $url = "${p}edit/process/". $part_svc->svcdb. ".cgi?$pkgnum_svcpart";
94 'part_svc' => $part_svc,
95 'query' => $pkgnum_svcpart,
97 #$url = "${p}edit/$svcpart->{svcdb}.cgi?$pkgnum_svcpart";
100 my $link = qq!<A CLASS="provision" HREF="$url">!.
101 "Provision $svc_nbsp ($num_avail)</A>";
102 if ( $conf->exists('legacy_link')
103 && $curuser->access_right('View/link unlinked services')
107 qq!<A CLASS="provision" HREF="${p}misc/link.cgi?!.
108 qq!$pkgnum_svcpart">!.
109 "Link to legacy $svc_nbsp ($num_avail)</A>";
114 sub svc_unprovision_link {
115 my $cust_svc = shift or return '';
116 qq!<A HREF="javascript:areyousure('${p}misc/unprovision.cgi?!. $cust_svc->svcnum.
117 qq!', 'Permanently unprovision and delete this service?')">Unprovision</A>!;