From e6f96a8435359ef6d24d16ec69650172c7e6b5ce Mon Sep 17 00:00:00 2001 From: ivan Date: Sun, 8 Nov 1998 10:50:19 +0000 Subject: [PATCH] s/CGI::Base/CGI/; etc. --- site_perl/CGI.pm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) 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 -- 2.11.0