[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.3, Thu Dec 6 14:58:03 2007 UTC
# Line 21  Line 21 
21    
22  =head3 new  =head3 new
23    
24  C<< my $rhelp = RHLigands->new($shelp); >>      my $rhelp = RHLigands->new($shelp);
25    
26  Construct a new RHLigands object.  Construct a new RHLigands object.
27    
# 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    
48  =head3 DefaultResultColumns  =head3 DefaultResultColumns
49    
50  C<< my @colNames = $rhelp->DefaultResultColumns(); >>      my @colNames = $rhelp->DefaultResultColumns();
51    
52  Return a list of the default columns to be used by searches with this  Return a list of the default columns to be used by searches with this
53  type of result. Note that the actual default columns are computed by  type of result. Note that the actual default columns are computed by
# Line 66  Line 67 
67    
68  =head3 zincId  =head3 zincId
69    
70  C<< my $colDatum = RHLigands::zincId($type => $rhelp, $key); >>      my $colDatum = RHLigands::zincId($type => $rhelp, $key);
71    
72  This method computes the various things we need to know into order to process  This method computes the various things we need to know into order to process
73  the zincId column.  the zincId column.
# 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.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3