cust_refund and cust_pay get custnums

[freeside.git] / FS / FS / CGI.pm
diff --git a/FS/FS/CGI.pm b/FS/FS/CGI.pm

index 6078ad9..85b91ea 100644 (file)
--- 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 =  <<END;
      <HTML>
@@ -52,7 +54,7 @@ sub header {
            $title
          </TITLE>
        </HEAD>
-      <BODY BGCOLOR="#e8e8e8">
+      <BODY BGCOLOR="#e8e8e8"$etc>
            <FONT SIZE=7>
              $title
            </FONT>
@@ -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 {