cgi-bin/maps/physical/test_multilevel.pl

   1 use strict;
   2 use warnings;
   3
   4 use CXGN::Page;
   5 use CXGN::Page::FormattingHelpers qw/multilevel_mode_selector_html/;
   6
   7 my $page = CXGN::Page->new('Multilevel Selector Test Page','Robert Buels');
   8
   9
  10 $page->header(('Multilevel Selector Test Page') x 2);
  11
  12 my ($ml_html,@selected_modes) =  multilevel_mode_selector_html(<<EOC,$page->get_encoded_arguments('mode'));
  13 <monkey>
  14   text Monkey
  15 </monkey>
  16 <dog>
  17   text Dog
  18 </dog>
  19 <cat>
  20   text Cat
  21 </cat>
  22 EOC
  23
  24 $page->footer;