[freeside-commits] freeside/FS/FS/UI Web.pm,1.26.2.1,1.26.2.2

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/UI
In directory wavetail:/tmp/cvs-serv1085/FS/FS/UI

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	Web.pm 
Log Message:
fix very strange "Undefined subroutine &FS::UI::Web::rooturl" with an explicit import.  did i mention this was really really weird?

Index: Web.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/UI/Web.pm,v
retrieving revision 1.26.2.1
retrieving revision 1.26.2.2
diff -u -d -r1.26.2.1 -r1.26.2.2
--- Web.pm	12 Apr 2007 03:18:24 -0000	1.26.2.1
+++ Web.pm	19 Apr 2007 20:18:08 -0000	1.26.2.2
@@ -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 );
+ at ISA = qw( Exporter );
+
+ at EXPORT_OK = qw( svc_url );
 
 $DEBUG = 0;
 $me = '[FS::UID::Web]';
@@ -114,6 +118,7 @@
     $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};