diff options
author | ivan <ivan> | 1999-04-22 06:06:16 +0000 |
---|---|---|
committer | ivan <ivan> | 1999-04-22 06:06:16 +0000 |
commit | 914bb1cf4592983b7d63f3faf748440c072e9c16 (patch) | |
tree | 5ea7238dcfca96fd3966a2bd8ff85cf71e7e4a82 /cgi/persons.cgi | |
parent | cab57b5d930ba2b9d2308f155edeac5fdeef0021 (diff) |
bah
Diffstat (limited to 'cgi/persons.cgi')
-rwxr-xr-x | cgi/persons.cgi | 4 |
1 files changed, 2 insertions, 2 deletions
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, |