lib/CXGN/Insitu/Toolbar.pm

   1
   2 use strict;
   3
   4 package CXGN::Insitu::Toolbar;
   5
   6 use Exporter;
   7 our @ISA = qw(Exporter);
   8 our @EXPORT = qw / display_toolbar /;  # symbols to export on request
   9
  10
  11
  12 use CXGN::Page::FormattingHelpers qw/page_title_html modesel/;
  13
  14 sub display_toolbar {
  15     my $hilite = shift;
  16
  17 #    my $page = CXGN::Page->new();
  18     my @tabs = (
  19                 ["/insitu/", "Home"],
  20                 ["/insitu/search.pl", "Search"],
  21                 ["/insitu/manage.pl", "Manage"],
  22                 ["/insitu/help.pl", "Help"]
  23                 );
  24
  25 #     my @tabfuncs = (
  26 #                   \&home
  27 #                   \&unigene_tab,
  28 #                   \&marker_tab,
  29 #                   \&bac_tab,
  30 #                   \&annotation_tab,
  31 #                   \&est_tab,
  32 #                   \&directory_tab,
  33 #                   );
  34
  35     #get the search type
  36 #    my ($search) = $page -> get_arguments("search");
  37 #    $search ||= 'unigene'; #default
  38
  39     my $tabsel =
  40         ($hilite=~ //i)          ? 0
  41         : ($hilite =~ /home/i)     ? 0
  42         : ($hilite =~ /search/i)     ? 1
  43         : ($hilite =~ /manage/i)        ? 2
  44         : ($hilite =~ /help/i) ? 3
  45
  46
  47         : print STDERR "Invalid search type.";
  48
  49
  50     print modesel(\@tabs,$tabsel); #print out the tabs
  51
  52 }
  53
  54  #    my $hilite = shift;
  55
  56 #     my $home = "Insitu home";
  57 #     my $search = "Search";
  58 #     my $manage = "Manage";
  59 #     my $help = "Help";
  60
  61 #     my %links = (
  62 #                "$home" => "/insitu/",
  63 #                "$search" => "/insitu/search.pl",
  64 #                "$manage" => "/insitu/manage.pl",
  65 #                "$help"   => "/insitu/help.pl",
  66 #                );
  67 #     my @link_order   = ( $home, $search, $manage, $help );
  68
  69 #     print qq {        <table><tr> };
  70
  71 #     foreach my $k (@link_order) {
  72 #       my $bgcolor = "#FFFFFF";
  73 #       if ($hilite eq $k) {
  74 #           $bgcolor="#FFFF00";
  75 #       }
  76 #       print qq { <td bgcolor="$bgcolor"><a href="$links{$k}">$k</a></td><td>|</td> }
  77 #     }
  78 #     print qq { </tr></table><br /><br /> };
  79 # }
  80
  81 return 1;