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

Diff of /FigWebServices/get_dlit.cgi

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

revision 1.2, Sun May 25 01:45:46 2008 UTC revision 1.3, Sun May 25 01:51:27 2008 UTC
# Line 79  Line 79 
79  {  {
80      if (opendir(CUR,"$FIG_Config::data/DlitByCurator/ByCurator"))      if (opendir(CUR,"$FIG_Config::data/DlitByCurator/ByCurator"))
81      {      {
82          my @cur = grep { $_ !~ /^\./ } readdir(CUR);          my @cur = sort grep { $_ !~ /^\./ } readdir(CUR);
83          my $curN = @cur;          my $curN = @cur;
84          push(@$html, $cgi->start_form(-action => "get_dlit.cgi", -method => 'post'),          push(@$html, $cgi->start_form(-action => "get_dlit.cgi", -method => 'post'),
85                       $cgi->hidden(-name => 'user', -value=>$user),                       $cgi->hidden(-name => 'user', -value=>$user),
# Line 99  Line 99 
99  {  {
100      if (opendir(CUR,"$FIG_Config::data/DlitByCurator/ByCurator/$curator"))      if (opendir(CUR,"$FIG_Config::data/DlitByCurator/ByCurator/$curator"))
101      {      {
102          my @roles    = grep { $_ !~ /^\./ } readdir(CUR);          my @roles    = sort grep { $_ !~ /^\./ } readdir(CUR);
103          push(@$html, $cgi->start_form(-action => "get_dlit.cgi", -method => 'post'),          push(@$html, $cgi->start_form(-action => "get_dlit.cgi", -method => 'post'),
104                       $cgi->hidden(-name => 'user', -value=>$user),                       $cgi->hidden(-name => 'user', -value=>$user),
105                       $cgi->hidden(-name => 'curator', -value=>$curator),                       $cgi->hidden(-name => 'curator', -value=>$curator),

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3