projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
okay all external export from .pm files is queued! (closes: Bug#249)
[freeside.git]
/
FS
/
FS
/
CGI.pm
diff --git
a/FS/FS/CGI.pm
b/FS/FS/CGI.pm
index
c66bfe3
..
d1c56a2
100644
(file)
--- a/
FS/FS/CGI.pm
+++ b/
FS/FS/CGI.pm
@@
-12,10
+12,6
@@
use FS::UID;
@EXPORT_OK = qw(header menubar idiot eidiot popurl table itable ntable
small_custview);
@EXPORT_OK = qw(header menubar idiot eidiot popurl table itable ntable
small_custview);
-@header = ( '-Expires' => '-1',
- '-Pragma' => 'no-cache',
- '-Cache-Control' => 'no-cache' );
-
=head1 NAME
FS::CGI - Subroutines for the web interface
=head1 NAME
FS::CGI - Subroutines for the web interface
@@
-58,6
+54,9
@@
sub header {
<TITLE>
$title
</TITLE>
<TITLE>
$title
</TITLE>
+ <META HTTP-Equiv="Cache-Control" Content="no-cache">
+ <META HTTP-Equiv="Pragma" Content="no-cache">
+ <META HTTP-Equiv="Expires" Content="0">
</HEAD>
<BODY BGCOLOR="#e8e8e8"$etc>
<FONT SIZE=7>
</HEAD>
<BODY BGCOLOR="#e8e8e8"$etc>
<FONT SIZE=7>
@@
-88,24
+87,27
@@
sub menubar { #$menubar=menubar('Main Menu', '../', 'Item', 'url', ... );
This is depriciated. Don't use it.
This is depriciated. Don't use it.
-Sends
headers and
an HTML error message.
+Sends an HTML error message.
=cut
sub idiot {
#warn "idiot depriciated";
my($error)=@_;
=cut
sub idiot {
#warn "idiot depriciated";
my($error)=@_;
- my $cgi = &FS::UID::cgi();
+
#
my $cgi = &FS::UID::cgi();
# if ( $cgi->isa('CGI::Base') ) {
# no strict 'subs';
# &CGI::Base::SendHeaders;
# } else {
# if ( $cgi->isa('CGI::Base') ) {
# no strict 'subs';
# &CGI::Base::SendHeaders;
# } else {
- print $cgi->header( @FS::CGI::header );
+
#
print $cgi->header( @FS::CGI::header );
# }
print <<END;
<HTML>
<HEAD>
<TITLE>Error processing your request</TITLE>
# }
print <<END;
<HTML>
<HEAD>
<TITLE>Error processing your request</TITLE>
+ <META HTTP-Equiv="Cache-Control" Content="no-cache">
+ <META HTTP-Equiv="Pragma" Content="no-cache">
+ <META HTTP-Equiv="Expires" Content="0">
</HEAD>
<BODY>
<CENTER>
</HEAD>
<BODY>
<CENTER>
@@
-123,7
+125,7
@@
END
This is depriciated. Don't use it.
This is depriciated. Don't use it.
-Sends
headers and
an HTML error message, then exits.
+Sends an HTML error message, then exits.
=cut
=cut
@@
-168,9
+170,9
@@
Returns HTML tag for beginning a table.
sub table {
my $col = shift;
if ( $col ) {
sub table {
my $col = shift;
if ( $col ) {
- qq!<TABLE BGCOLOR="$col" BORDER=1 WIDTH="100%">!;
+ qq!<TABLE BGCOLOR="$col" BORDER=1 WIDTH="100%"
CELLSPACING=0 CELLPADDING=2 BORDERCOLOR="#999999"
>!;
} else {
} else {
-
"<TABLE BORDER=1>"
;
+
'<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=2 BORDERCOLOR="#999999">'
;
}
}
}
}
@@
-202,7
+204,7
@@
sub ntable {
if ( $col ) {
qq!<TABLE BGCOLOR="$col" BORDER=0 CELLSPACING=$cellspacing>!;
} else {
if ( $col ) {
qq!<TABLE BGCOLOR="$col" BORDER=0 CELLSPACING=$cellspacing>!;
} else {
-
"<TABLE BORDER>"
;
+
'<TABLE BORDER CELLSPACING=0 CELLPADDING=2 BORDERCOLOR="#999999">'
;
}
}
}
}