There were a few issues.
1. INFO. If you are using the standard method of CGI.pm, then you don't need the
call to 'new CGI'. Get rid of that statement in your first script. Not
a showstopper - just an unneccessary call.
2. ERROR. Enclose your form's action value in quotes.
3. ERROR. Perhaps it's just the way it came through in the mail, but the
line you commented out saying "i have tried this also" had the -values
part of the commented out call on a new line. Must comment out all lines of
a multiple line call.
4. ERROR. recource.cgi is declared to use standard form, yet your use object
format in your calls. It's okay to use object format, just get rid of
the 'qw(:standard)' on your import of CGI.pm.
I've corrected your examples below.
Cheers!
Jon
test.cgi
--------
#!/usr/bin/perl -w
use CGI qw(:standard);
print header,start_html ("resource input"),h1("Recource Invoking
Auto-Record Form");
print hr();
print start_form(-method=>'POST', -action=>'recource.cgi');
#print p("Name",textfield("name"));
print p("Name",popup_menu("name",['xietao1','liuying1','linxb']));
#i have tried this also(print $co->popup_memu( -name=>'name',
#-values=>['xietao1','liuying1','linxb']);)
print p("Department",popup_menu ("department",['TR','IP','VS','FR']));
print p("Configer",popup_menu("configer",['Yes','No']));
print p("Line Arragement",popup_menu("linearrangement",['Yes','No']));
print p (submit("submit"),reset("clear"));
print end_form,hr();
print end_html;
recource.cgi
------------
#!/usr/bin/perl -w
use CGI;
$co = new CGI;
print $co->header, $co->start_html();
$co->hr;
if ($co->param()){
print " your name is :",
$co->em($co->param('name')),".",
$co->p;}
print $co->hr;
print $co->end_html;
--
Jon Earle
SAVE FARSCAPE http://www.savefarscape.com/
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
