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

Diff of /FigWebServices/assignments.cgi

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

revision 1.5, Mon Feb 16 18:23:08 2004 UTC revision 1.9, Tue May 25 17:27:49 2004 UTC
# Line 103  Line 103 
103  sub edit_link {  sub edit_link {
104      my($cgi,$set) = @_;      my($cgi,$set) = @_;
105    
106      return "<a href=" . $cgi->self_url() . "&request=edit_set&set=$set>edit</a>";      return "<a href=" . $cgi->self_url() . "&request=edit_set&set=$set&all=0>edit</a>" . "/" .
107               "<a href=" . $cgi->self_url() . "&request=edit_set&set=$set&all=1>examine</a>";
108  }  }
109    
110  sub delete_link {  sub delete_link {
# Line 146  Line 147 
147          }          }
148          else          else
149          {          {
150              returnb ($whenA[6] cmp $whenB[6]);              return ($whenA[6] cmp $whenB[6]);
151          }          }
152      }      }
153      return ($a cmp $b);      return ($a cmp $b);
# Line 176  Line 177 
177      }      }
178    
179      my $target = "window$$";      my $target = "window$$";
180      if (-s "$FIG_Config::data/Assignments/$userR/$set")      if (-e "$FIG_Config::data/Assignments/$userR/$set")
181      {      {
182          if (open(SET,"<$FIG_Config::data/Assignments/$userR/$set"))          if (open(SET,"<$FIG_Config::data/Assignments/$userR/$set"))
183          {          {
184              push(@$html, $cgi->h1("Edit Set $set"),              my $op = $cgi->param('all') ? "Examine" : "Edit";
185                push(@$html, $cgi->h1("$op Set $set"),
186                           $cgi->start_form(-method => 'post',                           $cgi->start_form(-method => 'post',
187                                            -target => $target,                                            -target => $target,
188                                            -action => 'assignments.cgi'                                            -action => 'assignments.cgi'
# Line 204  Line 206 
206                      push(@$tab,[                      push(@$tab,[
207                                  $cgi->checkbox(-name => 'checked', -value => $peg, -checked => 0,-override => 1),                                  $cgi->checkbox(-name => 'checked', -value => $peg, -checked => 0,-override => 1),
208                                  &HTML::fid_link($cgi,$peg),                                  &HTML::fid_link($cgi,$peg),
209                                  "$func1<br>$func2"                                  "\@nowrap:$func1<br>$func2"
210                                 ]                                 ]
211                           );                           );
212                  }                  }
213              }              }
214              close(SET);              close(SET);
215    
216              if (open(SET,">$FIG_Config::data/Assignments/$userR/$set"))  #           if (open(SET,">$FIG_Config::data/Assignments/$userR/$set"))
217              {  #           {
218                  foreach $line (@keep)  #               foreach $line (@keep)
219                  {  #               {
220                      print SET $line;  #                   print SET $line;
221                  }  #               }
222                  close(SET);  #               close(SET);
223                  chmod(0777,"$FIG_Config::data/Assignments/$userR/$set");  #               chmod(0777,"$FIG_Config::data/Assignments/$userR/$set");
224              }  #           }
225    
226              if (@$tab > 0)              if (@$tab > 0)
227              {              {
228                  push(@$html,&HTML::make_table($col_hdrs,$tab,"",["nowrap"]));                  push(@$html,&HTML::make_table($col_hdrs,$tab,""));
229                  push(@$html,$cgi->submit("delete checked entries"));                  push(@$html,$cgi->submit("delete checked entries"));
230              }              }
231              else              else
# Line 249  Line 251 
251      my $userR = $user;      my $userR = $user;
252      $userR =~ s/^master://;      $userR =~ s/^master://;
253      my $set  = $cgi->param('set');      my $set  = $cgi->param('set');
254      if (-s "$FIG_Config::data/Assignments/$userR/$set")      if (-e "$FIG_Config::data/Assignments/$userR/$set")
255      {      {
256          unlink("$FIG_Config::data/Assignments/$userR/$set");          unlink("$FIG_Config::data/Assignments/$userR/$set");
257          push(@$html,$cgi->h1("Deleted set $set"));          push(@$html,$cgi->h1("Deleted set $set"));

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.9

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3