Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:
Thanks in advance,
print start_form( -method => 'post', -enctype => 'multipart/form-data', -action=> '' ), table({-border=>1, -width=>600, -bgcolor=>'\#eeeeee', cellpadding=>0 +, cellspacing=>0}, Tr( td("File: "), td( textfield( -name => 'title1', -size => 50, -maxlength => 80 ), td("Short Description: "), td( textfield( -name => 'desc1', -size => 50, -maxlength => 80 ), ), td( filefield( -name => 'upload1', -size => 50, -maxlength => 80 ), ), ), Tr( td("File: "), td( textfield( -name => 'title2', -size => 50, -maxlength => 80 ), td("Short Description: "), td( textfield( -name => 'desc2', -size => 50, -maxlength => 80 ), ), td( filefield( -name => 'upload2', -size => 50, -maxlength => 80 ), ), ), Tr( td("File: "), td( textfield( -name => 'title3', -size => 50, -maxlength => 80 ), td("Short Description: "), td( textfield( -name => 'desc3', -size => 50, -maxlength => 80 ), ), td( filefield( -name => 'upload3', -size => 50, -maxlength => 80 ), ), ), Tr( td("File: "), td( textfield( -name => 'title4', -size => 50, -maxlength => 80 ), td("Short Description: "), td( textfield( -name => 'desc4', -size => 50, -maxlength => 80 ), ), td( filefield( -name => 'upload4', -size => 50, -maxlength => 80 ), ), ), Tr( td(), td( submit( 'button', 'submit' ), ) ) ), end_form(), hr;
janitored by ybiC: Balanced <readmore> tags around long codeblock, as per Monastery convention
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Basic syntax problem
by dragonchild (Archbishop) on Sep 05, 2003 at 13:48 UTC | |
by BrowserUk (Patriarch) on Sep 05, 2003 at 13:53 UTC | |
|
Re: Basic syntax problem
by Taulmarill (Deacon) on Sep 05, 2003 at 13:34 UTC | |
|
Re: Basic syntax problem
by allolex (Curate) on Sep 05, 2003 at 17:13 UTC |