[Bio] / FigWebServices / ssa2.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/ssa2.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18, Wed Jun 16 16:52:10 2004 UTC revision 1.19, Fri Jun 18 14:17:12 2004 UTC
# Line 1210  Line 1210 
1210      my($cgi,$html,$user,$ssaP) = @_;      my($cgi,$html,$user,$ssaP) = @_;
1211      my($ssa,$curator);      my($ssa,$curator);
1212      my($url1,$link1);      my($url1,$link1);
     my($publish_checkbox);  
1213    
1214      my $can_alter = $cgi->param('can_alter');      my $can_alter = $cgi->param('can_alter');
1215      push(@$html, $cgi->start_form(-action => "ssa2.cgi",      push(@$html, $cgi->start_form(-action => "ssa2.cgi",
# Line 1239  Line 1238 
1238      my $tab = [];      my $tab = [];
1239      foreach $_ (@$ssaP)      foreach $_ (@$ssaP)
1240      {      {
1241            my($publish_checkbox);
1242          ($ssa,$curator) = @$_;          ($ssa,$curator) = @$_;
1243    
1244    
1245    warn "In list: ssa=$ssa curator=$curator user=", $cgi->param("user"), "\n";
1246          my($url,$link);          my($url,$link);
1247          if ((-d "$FIG_Config::data/Subsystems/$ssa/Backup") && ($curator eq $cgi->param('user')))          if ((-d "$FIG_Config::data/Subsystems/$ssa/Backup") && ($curator eq $cgi->param('user')))
1248          {          {

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3