[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.2, Fri Jan 16 14:59:48 2004 UTC revision 1.3, Tue Feb 3 23:08:53 2004 UTC
# Line 1  Line 1 
1    
2  use FIG;  use FIG;
3  my $fig = new FIG;  my $fig = new FIG;
4    
# Line 188  Line 189 
189    
190              $col_hdrs = ["delete","PEG","Functions"];              $col_hdrs = ["delete","PEG","Functions"];
191              $tab      = [];              $tab      = [];
192                my @keep = ();
193              while (defined($line = <SET>))              while (defined($line = <SET>))
194              {              {
195                  chop $line;                  chop $line;
# Line 196  Line 198 
198                  $func2 = &func_of($fig,$peg,$user);                  $func2 = &func_of($fig,$peg,$user);
199                  if ($func1 ne $func2)                  if ($func1 ne $func2)
200                  {                  {
201                        push(@keep,"$line\n");
202                      push(@$tab,[                      push(@$tab,[
203                                  $cgi->checkbox(-name => 'checked', -value => $peg, -checked => 1,-override => 1),                                  $cgi->checkbox(-name => 'checked', -value => $peg, -checked => 0,-override => 1),
204                                  &HTML::fid_link($cgi,$peg),                                  &HTML::fid_link($cgi,$peg),
205                                  "$func1<br>$func2"                                  "$func1<br>$func2"
206                                 ]                                 ]
# Line 205  Line 208 
208                  }                  }
209              }              }
210              close(SET);              close(SET);
211    
212                if (open(SET,">$FIG_Config::data/Assignments/$userR/$set"))
213                {
214                    foreach $line (@keep)
215                    {
216                        print SET $line;
217                    }
218                    close(SET);
219                    chmod(0777,"$FIG_Config::data/Assignments/$userR/$set");
220                }
221    
222              if (@$tab > 0)              if (@$tab > 0)
223              {              {
224                  push(@$html,&HTML::make_table($col_hdrs,$tab,"",["nowrap"]));                  push(@$html,&HTML::make_table($col_hdrs,$tab,"",["nowrap"]));

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3