X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FCGI.pm;h=86d20f6cb99fd0787a69b51f9e64fcfe355bad46;hb=667a729f660ad4f871acd5eb3173303396543eeb;hp=e44ebcc0a499227e89692af1a599edfc1686296f;hpb=5e4671b1c30d8f6d68a770c7ad2dd40462ed6f2b;p=freeside.git
diff --git a/FS/FS/CGI.pm b/FS/FS/CGI.pm
index e44ebcc0a..86d20f6cb 100644
--- a/FS/FS/CGI.pm
+++ b/FS/FS/CGI.pm
@@ -10,7 +10,7 @@ use FS::UID;
@ISA = qw(Exporter);
@EXPORT_OK = qw(header menubar idiot eidiot popurl table itable ntable
- small_custview myexit);
+ small_custview myexit http_header);
=head1 NAME
@@ -68,6 +68,38 @@ END
$x;
}
+=item http_header
+
+Sets an http header.
+
+=cut
+
+sub http_header {
+ my ( $header, $value ) = @_;
+ if (exists $ENV{MOD_PERL}) {
+ if ( defined $main::Response
+ && $main::Response->isa('Apache::ASP::Response') ) { #Apache::ASP
+ if ( $header =~ /^Content-Type$/ ) {
+ $main::Response->{ContentType} = $value;
+ } else {
+ $main::Response->AddHeader( $header => $value );
+ }
+ } elsif ( defined $HTML::Mason::Commands::r ) { #Mason
+ ## is this the correct pacakge for $r ??? for 1.0x and 1.1x ?
+ if ( $header =~ /^Content-Type$/ ) {
+ $HTML::Mason::Commands::r->content_type($value);
+ } else {
+ $HTML::Mason::Commands::r->header_out( $header => $value );
+ }
+ } else {
+ die "http_header called in unknown environment";
+ }
+ } else {
+ die "http_header called not running under mod_perl";
+ }
+
+}
+
=item menubar ITEM, URL, ...
Returns an HTML menubar.
@@ -290,6 +322,10 @@ sub small_custview {
$html .= '';
+ $html .= '
Balance: $'. $cust_main->balance. '
';
+
+ # last payment might be good here too?
+
$html;
}