[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.6, Mon Jan 19 21:56:19 2009 UTC revision 1.7, Mon Mar 2 22:27:55 2009 UTC
# Line 281  Line 281 
281  =cut  =cut
282    
283  sub DefaultResultColumns {  sub DefaultResultColumns {
284      return qw(orgName nextFeature nextFeatureFunction nextFeatureLink compareLink);      return qw(nextFeature orgName nextFeatureFunction compareLink);
285  }  }
286    
287  =head3 GetColumnNameList  =head3 GetColumnNameList
# Line 459  Line 459 
459              # No nearby feature, so we don't return anything.              # No nearby feature, so we don't return anything.
460              $retVal = "";              $retVal = "";
461          } else {          } else {
462              # Get the feature's ID.              # Get the feature's preferred ID.
463              $retVal = $rhelp->PreferredID($feature);              $retVal = $rhelp->PreferredID($feature);
464                # Get its real ID.
465                my $fid = $feature->PrimaryValue('id');
466                # If we're a run-time value. Link it to the seed viewer page.
467                if ($type eq 'runTimeValue') {
468                    $retVal = CGI::a({ href => "$FIG_Config::cgi_url/wiki/rest.cgi/NmpdrPlugin/SeedViewer?page=Annotation;feature=$fid" },
469                             $retVal);
470                }
471          }          }
472      }      }
473      return $retVal;      return $retVal;
# Line 645  Line 652 
652          my $genomeID = $record->PrimaryValue('Location(genome)');          my $genomeID = $record->PrimaryValue('Location(genome)');
653          # Ask the parent for the organism name. This will usually be in a cache.          # Ask the parent for the organism name. This will usually be in a cache.
654          $retVal = $shelp->Organism($genomeID);          $retVal = $shelp->Organism($genomeID);
655            # Convert it to a hyperlink.
656            $retVal = CGI::a({ href => "$FIG_Config::cgi_url/wiki/rest.cgi/NmpdrPlugin/SeedViewer?page=Organism;organism=$genomeID" },
657                             $retVal);
658      } elsif ($type eq 'runTimeValue') {      } elsif ($type eq 'runTimeValue') {
659          # Run-time support is not needed for this column.          # Run-time support is not needed for this column.
660      } elsif ($type eq 'valueFromKey') {      } elsif ($type eq 'valueFromKey') {

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3