coec has asked for the wisdom of the Perl Monks concerning the following question:
Does not work../show_library LibraryType=3584 LibrarySource=tsm
Please help%LibraryChoices = ('3575'=>'Magstar tape library', '3584'=>'LTO tape library'); @LibraryLabels = sort keys %LibraryChoices; %LibrarySources = ('tsm'=>'TSM DB Inquiry', 'tapeutil'=>'AIX Utility Inquiry'); @LibrarySourceLabels = sort keys %LibrarySources; print start_html(-title=>"Tape Library Details"); print radio_group(-name=>'LibraryType', -values=>[@LibraryLabels], -default=>'3584', -labels=>\%LibraryChoices, -columns=>4); print radio_group(-name=>'LibrarySource', -values=>[@LibrarySourceLabels], -default=>'tsm', -labels=>\%LibrarySources, -columns=>4); Process_Columns($LibraryType, $LibrarySource);
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: CGI question
by coec (Chaplain) on Aug 10, 2002 at 09:08 UTC |