[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.10, Fri Jun 4 20:40:21 2004 UTC revision 1.11, Wed Sep 22 22:18:35 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&all=0>edit</a>" . "/" .      # modified by RAE so that this can be called from within assignments.cgi and the options can be changed.
107             "<a href=" . $cgi->self_url() . "&request=edit_set&set=$set&all=1>examine</a>";      return "<a href=" . $cgi->url() . "?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>";
109  }  }
110    
111  sub delete_link {  sub delete_link {
# Line 116  Line 117 
117  sub accept_link {  sub accept_link {
118      my($cgi,$set) = @_;      my($cgi,$set) = @_;
119    
120      return "<a href=" . $cgi->self_url() . "&request=accept_set&set=$set>accept</a>";      # modified by RAE so that this can be called from within assignments.cgi and the options can be changed.
121        return "<a href=" . $cgi->url() . "?user=".$cgi->param('user')."&request=accept_set&set=$set>accept</a>";
122  }  }
123    
124  sub assignment_sets {  sub assignment_sets {
# Line 228  Line 230 
230              {              {
231                  push(@$html,&HTML::make_table($col_hdrs,$tab,""));                  push(@$html,&HTML::make_table($col_hdrs,$tab,""));
232                  push(@$html,$cgi->submit("delete checked entries"));                  push(@$html,$cgi->submit("delete checked entries"));
233                    # modified by RAE to include these links at the bottom of the page so that you can accept after reviewing
234                    push(@$html,"<p><b>", &accept_link($cgi, $set), "/", &edit_link($cgi, $set), " these annotations</b></p>");
235              }              }
236              else              else
237              {              {

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3