[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.13, Sun Jan 23 16:54:49 2005 UTC revision 1.14, Wed Oct 12 21:03:16 2005 UTC
# Line 104  Line 104 
104      my($cgi,$set) = @_;      my($cgi,$set) = @_;
105    
106      # modified by RAE so that this can be called from within assignments.cgi and the options can be changed.      # modified by RAE so that this can be called from within assignments.cgi and the options can be changed.
107      return "<a href=" . $cgi->url() . "?user=".$cgi->param('user') . "&request=edit_set&set=$set&all=0>edit</a>" . "/" .      return "<a href=" . $cgi->url(-relative => 1) . "?user=".$cgi->param('user') . "&request=edit_set&set=$set&all=0>edit</a>" . "/" .
108             "<a href=" . $cgi->url() . "?user=".$cgi->param('user') . "&request=edit_set&set=$set&all=1>examine</a>";             "<a href=" . $cgi->url(-relative => 1) . "?user=".$cgi->param('user') . "&request=edit_set&set=$set&all=1>examine</a>";
109  }  }
110    
111  sub delete_link {  sub delete_link {
112      my($cgi,$set) = @_;      my($cgi,$set) = @_;
113    
114      # modified by RAE so that this can be called from within assignments.cgi and the options can be changed.      # 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>";      return "<a href=" . $cgi->url(-relative => 1) . "?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>";      #return "<a href=" . $cgi->self_url() . "&request=delete_set&set=$set>delete</a>";
117  }  }
118    
# Line 120  Line 120 
120      my($cgi,$set) = @_;      my($cgi,$set) = @_;
121    
122      # modified by RAE so that this can be called from within assignments.cgi and the options can be changed.      # modified by RAE so that this can be called from within assignments.cgi and the options can be changed.
123      return "<a href=" . $cgi->url() . "?user=".$cgi->param('user')."&request=accept_set&set=$set>accept</a>";      return "<a href=" . $cgi->url(-relative => 1) . "?user=".$cgi->param('user')."&request=accept_set&set=$set>accept</a>";
124  }  }
125    
126  sub assignment_sets {  sub assignment_sets {
# Line 264  Line 264 
264      {      {
265          unlink("$FIG_Config::data/Assignments/$userR/$set");          unlink("$FIG_Config::data/Assignments/$userR/$set");
266          push(@$html,$cgi->h2("Deleted set $set"));          push(@$html,$cgi->h2("Deleted set $set"));
267          push(@$html,$cgi->h2("<a href=" . $cgi->url() . "?user=".$cgi->param('user').">Return to Assignment Sets</a>"));          push(@$html,$cgi->h2("<a href=" . $cgi->url(-relative => 1) . "?user=".$cgi->param('user').">Return to Assignment Sets</a>"));
268      }      }
269      else      else
270      {      {

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3