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

Diff of /Sprout/RHLigands.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, Mon Aug 20 23:19:59 2007 UTC
# Line 40  Line 40 
40      my ($class, $shelp) = @_;      my ($class, $shelp) = @_;
41      # Create and bless the helper object.      # Create and bless the helper object.
42      my $retVal = ResultHelper::new($class, $shelp);      my $retVal = ResultHelper::new($class, $shelp);
43      # Return it.      # Bless and return it.
44        bless $retVal, $class;
45      return $retVal;      return $retVal;
46  }  }
47    
# Line 116  Line 117 
117          # Extract the ID and name.          # Extract the ID and name.
118          my ($id, $name) = $record->Values(['Ligand(id)', 'Ligand(name)']);          my ($id, $name) = $record->Values(['Ligand(id)', 'Ligand(name)']);
119          # Get the CGI object.          # Get the CGI object.
120          my $cgi = $rhelp->Q();          my $cgi = $rhelp->Parent()->Q();
121          # Create a tooltip for the ligand name.          # Create a tooltip for the ligand name.
122          $retVal = $cgi->a({ href => "http://blaster.docking.org/zinc/srchdbk.pl?zinc=$id;go=Query",          $retVal = $cgi->a({ href => "http://blaster.docking.org/zinc/srchdbk.pl?zinc=$id;go=Query",
123                              title => $name }, $id);                              title => $name }, $id);
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MCS Webmaster
 ViewVC Help
Powered by ViewVC 1.0.3