<%
-# <!-- $Id: cust_pkg.cgi,v 1.4 2001-08-21 02:03:32 ivan Exp $ -->
+# <!-- $Id: cust_pkg.cgi,v 1.6 2001-10-30 14:54:07 ivan Exp $ -->
use strict;
use vars qw ( $cgi @cust_pkg $sortby $query %part_pkg );
eidiot("No packages found");
} else {
my($total)=scalar(@cust_pkg);
- print $cgi->header( '-expires' => 'now' ),
- header('Package Search Results',''),
+ print header('Package Search Results',''),
"$total matching packages found<BR>", &table(), <<END;
<TR>
<TH>Package</TH>