[Bio] / FigWebServices / subsys.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/subsys.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.87, Fri Jul 8 21:24:18 2005 UTC revision 1.88, Sat Jul 9 21:46:15 2005 UTC
# Line 225  Line 225 
225          }          }
226          exit;          exit;
227      }      }
228                elsif (($request eq "delete_or_export_ssa") && $user &&
229                           defined($cgi->param('reindex')))
230                {
231    
232                     my @ss=$cgi->param('index_subsystem');
233                     my $job = $fig->index_subsystems(@ss);
234                     push @$html, "<h2>ReIndexing these subsystems...</h2>\n<ul>", map {"<li>$_</li>"} @ss;
235                     push @$html, "</ul>\n<p>... is running in the background with job id $job. You may check it in the ",
236                       "<a href=\"seed_ctl.cgi\">SEED Control Panel</a></p>\n";
237             &show_initial($fig,$cgi,$html);
238        }
239      elsif ($user && ($request eq "new_ssa") && ($cgi->param('copy_from1')) && (! $cgi->param('cols_to_take1')))      elsif ($user && ($request eq "new_ssa") && ($cgi->param('copy_from1')) && (! $cgi->param('cols_to_take1')))
240      {      {
241          my $user = $cgi->param('user');          my $user = $cgi->param('user');
# Line 1804  Line 1815 
1815  #                "<a href=\"/FIG/Html/seedtips.html#change_ownership\" class=\"help\" target=\"help\">Help on changing subsystem ownership</a>\n",  #                "<a href=\"/FIG/Html/seedtips.html#change_ownership\" class=\"help\" target=\"help\">Help on changing subsystem ownership</a>\n",
1816    
1817  # RAE: Added a new cgi param colsort for sort by column. This url will just recall the script with username to allow column sorting.  # RAE: Added a new cgi param colsort for sort by column. This url will just recall the script with username to allow column sorting.
1818    # RAE: Added a column to allow indexing of one subsystem. This is also going to be used in the renaming of a subsystem, too
1819    
1820      my $col_hdrs = [      my $col_hdrs = [
1821                      "<a href='" . &FIG::cgi_url . "/subsys.cgi?user=$user'>Name</a><br><small>Sort by Subsystem</small>",                      "<a href='" . &FIG::cgi_url . "/subsys.cgi?user=$user'>Name</a><br><small>Sort by Subsystem</small>",
1822                      "<a href='" . &FIG::cgi_url . "/subsys.cgi?user=$user&colsort=curator'>Curator</a><br><small>Sort by curator</small>",                      "<a href='" . &FIG::cgi_url . "/subsys.cgi?user=$user&colsort=curator'>Curator</a><br><small>Sort by curator</small>",
1823                      "Exchangable","Version",                      "Exchangable","Version",
1824                      "Reset to Previous Timestamp","Delete",                      "Reset to Previous Timestamp","Delete",
1825                      "Export Full Subsystem","Export Just Assignments", "Publish to Clearinghouse",                      "Export Full Subsystem","Export Just Assignments", "Publish to Clearinghouse", "Reindex Subsystem",
1826                      ];                      ];
1827      my $title    = "Existing Subsystem Annotations";      my $title    = "Existing Subsystem Annotations";
1828      my $tab = [];      my $tab = [];
1829      foreach $_ (@$ssaP)      foreach $_ (@$ssaP)
1830      {      {
1831          my($publish_checkbox);          my($publish_checkbox, $index_checkbox);
1832          ($ssa,$curator) = @$_;          ($ssa,$curator) = @$_;
1833    
1834          my $esc_ssa = uri_escape($ssa);          my $esc_ssa = uri_escape($ssa);
# Line 1854  Line 1866 
1866          {          {
1867              $publish_checkbox = $cgi->checkbox(-name => "publish_to_clearinghouse",              $publish_checkbox = $cgi->checkbox(-name => "publish_to_clearinghouse",
1868                                                 -value => $ssa,                                                 -value => $ssa,
1869                                                 -label => "Publish"),                                                 -label => "Publish");
1870    
1871          }          }
1872    
1873            #
1874            # Initially I am going to allow indexing of any subsystem since you may want to index it to allow
1875            # better searhing on a local system
1876            $index_checkbox=$cgi->checkbox(-name => "index_subsystem", -value=> $ssa, -label => "Index");
1877    
1878          # RAE color the background if the subsystem is empty          # RAE color the background if the subsystem is empty
1879          # this uses a modification to HTML.pm that I made earlier to accept refs to arrays as cell data          # this uses a modification to HTML.pm that I made earlier to accept refs to arrays as cell data
1880          my $cell1=&ssa_link($fig,$ssa,$user);          my $cell1=&ssa_link($fig,$ssa,$user);
# Line 1874  Line 1891 
1891                      ($curator eq $cgi->param('user')) ? $cgi->checkbox(-name => "delete", -value => $ssa) : "",                      ($curator eq $cgi->param('user')) ? $cgi->checkbox(-name => "delete", -value => $ssa) : "",
1892                      $cgi->checkbox(-name => "export", -value => $ssa, -label => "Export full"),                      $cgi->checkbox(-name => "export", -value => $ssa, -label => "Export full"),
1893                      $cgi->checkbox(-name => "export_assignments", -value => $ssa, -label => "Export assignments"),                      $cgi->checkbox(-name => "export_assignments", -value => $ssa, -label => "Export assignments"),
1894                      $publish_checkbox,                      $publish_checkbox, $index_checkbox,
1895                      ]);                      ]);
1896      }      }
1897      push(@$html,      push(@$html,
# Line 1883  Line 1900 
1900                        -label => 'Process marked deletions and exports'),                        -label => 'Process marked deletions and exports'),
1901           $cgi->submit(-name => 'publish',           $cgi->submit(-name => 'publish',
1902                        -label => "Publish marked subsystems"),                        -label => "Publish marked subsystems"),
1903             $cgi->submit(-name => 'reindex',
1904                          -label => "Reindex selected subsystems"),
1905           $cgi->end_form           $cgi->end_form
1906           );           );
1907  }  }

Legend:
Removed from v.1.87  
changed lines
  Added in v.1.88

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3