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

Diff of /Sprout/RHLocations.pm

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

revision 1.1, Mon Jul 16 20:04:51 2007 UTC revision 1.2, Wed Jul 25 16:19:26 2007 UTC
# Line 280  Line 280 
280  =cut  =cut
281    
282  sub DefaultResultColumns {  sub DefaultResultColumns {
283      return qw(orgName compareLink nextFeature nextFeatureFunction nextFeatureLink);      return qw(orgName nextFeature nextFeatureFunction nextFeatureLink compareLink);
284  }  }
285    
286  =head2 Column Methods  =head2 Column Methods
# Line 347  Line 347 
347              my $shelp = $rhelp->Parent;              my $shelp = $rhelp->Parent;
348              my $session = $shelp->ID();              my $session = $shelp->ID();
349              my $fid = $feature->PrimaryValue('Feature(id)');              my $fid = $feature->PrimaryValue('Feature(id)');
350              $retVal = $rhelp->Formlet('Context', "patscanresult.cgi", undef,              $retVal = $rhelp->FakeButton('Context', "patscanresult.cgi", undef,
351                                        page => 'genome_regions', peg => $fid,                                        page => 'genome_regions', peg => $fid,
352                                        file => "tmp_$session.cache",                                        file => "tmp_$session.cache",
353                                        SPROUT => 1);                                        SPROUT => 1);
# Line 517  Line 517 
517      my $retVal;      my $retVal;
518      # Process according to the information requested.      # Process according to the information requested.
519      if ($type eq 'title') {      if ($type eq 'title') {
520          # Formlets don't need a column title.          # Links don't need a column title.
521          $retVal = '';          $retVal = '';
522      } elsif ($type eq 'download') {      } elsif ($type eq 'download') {
523          # This field should be included in a download.          # This field should be included in a download.
# Line 537  Line 537 
537          } else {          } else {
538              # Create a formlet for the feature's page.              # Create a formlet for the feature's page.
539              my $fid = $feature->PrimaryValue('Feature(id)');              my $fid = $feature->PrimaryValue('Feature(id)');
540              $retVal = $rhelp->Formlet('NMPDR', "protein.cgi", undef,              $retVal = $rhelp->FakeButton('NMPDR', "protein.cgi", undef,
541                                        prot => $fid, SPROUT => 1, new_framework => 0,                                        prot => $fid, SPROUT => 1, new_framework => 0,
542                                        user => '');                                        user => '');
543          }          }

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3