X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FCGI.pm;h=85b91eab2c581575e514202307b56b96a15e95c4;hb=5477d23b51bd3135893c4d79091a9e272a17f4f8;hp=6078ad96bed6c92b1899b4dd5465e5e16ccc316a;hpb=08cc56589e213542a72060234bdad49fbfeb67c2;p=freeside.git diff --git a/FS/FS/CGI.pm b/FS/FS/CGI.pm index 6078ad96b..85b91eab2 100644 --- a/FS/FS/CGI.pm +++ b/FS/FS/CGI.pm @@ -43,7 +43,9 @@ Returns an HTML header. =cut sub header { - my($title,$menubar)=@_; + my($title,$menubar,$etc)=@_; #$etc is for things like onLoad= etc. + use Carp; + $etc = '' unless defined $etc; my $x = < @@ -52,7 +54,7 @@ sub header { $title - + $title @@ -124,6 +126,9 @@ sub eidiot { warn "eidiot depriciated"; idiot(@_); if (exists $ENV{MOD_PERL}) { + $main::Response->End() + if defined $main::Response + && $main::Response->isa('Apache::ASP::Response'); require Apache; Apache::exit(); } else {