[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.4, Tue Feb 10 18:44:58 2004 UTC revision 1.5, Mon Feb 16 18:23:08 2004 UTC
# Line 1  Line 1 
   
1  use FIG;  use FIG;
2  my $fig = new FIG;  my $fig = new FIG;
3    
# Line 35  Line 34 
34      if ($cgi->param('delete checked entries'))      if ($cgi->param('delete checked entries'))
35      {      {
36          &delete_checked($fig,$cgi,$html);          &delete_checked($fig,$cgi,$html);
37            $cgi->delete('delete checked entries');
38            $cgi->delete("request");
39            $cgi->delete("set");
40          &show_initial($fig,$cgi,$html);          &show_initial($fig,$cgi,$html);
41      }      }
42      elsif    ($request eq "edit_set")      elsif    ($request eq "edit_set")
# Line 322  Line 324 
324              if (rename("$FIG_Config::data/Assignments/$userR/$set","$FIG_Config::data/Assignments/$userR/$set~"))              if (rename("$FIG_Config::data/Assignments/$userR/$set","$FIG_Config::data/Assignments/$userR/$set~"))
325              {              {
326                  if (open(IN,"<$FIG_Config::data/Assignments/$userR/$set~") &&                  if (open(IN,"<$FIG_Config::data/Assignments/$userR/$set~") &&
327                      open(OUT,"<$FIG_Config::data/Assignments/$userR/$set"))                      open(OUT,">$FIG_Config::data/Assignments/$userR/$set"))
328                  {                  {
329                      while (defined($line = <IN>))                      while (defined($line = <IN>))
330                      {                      {

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3