[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.71, Tue Apr 12 15:34:25 2005 UTC revision 1.72, Tue Apr 12 18:18:25 2005 UTC
# Line 732  Line 732 
732          push(@$html,$cgi->br);          push(@$html,$cgi->br);
733      }      }
734    
735      push(@$html, "<a href=\"/FIG/Html/conflict_resolution.html\" class=\"help\" target=\"help\">Help on conflict resolution</a>\n");      push(@$html, "<a href=\"/FIG/Html/conflict_resolution.html\" class=\"help\" target=\"help\">Help on conflict resolution</a>\n<br>\n");
736      push(@$html, "<a href=\"/FIG/Html/seedtips.html#edit_variants\" class=\"help\" target=\"help\">Help on editing variants</a>\n");      push(@$html, "<a href=\"/FIG/Html/seedtips.html#edit_variants\" class=\"help\" target=\"help\">Help on editing variants</a>\n<br>\n");
737    
738      if ($can_alter)      if ($can_alter)
739      {      {
# Line 1949  Line 1949 
1949      my($cgi,$subsystem,$org,$roles,$in) = @_;      my($cgi,$subsystem,$org,$roles,$in) = @_;
1950    
1951      my $just_genome = $cgi->param('just_genome');      my $just_genome = $cgi->param('just_genome');
1952      if (($just_genome =~ /(\d+\.\d+)/) && ($org != $1)) { return () }      if ($just_genome && ($just_genome =~ /(\d+\.\d+)/) && ($org != $1)) { return () }
1953    
1954      my $just_col = $cgi->param('just_col');      my $just_col = $cgi->param('just_col');
1955      my(@really_missing) = ();      my(@really_missing) = ();

Legend:
Removed from v.1.71  
changed lines
  Added in v.1.72

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3