[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.123, Sun Oct 23 04:27:37 2005 UTC revision 1.124, Mon Oct 24 02:39:45 2005 UTC
# Line 386  Line 386 
386      }      }
387      &existing_subsystem_annotations($fig);      &existing_subsystem_annotations($fig);
388    
 print STDERR "Sort is : $sort and ", $cgi->param('sortby'), "\n";  
   
389      # sort the cells      # sort the cells
390      if ($sort eq "Classification")     {@ssa=sort {$a->[0] cmp $b->[0] || $a->[1] cmp $b->[1] || $a->[2] cmp $b->[2]} @ssa}      if ($sort eq "Classification")     {@ssa=sort {$a->[0] cmp $b->[0] || $a->[1] cmp $b->[1] || $a->[2] cmp $b->[2]} @ssa}
391      elsif ($sort eq "Subsystem")       {@ssa=sort {$a->[2] cmp $b->[2]} @ssa}      elsif ($sort eq "Subsystem")       {@ssa=sort {$a->[2] cmp $b->[2]} @ssa}
# Line 995  Line 993 
993      # errors to the end user (.e.g try setting can_alter and choosing an illegitimate ss      # errors to the end user (.e.g try setting can_alter and choosing an illegitimate ss
994      # Do we know about this subsystem:      # Do we know about this subsystem:
995      my $ssaQ = quotemeta $ssa;      my $ssaQ = quotemeta $ssa;
996      unless (grep {/$ssaQ/} map {$_->[0]} &existing_subsystem_annotations($fig))  
997        if (! -d "$FIG_Config::data/Subsystems/$ssa")
998    ######    unless (grep {/$ssaQ/} map {$_->[0]} &existing_subsystem_annotations($fig))
999      {      {
1000       # No, we don't know about this subsystem       # No, we don't know about this subsystem
1001       my $url = &FIG::cgi_url . "/subsys.cgi?user=$user";       my $url = &FIG::cgi_url . "/subsys.cgi?user=$user";

Legend:
Removed from v.1.123  
changed lines
  Added in v.1.124

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3