projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
44ea6c1
)
s/CGI::Base/CGI/; etc.
author
ivan
<ivan>
Sun, 8 Nov 1998 10:50:19 +0000
(10:50 +0000)
committer
ivan
<ivan>
Sun, 8 Nov 1998 10:50:19 +0000
(10:50 +0000)
site_perl/CGI.pm
patch
|
blob
|
history
diff --git
a/site_perl/CGI.pm
b/site_perl/CGI.pm
index
b72a09a
..
0e6daee
100644
(file)
--- 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 strict;
use vars qw(@EXPORT_OK @ISA);
use Exporter;
-use CGI
::Base
;
+use CGI;
use CGI::Carp qw(fatalsToBrowser);
use CGI::Carp qw(fatalsToBrowser);
+use FS::UID;
@ISA = qw(Exporter);
@EXPORT_OK = qw(header menubar idiot eidiot);
@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)=@_;
sub idiot {
my($error)=@_;
-
CGI::Base::SendHeaders()
;
- print <<END;
+
my($cgi)=FS::UID::cgi
;
+ print
$cgi->header,
<<END;
<HTML>
<HEAD>
<TITLE>Error processing your request</TITLE>
<HTML>
<HEAD>
<TITLE>Error processing your request</TITLE>
@@
-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 $
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
=cut