projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
use all stuff that's qsearch'ed to avoid warnings
[freeside.git]
/
site_perl
/
CGI.pm
diff --git
a/site_perl/CGI.pm
b/site_perl/CGI.pm
index
97dedad
..
723d7f4
100644
(file)
--- a/
site_perl/CGI.pm
+++ b/
site_perl/CGI.pm
@@
-9,7
+9,7
@@
use CGI::Carp qw(fatalsToBrowser);
use FS::UID;
@ISA = qw(Exporter);
use FS::UID;
@ISA = qw(Exporter);
-@EXPORT_OK = qw(header menubar idiot eidiot popurl table itable);
+@EXPORT_OK = qw(header menubar idiot eidiot popurl table itable
ntable
);
=head1 NAME
=head1 NAME
@@
-53,7
+53,7
@@
sub header {
</TITLE>
</HEAD>
<BODY BGCOLOR="#e8e8e8">
</TITLE>
</HEAD>
<BODY BGCOLOR="#e8e8e8">
- <FONT
COLOR="#FF0000"
SIZE=7>
+ <FONT SIZE=7>
$title
</FONT>
<BR><BR>
$title
</FONT>
<BR><BR>
@@
-79,11
+79,14
@@
sub menubar { #$menubar=menubar('Main Menu', '../', 'Item', 'url', ... );
=item idiot ERROR
=item idiot ERROR
+This is depriciated. Don't use it.
+
Sends headers and an HTML error message.
=cut
sub idiot {
Sends headers and an HTML error message.
=cut
sub idiot {
+ #warn "idiot depriciated";
my($error)=@_;
my($cgi)=FS::UID::cgi;
if ( $cgi->isa('CGI::Base') ) {
my($error)=@_;
my($cgi)=FS::UID::cgi;
if ( $cgi->isa('CGI::Base') ) {
@@
-103,7
+106,6
@@
sub idiot {
</CENTER>
Your request could not be processed because of the following error:
<P><B>$error</B>
</CENTER>
Your request could not be processed because of the following error:
<P><B>$error</B>
- <P>Hit the <I>Back</I> button in your web browser, correct this mistake, and try again.
</BODY>
</HTML>
END
</BODY>
</HTML>
END
@@
-112,11
+114,14
@@
END
=item eidiot ERROR
=item eidiot ERROR
+This is depriciated. Don't use it.
+
Sends headers and an HTML error message, then exits.
=cut
sub eidiot {
Sends headers and an HTML error message, then exits.
=cut
sub eidiot {
+ #warn "eidiot depriciated";
idiot(@_);
exit;
}
idiot(@_);
exit;
}
@@
-148,7
+153,7
@@
Returns HTML tag for beginning a table.
sub table {
my $col = shift;
if ( $col ) {
sub table {
my $col = shift;
if ( $col ) {
-
"<TABLE BGCOLOR=$col BORDER=1 WIDTH=\"100%\">"
;
+
qq!<TABLE BGCOLOR="$col" BORDER=1 WIDTH="100%">!
;
} else {
"<TABLE BORDER=1>";
}
} else {
"<TABLE BORDER=1>";
}
@@
-162,13
+167,31
@@
Returns HTML tag for beginning an (invisible) table.
sub itable {
my $col = shift;
sub itable {
my $col = shift;
+ my $cellspacing = shift || 0;
if ( $col ) {
if ( $col ) {
- qq!<TABLE BGCOLOR=
$col BORDER=0 CELLSPACING=0 WIDTH=\"100%\
">!;
+ qq!<TABLE BGCOLOR=
"$col" BORDER=0 CELLSPACING=$cellspacing WIDTH="100%
">!;
} else {
} else {
-
"<TABLE>"
;
+
qq!<TABLE BORDER=0 CELLSPACING=$cellspacing WIDTH="100%">!
;
}
}
}
}
+=item ntable
+
+This is getting silly.
+
+=cut
+
+sub ntable {
+ my $col = shift;
+ my $cellspacing = shift || 0;
+ if ( $col ) {
+ qq!<TABLE BGCOLOR="$col" BORDER=0 CELLSPACING=$cellspacing>!;
+ } else {
+ "<TABLE BORDER>";
+ }
+
+}
+
=back
=head1 BUGS
=back
=head1 BUGS
@@
-193,7
+216,13
@@
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.15 1999-01-18 09:41:48 ivan
+Revision 1.17 1999-02-07 09:59:43 ivan
+more mod_perl fixes, and bugfixes Peter Wemm sent via email
+
+Revision 1.16 1999/01/25 12:26:05 ivan
+yet more mod_perl stuff
+
+Revision 1.15 1999/01/18 09:41:48 ivan
all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
(good idea anyway)
all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
(good idea anyway)