X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=site_perl%2FCGI.pm;h=0e6daeebcbd8beb42357dfe1dc2e2f9d50f4ca1f;hp=b72a09a6bbf8140c258371ad71e4d0155b1a3619;hb=e6f96a8435359ef6d24d16ec69650172c7e6b5ce;hpb=44ea6c1538ce923c333796b0784aded5f64be761 diff --git a/site_perl/CGI.pm b/site_perl/CGI.pm index b72a09a6b..0e6daeebc 100644 --- a/site_perl/CGI.pm +++ b/site_perl/CGI.pm @@ -3,8 +3,9 @@ package FS::CGI; use strict; use vars qw(@EXPORT_OK @ISA); use Exporter; -use CGI::Base; +use CGI; use CGI::Carp qw(fatalsToBrowser); +use FS::UID; @ISA = qw(Exporter); @EXPORT_OK = qw(header menubar idiot eidiot); @@ -80,8 +81,8 @@ Sends headers and an HTML error message. sub idiot { my($error)=@_; - CGI::Base::SendHeaders(); - print <header, < Error processing your request @@ -136,8 +137,8 @@ lose the background, eidiot ivan@sisd.com 98-sep-2 pod ivan@sisd.com 98-sep-12 $Log: CGI.pm,v $ -Revision 1.2 1998-11-07 10:24:23 ivan -don't use depriciated FS::Bill and FS::Invoice, other miscellania +Revision 1.3 1998-11-08 10:50:19 ivan +s/CGI::Base/CGI/; etc. =cut