% ) {
%
- <% popup_link('edit/quick-charge.html?custnum='. $cust_main->custnum, 'One-time charge', 'One-time charge', 684) %>
+ <% popup_link('edit/quick-charge.html?custnum='. $cust_main->custnum, 'One-time charge', 'One-time charge', 545) %>
<BR>
% }
% if ( $curuser->access_right('Bulk change customer packages') ) {
( <% pkg_unsuspend_link($cust_pkg) %> )
% }
-% if ( $curuser->access_right('Cancel customer package') ) {
+% if ( $curuser->access_right('Cancel customer package immediately') ) {
( <% pkg_cancel_link($cust_pkg) %> )
% }
<% pkg_datestr($cust_pkg, 'setup', $conf) %>
</TR>
% } else {
-
-
+% if (scalar($cust_pkg->overlimit)) {
+ <TR>
+ <TD COLSPAN=<%$colspan%>><FONT COLOR="#FFD000"><B>Overlimit</B></FONT>, <% $billed_or_prepaid %> <% myfreq($part_pkg) %></TD>
+ </TR>
+%}else{
<TR>
<TD COLSPAN=<%$colspan%>><FONT COLOR="#00CC00"><B>Active</B></FONT>, <% $billed_or_prepaid %> <% myfreq($part_pkg) %></TD>
</TR>
-
+% }
<TR>
<TD WIDTH="<%$width%>" ALIGN="right">Setup </TD>
<% pkg_datestr($cust_pkg, 'setup', $conf) %>
</TR>
<TR>
+ <TD ALIGN="right" COLSPAN="2" VALIGN="top" STYLE="padding-bottom:1px;padding-top:0px"><FONT SIZE="-2" COLOR="#FFD000">
+
+ <% $cust_svc->overlimit ? "Overlimit: ". time2str('%b %o %Y' . ($conf->exists('cust_pkg-display_times') ? ' %l:%M %P' : ''), $cust_svc->overlimit) : '' %>
+ </FONT></TD>
+ </TR>
+
+ <TR>
<TD ALIGN="right" VALIGN="top" STYLE="padding-bottom:5px;padding-top:0px"><FONT SIZE="-2">
% if ( $curuser->access_right('Recharge customer service')
-% && $cust_svc->svcdb eq 'svc_acct'
+% && $part_svc->svcdb eq 'svc_acct'
% && ( $cust_svc->svc_x->seconds ne ''
% || $cust_svc->svc_x->upbytes ne ''
% || $cust_svc->svc_x->downbytes ne ''
% ) {
% $url = "${p}edit/process/". $part_svc->svcdb. ".cgi?$pkgnum_svcpart";
% } else {
-% $url = FS::UI::Web::svc_url(
-% 'm' => $m,
-% 'action' => 'edit',
-% 'part_svc' => $part_svc,
-% 'query' => $pkgnum_svcpart,
-% );
+% $url = svc_url(
+% 'm' => $m,
+% 'action' => 'edit',
+% 'part_svc' => $part_svc,
+% 'query' => $pkgnum_svcpart,
+% );
% #$url = "${p}edit/$svcpart->{svcdb}.cgi?$pkgnum_svcpart";
% }
%
%
%sub pkg_change_link { pkg_link('misc/change_pkg', 'Change package', @_ ); }
%
-%sub pkg_suspend_link { pkg_popup_link( 'misc/cancel_pkg/html?method=suspend',
+%sub pkg_suspend_link { pkg_popup_link( 'misc/cancel_pkg.html?method=suspend',
% 'Suspend',
% 'Suspend',
% @_
%sub pkg_link {
% my($action, $label, $cust_pkg) = @_;
% return '' unless $cust_pkg;
-% qq!<a href="${p}$action.cgi?!. $cust_pkg->pkgnum. qq!">$label</a>!;
+% qq!<a href="$p$action.cgi?!. $cust_pkg->pkgnum. qq!">$label</a>!;
%}
%
%sub pkg_popup_link {