./show_library LibraryType=3584 LibrarySource=tsm

##</code><code>##

%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);