Re: CGI Tables, yippie!!

As for the formatting, I don't know if you'd find something more like this much easier to read:

#!/usr/bin/perl -w
use strict;
use CGI::Pretty qw(:all);

print header(),
 start_html('foo'),
  start_form(),
   table(
   Tr([
    td([ 'Email Address:', textfield('usermail') ]),
    td([ 'Author:',        textfield('author') ]),
    td([ 'Distributor:',   textfield('distributor') ]),
    td([ 'Copyright:',     textfield('copyright') ]),
    td([ 'Abstract:',      textfield('abstract') ]),
    td([ 'Keywords:',      textarea({ name => 'keywords',
                                      rows => 10,
                                      cols => 50 })
    ]),
    td([ 'Description:',   textarea({ name =>'description',
                                      rows => 10,
                                      cols => 50 })
    ]),
    td([ 'Robots:',        popup_menu({ name   => 'robots',
                                        values => [
                                         '', 'index', 'noindex',
                                         'follow', 'nofollow'
                                        ] })
    ]),
    td([ 'Distribution:',  popup_menu({ name   => 'distribution',
                                        values => [
                                         '', 'local', 'global'
                                        ] })
    ]),
    td([ 'Language:',      popup_menu({ name   => 'language',
                                        values => [
                                         '', 'EN', 'EN-GB', 'EN-US', '
+ES',
                                         'ES-ES', 'FR', 'IT', 'JA', 'K
+O', 'DE'
                                        ] })
    ]),
    td([ 'Rating:',        popup_menu({ name   => 'rating',
                                        values => [
                                         '', 'kids', 'general',
                                         'mature', 'restricted'
                                        ] })
    ]),
                                         '', 'local', 'global'
                                        ] })
    ]),
    td([ 'Language:',      popup_menu({ name   => 'language',
                                        values => [
                                         '', 'EN', 'EN-GB', 'EN-US', '
+ES',
                                         'ES-ES', 'FR', 'IT', 'JA', 'K
+O', 'DE'
                                        ] })
    ]),
    td([ 'Rating:',        popup_menu({ name   => 'rating',
                                        values => [
                                         '', 'kids', 'general',
                                         'mature', 'restricted'
                                        ] })
    ]),
    th({ colspan => 2, valign => 'bottom' },
     submit()
    )
   ])
  ),
 end_form(),
 hr();
[download]

If the above content is missing any vital points or you feel that any of the information is misleading, incorrect or irrelevant, please feel free to downvote the post. At the same time, please reply to this node or /msg me to inform me as to what is wrong with the post, so that I may update the node to the best of my ability.

Comment on Re: CGI Tables, yippie!! Download Code

Replies are listed 'Best First'.
Re: Re: CGI Tables, yippie!! by sulfericacid (Deacon) on Apr 04, 2003 at 04:27 UTC
I really appreciate all of your help everyone, there is no way I could have learned as much perl as I did if it weren't for such an involved community like PerlMonks. Special thanks to Coruscate for teaching me how to make tables and then later how to fix things! Coruscate, I don't find your method easier to read than mine, probably because I've stared at my codes this way for quite a few hours and changing that would just end up confusing me even more. It's funny, my script has been rewritten three times by three different people in this past couple of days, sometimes I think some of you like to help more than you like to write your own scripts. Thanks again everyone, ++ for everyone. "Age is nothing more than an inaccurate number bestowed upon us at birth as just another means for others to judge and classify us" sulfericacid	[reply]
Re^3: CGI Tables, yippie!! by Coruscate (Sexton) on Apr 04, 2003 at 08:30 UTC
Ah, but there is a reason some of us prefer to rewrite other people's stuff. I don't have to come up with an idea or even a starting place for coding. It's easy to take the work someone else has done and redo it a different way. Of course, this doesn't hold true if the original code is obfuscated in certain ways. Then it's a nightmare to rewrite :P If the above content is missing any vital points or you feel that any of the information is misleading, incorrect or irrelevant, please feel free to downvote the post. At the same time, please reply to this node or /msg me to inform me as to what is wrong with the post, so that I may update the node to the best of my ability.	[reply]