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

Diff of /FigWebServices/subsys.cgi

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

revision 1.175, Sat Aug 19 22:29:15 2006 UTC revision 1.176, Wed Aug 30 18:39:19 2006 UTC
# Line 266  Line 266 
266          &show_initial($fig,$cgi,$html);          &show_initial($fig,$cgi,$html);
267      }      }
268      elsif (($request eq "delete_or_export_ssa") && $user &&      elsif (($request eq "delete_or_export_ssa") && $user &&
269                  defined($cgi->param('nmpdr_save')))                  defined($cgi->param('save_clicks')))
270      {      {
271          my @userss=$cgi->param("users_ss");          my @userss=$cgi->param("users_ss");
272          my %nmpdrss=map {($_=>1)} $cgi->param("nmpdr_ss");          my %nmpdrss=map {($_=>1)} $cgi->param("nmpdr_ss");
   
         foreach my $ssa (@userss)  
         {  
             $nmpdrss{$ssa} ? $fig->nmpdr_subsystem($ssa, 1) : $fig->nmpdr_subsystem($ssa, -1);  
         }  
         &manage_subsystems($fig,$cgi,$html);  
     }  
     elsif (($request eq "delete_or_export_ssa") && $user &&  
                 defined($cgi->param('dist_save')))  
     {  
         my @userss=$cgi->param("users_ss");  
273          my %distss=map {($_=>1)} $cgi->param("dist_ss");          my %distss=map {($_=>1)} $cgi->param("dist_ss");
274            my %autoss=map {($_=>1)} $cgi->param("auto_update_ok");
275    
276          foreach my $ssa (@userss)          foreach my $ssa (@userss)
277          {          {
278                $nmpdrss{$ssa} ? $fig->nmpdr_subsystem($ssa, 1) : $fig->nmpdr_subsystem($ssa, -1);
279              $distss{$ssa} ? $fig->distributable_subsystem($ssa, 1) : $fig->distributable_subsystem($ssa, -1);              $distss{$ssa} ? $fig->distributable_subsystem($ssa, 1) : $fig->distributable_subsystem($ssa, -1);
280                $autoss{$ssa}  ? $fig->ok_to_auto_update_subsys($ssa, 1) : $fig->ok_to_auto_update_subsys($ssa, -1);
281          }          }
282          &manage_subsystems($fig,$cgi,$html);          &manage_subsystems($fig,$cgi,$html);
283      }      }
# Line 2885  Line 2877 
2877      my $col_hdrs = [      my $col_hdrs = [
2878                      "<a href='" . &FIG::cgi_url . "/subsys.cgi?user=$user&request=manage_ss'>Name</a><br><small>Sort by Subsystem</small>",                      "<a href='" . &FIG::cgi_url . "/subsys.cgi?user=$user&request=manage_ss'>Name</a><br><small>Sort by Subsystem</small>",
2879                      "<a href='" . &FIG::cgi_url . "/subsys.cgi?user=$user&colsort=curator&request=manage_ss'>Curator</a><br><small>Sort by curator</small>",                      "<a href='" . &FIG::cgi_url . "/subsys.cgi?user=$user&colsort=curator&request=manage_ss'>Curator</a><br><small>Sort by curator</small>",
2880                      "NMPDR<br>Subsystem", "Distributable<br>Subsystem", "Exchangable","Version",                      "NMPDR<br>Subsystem", "Distributable<br>Subsystem", "OK to Automatically<br>Extend", "Exchangable","Version",
2881                      "Reset to Previous Timestamp","Delete",                      "Reset to Previous Timestamp","Delete",
2882                      "Export Full Subsystem","Export Just Assignments", "Publish to Clearinghouse", "Reindex Subsystem",                      "Export Full Subsystem","Export Just Assignments", "Publish to Clearinghouse", "Reindex Subsystem",
2883                      ];                      ];
# Line 2924  Line 2916 
2916              $dist=$cgi->checkbox(-name=> "dist_ss", -value=>$ssa, -label=>"", -checked=>$fig->distributable_subsystem($ssa));              $dist=$cgi->checkbox(-name=> "dist_ss", -value=>$ssa, -label=>"", -checked=>$fig->distributable_subsystem($ssa));
2917          }          }
2918    
2919            # do we want to allow this to be automatically updated
2920            my $auto_update;
2921            if ($curator eq $user)
2922            {
2923                    $auto_update=$cgi->checkbox(-name=> "auto_update_ok", -value=>$ssa, -label=>"", -checked=>$fig->ok_to_auto_update_subsys($ssa));
2924            }
2925    
2926          if (($fig->is_exchangable_subsystem($ssa)) && ($curator eq $user))          if (($fig->is_exchangable_subsystem($ssa)) && ($curator eq $user))
2927          {          {
# Line 2968  Line 2966 
2966                      $curator,                      $curator,
2967                      $nmpdr,                      $nmpdr,
2968                      $dist,                      $dist,
2969                        $auto_update,
2970                      $link1,                      $link1,
2971                      $fig->subsystem_version($ssa),                      $fig->subsystem_version($ssa),
2972                      $link,                      $link,
# Line 2982  Line 2981 
2981           $cgi->hidden(-name => "users_ss",           $cgi->hidden(-name => "users_ss",
2982                          -value=> $userss),                          -value=> $userss),
2983           $cgi->hidden(-name => "manage"),           $cgi->hidden(-name => "manage"),
2984           $cgi->submit(-name => "nmpdr_save",           $cgi->submit(-name => "save_clicks",
2985                        -label => "Process NMPDR"),                        -label => "Process Choices"),
          $cgi->submit(-name => "dist_save",  
                       -label => "Process Distributions"),  
2986           $cgi->submit(-name => 'delete_export',           $cgi->submit(-name => 'delete_export',
2987                        -label => 'Process marked deletions and exports'),                        -label => 'Process marked deletions and exports'),
2988           $cgi->submit(-name => 'publish',           $cgi->submit(-name => 'publish',

Legend:
Removed from v.1.175  
changed lines
  Added in v.1.176

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3