From db4034e2019cb6c7f455640b89e8d5fedeb28932 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 19 Apr 2007 20:18:05 +0000
Subject: [PATCH] fix very strange "Undefined subroutine &FS::UI::Web::rooturl"
 with an explicit import.  did i mention this was really really weird?

---
 FS/FS/UI/Web.pm                         |  9 +++++++--
 htetc/handler.pl                        |  2 +-
 httemplate/browse/part_svc.cgi          |  2 +-
 httemplate/elements/menu.html           |  4 ++--
 httemplate/search/cust_svc.html         |  2 +-
 httemplate/view/cust_main/packages.html | 14 +++++++-------
 6 files changed, 19 insertions(+), 14 deletions(-)

diff --git a/FS/FS/UI/Web.pm b/FS/FS/UI/Web.pm
index a05a667b3..43c49354e 100644
--- a/FS/FS/UI/Web.pm
+++ b/FS/FS/UI/Web.pm
@@ -1,14 +1,18 @@
 package FS::UI::Web;
 
 use strict;
-use vars qw($DEBUG $me);
+use vars qw($DEBUG @ISA @EXPORT_OK $me);
+use Exporter;
+use Number::Format;
 use FS::Conf;
 use FS::Record qw(dbdef);
-use Number::Format;
 
 #use vars qw(@ISA);
 #use FS::UI
 #@ISA = qw( FS::UI );
+@ISA = qw( Exporter );
+
+@EXPORT_OK = qw( svc_url );
 
 $DEBUG = 0;
 $me = '[FS::UID::Web]';
@@ -114,6 +118,7 @@ sub svc_url {
     $url .= 'svcnum=' if $query =~ /^\d+(;|$)/ or $query eq '';
   }
 
+  import FS::CGI 'rooturl'; #WTF!  why is this necessary
   my $return = rooturl(). "$opt{action}/$url$query";
 
   $return = qq!<A HREF="$return">! if $opt{ahref};
diff --git a/htetc/handler.pl b/htetc/handler.pl
index 164da3702..d46742544 100644
--- a/htetc/handler.pl
+++ b/htetc/handler.pl
@@ -127,7 +127,7 @@ sub handler
       use FS::Conf;
       use FS::CGI qw(header menubar popurl rooturl table itable ntable idiot
                      eidiot small_custview myexit http_header);
-      use FS::UI::Web;
+      use FS::UI::Web qw(svc_url);
       use FS::Msgcat qw(gettext geterror);
       use FS::Misc qw( send_email send_fax states_hash counties state_label );
       use FS::Report::Table::Monthly;
diff --git a/httemplate/browse/part_svc.cgi b/httemplate/browse/part_svc.cgi
index 92c0840b0..cce6af822 100755
--- a/httemplate/browse/part_svc.cgi
+++ b/httemplate/browse/part_svc.cgi
@@ -100,7 +100,7 @@ function part_export_areyousure(href) {
       <% $svcdb %></TD>
 
     <TD ROWSPAN=<% $rowspan %> CLASS="grid" BGCOLOR="<% $bgcolor %>">
-      <FONT COLOR="#00CC00"><B><% $num_active_cust_svc{$part_svc->svcpart} %></B></FONT>&nbsp;<% $num_active_cust_svc{$part_svc->svcpart} ? FS::UI::Web::svc_url( 'ahref' => 1, 'm' => $m, 'action' => 'search', 'part_svc' => $part_svc, 'query' => "svcpart=". $part_svc->svcpart ) : '<A NAME="zero">' %>active</A>
+      <FONT COLOR="#00CC00"><B><% $num_active_cust_svc{$part_svc->svcpart} %></B></FONT>&nbsp;<% $num_active_cust_svc{$part_svc->svcpart} ? svc_url( 'ahref' => 1, 'm' => $m, 'action' => 'search', 'part_svc' => $part_svc, 'query' => "svcpart=". $part_svc->svcpart ) : '<A NAME="zero">' %>active</A>
 
 % if ( $num_active_cust_svc{$part_svc->svcpart} ) { 
         <BR><FONT SIZE="-1">[ <A HREF="<%$p%>edit/bulk-cust_svc.html?svcpart=<% $part_svc->svcpart %>">change</A> ]</FONT>
diff --git a/httemplate/elements/menu.html b/httemplate/elements/menu.html
index f58da9e76..7ee34a977 100644
--- a/httemplate/elements/menu.html
+++ b/httemplate/elements/menu.html
@@ -120,14 +120,14 @@ foreach my $svcdb ( FS::part_svc->svc_tables() ) {
       if scalar(@$sorts) > 1;
 
     $report_svc{$title} =
-      [ FS::UI::Web::svc_url( %svc_url, 'query' => "magic=all;sortby=$sort" ),
+      [ svc_url( %svc_url, 'query' => "magic=all;sortby=$sort" ),
         '',
       ];
   }
 
   if ( $curuser->access_right('View/link unlinked services') ) {
     $report_svc{"Unlinked $lcname"} = 
-      [ FS::UI::Web::svc_url( %svc_url, 'query' => "magic=unlinked;sortby=". $sorts->[0] ),
+      [ svc_url( %svc_url, 'query' => "magic=unlinked;sortby=". $sorts->[0] ),
         "Pre-Freeside $lcname without a customer record",
       ];
   }
diff --git a/httemplate/search/cust_svc.html b/httemplate/search/cust_svc.html
index 6369b202e..9a43a4139 100644
--- a/httemplate/search/cust_svc.html
+++ b/httemplate/search/cust_svc.html
@@ -115,7 +115,7 @@ my $count_query = "SELECT COUNT(*) FROM cust_svc $addl_from $extra_sql";
 
 my $link = sub {
   my $cust_svc = shift;
-  my $url = FS::UI::Web::svc_url(
+  my $url = svc_url(
     'm'        => $m,
     'action'   => 'view',
     #'part_svc' => $cust_svc->part_svc,
diff --git a/httemplate/view/cust_main/packages.html b/httemplate/view/cust_main/packages.html
index c56904690..98acb8685 100755
--- a/httemplate/view/cust_main/packages.html
+++ b/httemplate/view/cust_main/packages.html
@@ -440,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";
 %  }
 %
@@ -522,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 {
-- 
2.11.0