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