X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FCGI.pm;h=98f26f38377c0c0a99a8184a805d1d5da9f9609b;hb=f7caf50929669fdf317f1ab51767ac93a1f743fc;hp=6078ad96bed6c92b1899b4dd5465e5e16ccc316a;hpb=08cc56589e213542a72060234bdad49fbfeb67c2;p=freeside.git diff --git a/FS/FS/CGI.pm b/FS/FS/CGI.pm index 6078ad96b..98f26f383 100644 --- a/FS/FS/CGI.pm +++ b/FS/FS/CGI.pm @@ -43,7 +43,10 @@ Returns an HTML header. =cut sub header { - my($title,$menubar)=@_; + my($title,$menubar,$etc)=@_; + #use Carp; + #confess $etc if defined $etc; + $etc = '' unless defined $etc; my $x = < @@ -52,7 +55,7 @@ sub header { $title - + $title @@ -124,6 +127,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 {