[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.11, Wed Sep 22 22:18:35 2004 UTC revision 1.12, Mon Oct 18 21:30:35 2004 UTC
# Line 111  Line 111 
111  sub delete_link {  sub delete_link {
112      my($cgi,$set) = @_;      my($cgi,$set) = @_;
113    
114      return "<a href=" . $cgi->self_url() . "&request=delete_set&set=$set>delete</a>";      # modified by RAE so that this can be called from within assignments.cgi and the options can be changed.
115        return "<a href=" . $cgi->url() . "?user=".$cgi->param('user')."&request=delete_set&set=$set>delete</a>";
116        #return "<a href=" . $cgi->self_url() . "&request=delete_set&set=$set>delete</a>";
117  }  }
118    
119  sub accept_link {  sub accept_link {
# Line 259  Line 261 
261      if (-e "$FIG_Config::data/Assignments/$userR/$set")      if (-e "$FIG_Config::data/Assignments/$userR/$set")
262      {      {
263          unlink("$FIG_Config::data/Assignments/$userR/$set");          unlink("$FIG_Config::data/Assignments/$userR/$set");
264          push(@$html,$cgi->h1("Deleted set $set"));          push(@$html,$cgi->h2("Deleted set $set"));
265            push(@$html,$cgi->h2("<a href=" . $cgi->url() . "?user=".$cgi->param('user').">Return to Assignment Sets</a>"));
266      }      }
267      else      else
268      {      {
# Line 285  Line 288 
288    
289          if (system("$FIG_Config::bin/fig assign_functionF $who $FIG_Config::data/Assignments/$userR/$set > /dev/null") == 0)          if (system("$FIG_Config::bin/fig assign_functionF $who $FIG_Config::data/Assignments/$userR/$set > /dev/null") == 0)
290          {          {
291              push(@$html,$cgi->h1("Made Assignments from $set"));              push(@$html,$cgi->h2("Made Assignments from $set"));
292                my $dellink=&delete_link($cgi,$set);
293                $dellink =~ s/>delete</>Delete</;
294                push(@$html,$cgi->h2("$dellink this Assignment Set from the pending assignments"));
295          }          }
296          else          else
297          {          {

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3