X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=cgi%2Fpersons.cgi;h=1f1501cfb0bfcc39f7f7a51c7432bce4e7425ca7;hb=914bb1cf4592983b7d63f3faf748440c072e9c16;hp=d01191329d7ff4313abeb218ad9a44c04c046f08;hpb=cab57b5d930ba2b9d2308f155edeac5fdeef0021;p=technostate.git

diff --git a/cgi/persons.cgi b/cgi/persons.cgi
index d011913..1f1501c 100755
--- a/cgi/persons.cgi
+++ b/cgi/persons.cgi
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -Tw
-# $Id: persons.cgi,v 1.7 1999-04-22 05:58:06 ivan Exp $
+# $Id: persons.cgi,v 1.8 1999-04-22 06:06:16 ivan Exp $
 # Copyright (c) 1999 Ivan Kohler.  All rights reserved.
 # This program is free software; you can redistribute it and/or modify it under
 # the same terms as perl itself
@@ -104,7 +104,7 @@ unless ( $cgi->param('magic') ) { #first time through
 sub print_form {
   my $cgi = shift;
   my $action = shift;
-  print $cgi->header( '-expires' => 'now' ),
+  print $cgi->header,
         $cgi->start_html($action),
         $cgi->h1($action),
         $cgi->start_form,