[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.78, Thu Jun 9 16:58:01 2005 UTC revision 1.79, Fri Jun 17 19:38:31 2005 UTC
# Line 138  Line 138 
138      }      }
139      elsif    ($request eq "show_ssa")      elsif    ($request eq "show_ssa")
140      {      {
141            if ($_ = $cgi->param('check'))
142            {
143                push(@$html,$cgi->h1('CHECKING SUBSYSTEM'),
144                            &check_ssa($fig,$cgi),
145                            $cgi->hr
146                     );
147            }
148          &one_cycle($fig,$cgi,$html);          &one_cycle($fig,$cgi,$html);
149      }      }
150      #      #
# Line 1849  Line 1856 
1856      my $can_alter = $fig->subsystem_curator($ssa) eq $user;      my $can_alter = $fig->subsystem_curator($ssa) eq $user;
1857    
1858      my $esc_ssa = uri_escape($ssa);      my $esc_ssa = uri_escape($ssa);
1859      my $url = &FIG::cgi_url . "/subsys.cgi?user=$user&ssa_name=$esc_ssa&request=show_ssa&can_alter=$can_alter";      my $url = &FIG::cgi_url . "/subsys.cgi?user=$user&ssa_name=$esc_ssa&request=show_ssa&can_alter=$can_alter&check=1&sort=by_phylo&show_clusters=1";
1860      return "<a href=$url target=$target>$name</a>";      return "<a href=$url target=$target>$name</a>";
1861  }  }
1862    
# Line 3016  Line 3023 
3023      }      }
3024      return @seqs;      return @seqs;
3025  }  }
3026    
3027    sub check_ssa {
3028        my($fig,$cgi) = @_;
3029    
3030        my $user = $cgi->param('user');
3031        my $ssa  = $cgi->param('ssa_name');
3032        my $checked;
3033        if ($user && $ssa)
3034        {
3035            $ENV{'REQUEST_METHOD'} = 'GET';
3036            $ENV{'QUERY_STRING'} = "user=$user&subsystem=$ssa&request=check_ssa";
3037            $checked = join("",`$FIG_Config::fig/CGI/check_subsys.cgi`);
3038            if ($checked =~ /^.*?(<form .*form>)/s)
3039            {
3040                return $1;
3041            }
3042        }
3043        return "";
3044    }
3045    

Legend:
Removed from v.1.78  
changed lines
  Added in v.1.79

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3