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

Diff of /FigWebServices/ss_directed_compare_regions.cgi

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

revision 1.4, Tue Feb 10 20:15:01 2015 UTC revision 1.5, Tue Feb 10 20:28:47 2015 UTC
# Line 48  Line 48 
48  unshift @$html, "<TITLE>Subsystem-based compare-regions</TITLE>\n";  unshift @$html, "<TITLE>Subsystem-based compare-regions</TITLE>\n";
49  my $ss = $cgi->param('ss');  my $ss = $cgi->param('ss');
50  my $abbr = $cgi->param('abbr');  my $abbr = $cgi->param('abbr');
51    my $ss_name =$ss;
52    $ss_name =~ s/_/ /g;
53    #unshift @$html, "<TITLE>Subsystem-based compare-regions</TITLE>\n";
54    unshift @$html, "<TITLE>$abbr in $ss_name</TITLE>\n";
55    
56  if ((! $ss) || (! $abbr))  if ((! $ss) || (! $abbr))
57  {  {
# Line 70  Line 74 
74      exit;      exit;
75  }  }
76    
77    push(@$html, "<h1>Compare regions for role $abbr in $ss_name</h1>\n");
78  my $number_pegs = $cgi->param('n');  my $number_pegs = $cgi->param('n');
79  if (! $number_pegs) { $number_pegs = 10 }  if (! $number_pegs) { $number_pegs = 10 }
80  push(@$html, "<table>\n");  push(@$html, "<table>\n");

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3