[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.80, Mon Jun 20 22:02:11 2005 UTC revision 1.81, Tue Jun 28 16:29:41 2005 UTC
# Line 1748  Line 1748 
1748  # RAE: removed this from above push because VV want's it kept secret  # RAE: removed this from above push because VV want's it kept secret
1749  #                "<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",
1750    
1751    # RAE: Added a new cgi param colsort for sort by column. This url will just recall the script with username to allow column sorting.
1752    
1753      my $col_hdrs = [      my $col_hdrs = [
1754                      "Name","Curator","Exchangable","Version",                      "<a href='" . &FIG::cgi_url . "/subsys.cgi?user=$user'>Name</a><br><small>Sort by Subsystem</small>",
1755                        "<a href='" . &FIG::cgi_url . "/subsys.cgi?user=$user&colsort=curator'>Curator</a><br><small>Sort by curator</small>",
1756                        "Exchangable","Version",
1757                      "Reset to Previous Timestamp","Delete",                      "Reset to Previous Timestamp","Delete",
1758                      "Export Full Subsystem","Export Just Assignments", "Publish to Clearinghouse",                      "Export Full Subsystem","Export Just Assignments", "Publish to Clearinghouse",
1759                      ];                      ];
# Line 1841  Line 1844 
1844          @ssa = map { $ssa = $_; $name = $ssa; $ssa =~ s/[ \/]/_/g; [$name,$fig->subsystem_curator($ssa)] } grep { $_ !~ /^\./ } readdir(SSA);          @ssa = map { $ssa = $_; $name = $ssa; $ssa =~ s/[ \/]/_/g; [$name,$fig->subsystem_curator($ssa)] } grep { $_ !~ /^\./ } readdir(SSA);
1845          closedir(SSA);          closedir(SSA);
1846      }      }
1847        # RAE Adding sort of current subsystems
1848        if ($cgi->param('colsort') && $cgi->param('colsort') eq "curator")
1849        {
1850         # sort by the ss curator
1851         return sort { (lc $a->[1]) cmp (lc $b->[1]) || (lc $a->[0]) cmp (lc $b->[0]) } @ssa;
1852        }
1853        else
1854        {
1855      return sort { (lc $a->[0]) cmp (lc $b->[0]) } @ssa;      return sort { (lc $a->[0]) cmp (lc $b->[0]) } @ssa;
1856  }  }
1857    }
1858    
1859  sub ssa_link {  sub ssa_link {
1860      my($fig,$ssa,$user) = @_;      my($fig,$ssa,$user) = @_;

Legend:
Removed from v.1.80  
changed lines
  Added in v.1.81

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3