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

Diff of /FigWebServices/array2sub.cgi

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

revision 1.8, Wed Jul 27 02:23:02 2005 UTC revision 1.10, Mon Aug 1 16:29:22 2005 UTC
# Line 12  Line 12 
12    
13          push (@$html, "<TITLE>Connect Differentially Expressed Pegs to Subsystems</TITLE>");          push (@$html, "<TITLE>Connect Differentially Expressed Pegs to Subsystems</TITLE>");
14          push(@$html, $cgi->br,$cgi->hr);          push(@$html, $cgi->br,$cgi->hr);
15          push(@$html,$cgi->h3("Subsytems"));          push(@$html,$cgi->h3("Subsystems"));
16          my $genome_string = $cgi->param('genome');          my $genome_string = $cgi->param('genome');
17          my @string_parts = split(", ",$genome_string);          my @string_parts = split(", ",$genome_string);
18          my $genome = $string_parts[1];          my $genome = $string_parts[1];
# Line 41  Line 41 
41          }          }
42          my @list = keys(%list_of_ss);          my @list = keys(%list_of_ss);
43    
44          my $prefix = "$FIG_Config::cgi_url"."/subsys.cgi?user=&ssa_name=";          my $prefix = &FIG::cgi_url() . "/subsys.cgi?user=&ssa_name=";
45          my $suffix = "&request=show_ssa";          my $suffix = "&request=show_ssa";
46          push(@$html,"<TABLE>");          push(@$html,"<TABLE>");
47          foreach my $s (@list)          foreach my $s (@list)
# Line 52  Line 52 
52           }           }
53           push(@$html,"</TABLE>",$cgi->hr);           push(@$html,"</TABLE>",$cgi->hr);
54    
55           push(@$html,$cgi->h3("Pegs Not in Subsytem"));           push(@$html,$cgi->h3("Pegs Not in Subsystem"));
56           push(@$html,"<TABLE>");           push(@$html,"<TABLE>");
57    
58           foreach my $p (@pegs_with_no_ss)           foreach my $p (@pegs_with_no_ss)
59           {           {
60                  my $url ="<a href="."$FIG_Config::cgi_url"."/protein.cgi?prot=$p&user=".">$p</a>";                  my $cgi = &FIG::cgi_url();
61                    my $url =qq(<a href="$cgi/protein.cgi?prot=$p&user=">$p</a>);
62                  push(@$html,"<TR><TD>$url</TD></TR>");                  push(@$html,"<TR><TD>$url</TD></TR>");
63           }           }
64           push(@$html,"</TABLE>");           push(@$html,"</TABLE>");

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.10

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3