diff options
| author | ivan <ivan> | 1999-04-22 04:34:46 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1999-04-22 04:34:46 +0000 |
| commit | 6e2dd006387d7d441b129285cf4674a62a969c94 (patch) | |
| tree | 0b34db2e011f87f5292818939bed8f63f8d48202 | |
| parent | c3c2bd39d9b8ddfc300550bb30f78e602862742e (diff) | |
add homepage
| -rwxr-xr-x | cgi/persons.cgi | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/cgi/persons.cgi b/cgi/persons.cgi index 4733ccd..df22ced 100755 --- a/cgi/persons.cgi +++ b/cgi/persons.cgi @@ -1,5 +1,5 @@ #!/usr/bin/perl -Tw -# $Id: persons.cgi,v 1.4 1999-04-22 04:33:05 ivan Exp $ +# $Id: persons.cgi,v 1.5 1999-04-22 04:34:46 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 @@ -18,7 +18,7 @@ $user = "agent"; $password = "t3chno"; $table = "PERSONS"; -@fields = qw( PERSON_ID NAME EMAIL AFFILIATION ); +@fields = qw( PERSON_ID NAME EMAIL AFFILIATION HOMEPAGE ); $cgi = new CGI; @@ -100,6 +100,7 @@ sub print_form { "Name: ", $cgi->textfield( -name => 'NAME' ), "<BR>", "Email: ", $cgi->textfield( -name => 'EMAIL' ), "<BR>", "Affiliation: ", $cgi->textfield( -name => 'AFFILIATION' ), "<BR>", + "Homepage: ", $cgi->textfield( -name => 'HOMEPAGE' ), "<BR>", $cgi->hidden( -name => 'magic'), $cgi->submit('Submit'), $cgi->end_form, |