X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=site_perl%2FUID.pm;h=7959343e05822c850274de7cfe4355484d3aa95b;hb=150fc6e8f81825c8db41267e1a990eb93ab33955;hp=00adfc0c59517c8f89f2c9252282dc0e6a761681;hpb=b90fadef7ea6b802a46a4f826ec5052ffd9e5556;p=freeside.git

diff --git a/site_perl/UID.pm b/site_perl/UID.pm
index 00adfc0c5..7959343e0 100644
--- a/site_perl/UID.pm
+++ b/site_perl/UID.pm
@@ -95,6 +95,16 @@ sub cgisuidsetup {
   adminsuidsetup;
 }
 
+=item cgi
+
+Returns the CGI (see L<CGI>) object.
+
+=cut
+
+sub cgi {
+  $cgi;
+}
+
 =item dbh
 
 Returns the DBI database handle.
@@ -212,7 +222,10 @@ inlined suidsetup
 ivan@sisd.com 98-sep-12
 
 $Log: UID.pm,v $
-Revision 1.2  1998-11-08 09:38:43  ivan
+Revision 1.3  1998-11-08 10:45:42  ivan
+got sub cgi for FS::CGI
+
+Revision 1.2  1998/11/08 09:38:43  ivan
 cgisuidsetup complains if you pass it a isa CGI::Base instead of an isa CGI
 (first step in migrating from CGI-modules to CGI.pm)