[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.9, Tue May 25 17:27:49 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 191  Line 193 
193                           $cgi->hidden(-name => 'set', -value => $set)                           $cgi->hidden(-name => 'set', -value => $set)
194                   );                   );
195    
196              $col_hdrs = ["delete","PEG","Functions"];              $col_hdrs = ["delete","PEG","Proposed Function", "Current function"];
197              $tab      = [];              $tab      = [];
198              my @keep = ();              my @keep = ();
199              while (defined($line = <SET>))              while (defined($line = <SET>))
# Line 206  Line 208 
208                      push(@$tab,[                      push(@$tab,[
209                                  $cgi->checkbox(-name => 'checked', -value => $peg, -checked => 0,-override => 1),                                  $cgi->checkbox(-name => 'checked', -value => $peg, -checked => 0,-override => 1),
210                                  &HTML::fid_link($cgi,$peg),                                  &HTML::fid_link($cgi,$peg),
211                                  "\@nowrap:$func1<br>$func2"                                  $func1, $func2
212    #                               "\@nowrap:$func1<br>$func2"
213                                 ]                                 ]
214                           );                           );
215                  }                  }
# Line 227  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.9  
changed lines
  Added in v.1.11

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3