cgi-bin/insitu/manage.pl

   1 #!/usr/bin/perl -w
   2
   3 # This script will simply have links to other scripts which will do the
   4 # actual work in managing data.
   5
   6 use CXGN::Page;
   7 use CXGN::People;
   8 use CXGN::Insitu::Toolbar;
   9 our $debug = 2; # higher for more verbosity
  10
  11 # default operation; print form
  12 #
  13 sub print_default {
  14         my $user_type = shift;
  15         print "Please select which data you want to update:<br /><br />\n\n";
  16
  17         print "<div class=\"subheading\">Experiments / Images</div>\n";
  18         print "<ul>\n";
  19         print "<li><a href=\"detail/experiment.pl?action=new\"><strong>Add new experiment</strong></a></li>\n";
  20         print "</ul>\n";
  21
  22 #       print "<div class=\"subheading\">Categories</div>\n";
  23 #       print "<ul>\n";
  24 #       print "<li><a href=\"/insitu/detail/tag.pl?action=new\"><strong>Add new tag</strong></a></li>\n";
  25 # #     print "<li><a href=\"/cgi-bin/edit_cats.pl?op=edit\"><strong>Edit categories</strong></a><br /> <em>Change category names and descriptions, as well as add implied categories, for your tags.</em></li>\n";
  26 #       print "</ul>\n";
  27
  28         print qq { <div class="subheading">Probes</div>\n
  29                        <ul>\n
  30                        <li><a href="/insitu/detail/probe.pl?action=new"><strong>Add new probe</strong></a></li>
  31                        </ul>
  32                    };
  33
  34
  35
  36         # only curators can add/edit organisms
  37         # FIXME -- the first submitters shouldn't be curators, but they should
  38         # be allowed to enter the species they want regardless
  39         #if ($user_type eq 'curator') {
  40                 print "<div class=\"subheading\">Organisms</div>\n";
  41                 print "<ul>\n";
  42                 print "<li><a href=\"/insitu/detail/organism.pl?action=new\"><strong>Add organisms</strong></a></li>\n";
  43                 #print "<li><a href=\"/cgi-bin/edit_species.pl?op=edit\"><strong>Edit organisms</strong></a></li>\n";
  44                 #print "<li><a href=\"/cgi-bin/edit_species.pl?op=del\"><strong>Delete organisms</strong></a></li>\n";
  45                 print "</ul>\n";
  46         #}
  47
  48 }
  49
  50 #####################################################################
  51 #####################################################################
  52 # Stuff happens here
  53 #####################################################################
  54 #####################################################################
  55
  56 # display what needs displaying, do what needs doing
  57 ####################################################
  58 my $page = CXGN::Page->new( "Manage Data", "Teri");
  59 $page->header("Insitu Manager", "<a href=\"/insitu\">Insitu</a>: Manage Data");
  60
  61 CXGN::Insitu::Toolbar::display_toolbar("Manage");
  62
  63 print_default($user_type);
  64
  65 $page->footer();