fix very strange "Undefined subroutine &FS::UI::Web::rooturl" with an explicit import...

[freeside.git] / httemplate / view / cust_main / packages.html

diff --git a/httemplate/view/cust_main/packages.html b/httemplate/view/cust_main/packages.html
index 3e4332d..98acb86 100755 (executable)
--- a/httemplate/view/cust_main/packages.html
+++ b/httemplate/view/cust_main/packages.html
@@ -219,7 +219,7 @@ Current packages
 
             (&nbsp;<% pkg_unsuspend_link($cust_pkg) %>&nbsp;)
 % } 
-% if ( $curuser->access_right('Cancel customer package') ) { 
+% if ( $curuser->access_right('Cancel customer package immediately') ) { 
 
             (&nbsp;<% pkg_cancel_link($cust_pkg) %>&nbsp;)
 % } 
@@ -270,12 +270,15 @@ Current packages
           <% pkg_datestr($cust_pkg, 'setup', $conf) %>
         </TR>
 % } else { 
-
-
+% if (scalar($cust_pkg->overlimit)) {
+        <TR>
+          <TD COLSPAN=<%$colspan%>><FONT COLOR="#FFD000"><B>Overlimit</B></FONT>,&nbsp;<% $billed_or_prepaid %>&nbsp;<% myfreq($part_pkg) %></TD>
+        </TR>
+%}else{
         <TR>
           <TD COLSPAN=<%$colspan%>><FONT COLOR="#00CC00"><B>Active</B></FONT>,&nbsp;<% $billed_or_prepaid %>&nbsp;<% myfreq($part_pkg) %></TD>
         </TR>
-
+% } 
         <TR>
           <TD WIDTH="<%$width%>" ALIGN="right">Setup&nbsp;</TD>
           <% pkg_datestr($cust_pkg, 'setup', $conf) %>
@@ -347,6 +350,13 @@ Current packages
       </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')
@@ -430,12 +440,12 @@ Current packages
 %  ) {
 %    $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";
 %  }
 %
@@ -512,7 +522,7 @@ Current packages
 %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 {