[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.3, Tue Feb 3 23:08:53 2004 UTC revision 1.9, Tue May 25 17:27:49 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 101  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 144  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 174  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 202  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 247  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"));
# Line 263  Line 267 
267    
268      my $user = $cgi->param('user');      my $user = $cgi->param('user');
269      my $set  = $cgi->param('set');      my $set  = $cgi->param('set');
270        my @flds = split(/:/,$set);
271        my $who = $flds[4];
272    
273      if ($user)      if ($user)
274      {      {
275          my $userR = $user;          my $userR = $user;
276          $userR =~ s/^master://;          if ($userR =~ s/^master://)
277          if (system("$FIG_Config::bin/fig assign_functionF $user $FIG_Config::data/Assignments/$userR/$set > /dev/null") == 0)          {
278                $who = "master:$who";
279            }
280    
281            if (system("$FIG_Config::bin/fig assign_functionF $who $FIG_Config::data/Assignments/$userR/$set > /dev/null") == 0)
282          {          {
283              push(@$html,$cgi->h1("Made Assignments from $set"));              push(@$html,$cgi->h1("Made Assignments from $set"));
284          }          }
# Line 315  Line 326 
326              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~"))
327              {              {
328                  if (open(IN,"<$FIG_Config::data/Assignments/$userR/$set~") &&                  if (open(IN,"<$FIG_Config::data/Assignments/$userR/$set~") &&
329                      open(OUT,"<$FIG_Config::data/Assignments/$userR/$set"))                      open(OUT,">$FIG_Config::data/Assignments/$userR/$set"))
330                  {                  {
331                      while (defined($line = <IN>))                      while (defined($line = <IN>))
332                      {                      {

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3