2 use vars qw( $cgi $p );
4 use CGI::Carp qw(fatalsToBrowser);
5 use FS::UID qw(cgisuidsetup);
6 use FS::Record qw(qsearch qsearchs fields);
8 use FS::CGI qw(header menubar popurl table);
14 #print $cgi->header( '-expires' => 'now' );
18 my $ref = $Response->{BinaryRef};
19 $$ref = $cgi->header( '-expires' => 'now' ) .$$ref;