[Bio] / Sprout / SHPropSearch.pm Repository:
ViewVC logotype

Diff of /Sprout/SHPropSearch.pm

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

revision 1.7, Thu Dec 6 14:58:03 2007 UTC revision 1.8, Mon Jan 19 21:56:19 2009 UTC
# Line 4  Line 4 
4    
5      use strict;      use strict;
6      use Tracer;      use Tracer;
7      use CGI;      use CGI qw(-nosticky);
8      use HTML;      use HTML;
9      use Sprout;      use Sprout;
10      use RHFeatures;      use RHFeatures;
# Line 57  Line 57 
57      my @rows = ();      my @rows = ();
58      # First, we generate the genome menu.      # First, we generate the genome menu.
59      my $genomeMenu = $self->NmpdrGenomeMenu('genome', 0, [$cgi->param('genome')]);      my $genomeMenu = $self->NmpdrGenomeMenu('genome', 0, [$cgi->param('genome')]);
60      push @rows, $cgi->Tr($cgi->td({valign => "top"}, "Genome"),      push @rows, CGI::Tr(CGI::td({valign => "top"}, "Genome"),
61                           $cgi->td({colspan => 2}, $genomeMenu));                           CGI::td({colspan => 2}, $genomeMenu));
62      # Now add the property rows.      # Now add the property rows.
63      my @pairs = grep { $_ } $cgi->param('propertyPair');      my @pairs = grep { $_ } $cgi->param('propertyPair');
64      Trace(scalar(@pairs) . " property pairs read from CGI.") if T(3);      Trace(scalar(@pairs) . " property pairs read from CGI.") if T(3);
65      for (my $i = 1; $i <= $FIG_Config::prop_search_limit; $i++) {      for (my $i = 1; $i <= $FIG_Config::prop_search_limit; $i++) {
66          my $thisPair = shift @pairs;          my $thisPair = shift @pairs;
67          Trace("\"$thisPair\" popped from pairs array. " . scalar(@pairs) . " entries left.") if T(3);          Trace("\"$thisPair\" popped from pairs array. " . scalar(@pairs) . " entries left.") if T(3);
68          push @rows, $cgi->Tr($cgi->td("Name=Value ($i)"),          push @rows, CGI::Tr(CGI::td("Name=Value ($i)"),
69                               $cgi->td({colspan => 2}, $cgi->textfield(-name => 'propertyPair',                               CGI::td({colspan => 2}, CGI::textfield(-name => 'propertyPair',
70                                                                        -value => $thisPair,                                                                        -value => $thisPair,
                                                                       -override => 1,  
71                                                                        -size => 40)));                                                                        -size => 40)));
72      }      }
73      # Finally, the submit row.      # Finally, the submit row.
# Line 186  Line 185 
185                                                           'HasProperty(evidence)']);                                                           'HasProperty(evidence)']);
186                  # If the evidence is a URL, format it as a link; otherwise, ignore it.                  # If the evidence is a URL, format it as a link; otherwise, ignore it.
187                  if ($url =~ m!http://!) {                  if ($url =~ m!http://!) {
188                      push @extraCols, $cgi->a({href => $url}, $value);                      push @extraCols, CGI::a({href => $url}, $value);
189                  } else {                  } else {
190                      push @extraCols, $value;                      push @extraCols, $value;
191                  }                  }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3