[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.3, Tue Feb 10 19:59:29 2015 UTC revision 1.4, Tue Feb 10 20:15:01 2015 UTC
# Line 72  Line 72 
72    
73  my $number_pegs = $cgi->param('n');  my $number_pegs = $cgi->param('n');
74  if (! $number_pegs) { $number_pegs = 10 }  if (! $number_pegs) { $number_pegs = 10 }
75    push(@$html, "<table>\n");
76  while (@pegs > 0)  while (@pegs > 0)
77  {  {
78      my $sz = (@pegs > $number_pegs) ? $number_pegs : @pegs;      my $sz = (@pegs > $number_pegs) ? $number_pegs : @pegs;
79      my @batch = splice(@pegs,0,$sz);      my @batch = splice(@pegs,0,$sz);
80      my @bpegs = map { $_->[0] } @batch;      my @bpegs = map { $_->[0] } @batch;
81      my $start_href = &link(\@bpegs);      my $start_href = &link(\@bpegs);
82      my $start_link = "<a target=_blank href=$start_href>$batch[0]->[0] $batch[0]->[2]</a><br>\n";      my $start_link = "<a target=_blank href=$start_href>$batch[0]->[0]</a><br>\n";
83      push(@$html,"<br><br>",$start_link,"<br>\n");      #push(@$html,"<br><br>",$start_link,"<br>\n");
84        push(@$html,"<tr><td>",$start_link,"</td><td>$batch[0]->[2]</td></tr>\n");
85    
86      push(@$html, "<a target=_blank href='$FIG_Config::cgi_url/seedviewer.cgi?feature=$_->[0]'>$_->[0]</a><br>\n") foreach @batch;      #push(@$html, "<a target=_blank href='$FIG_Config::cgi_url/seedviewer.cgi?page=Annotation&feature=$_->[0]'>$_->[0]</a><br>\n") foreach @batch;
87    
88  }  }
89    push(@$html, "</table>\n");
90    
91  &HTML::show_page($cgi,$html);  &HTML::show_page($cgi,$html);
92    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3