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

Diff of /Sprout/SHDrugSearch.pm

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

revision 1.9, Mon Jul 16 20:04:51 2007 UTC revision 1.11, Thu Dec 6 14:58:03 2007 UTC
# Line 8  Line 8 
8      use HTML;      use HTML;
9      use Sprout;      use Sprout;
10      use RHLigands;      use RHLigands;
11        use Tracer;
12      use base 'SearchHelper';      use base 'SearchHelper';
13    
14  =head1 Drug Target PDB Docking Results Search Helper  =head1 Drug Target PDB Docking Results Search Helper
# Line 53  Line 54 
54    
55  =head3 GetCategory  =head3 GetCategory
56    
57  C<< my $description = SHDrugSearch::GetCategory($code); >>      my $description = SHDrugSearch::GetCategory($code);
58    
59  Return the description of the specified category code.  Return the description of the specified category code.
60    
# Line 90  Line 91 
91    
92  =head3 PDBLink  =head3 PDBLink
93    
94  C<< my $pdbHtml = SHDrugSearch::PDBLink($cgi, $pdbID); >>      my $pdbHtml = SHDrugSearch::PDBLink($cgi, $pdbID);
95    
96  This method converts a PDB ID to a hyperlink into the PDB web site.  This method converts a PDB ID to a hyperlink into the PDB web site.
97    
# Line 129  Line 130 
130    
131  =head3 Form  =head3 Form
132    
133  C<< my $html = $shelp->Form(); >>      my $html = $shelp->Form();
134    
135  Generate the HTML for a form to request a new search.  Generate the HTML for a form to request a new search.
136    
# Line 170  Line 171 
171    
172  =head3 Find  =head3 Find
173    
174  C<< my $resultCount = $shelp->Find(); >>      my $resultCount = $shelp->Find();
175    
176  Conduct a search based on the current CGI query parameters. The search results will  Conduct a search based on the current CGI query parameters. The search results will
177  be written to the session cache file and the number of results will be  be written to the session cache file and the number of results will be
# Line 195  Line 196 
196          $self->SetMessage("No PDB specified.");          $self->SetMessage("No PDB specified.");
197      } else {      } else {
198          # Get the ligand result helper.          # Get the ligand result helper.
199          my $rhelp = RHLigands->new();          my $rhelp = RHLigands->new($self);
200          # Set the default output columns.          # Set the default output columns.
201          $self->DefaultColumns($rhelp);          $self->DefaultColumns($rhelp);
202          # Add the extra columns, most of which are taking from DocksWith.          # Add the extra columns, most of which are taking from DocksWith.
# Line 225  Line 226 
226              # Format the energy results so they don't look so awful.              # Format the energy results so they don't look so awful.
227              ($total, $electro, $vander) = map { sprintf('%.2f', $_) } ($total, $electro, $vander);              ($total, $electro, $vander) = map { sprintf('%.2f', $_) } ($total, $electro, $vander);
228              # Put the extra columns.              # Put the extra columns.
229              $rhelp->PutExtraColumns(total => $total, electrostatic => $electro, vanderwaals => $vander,              $rhelp->PutExtraColumns(energy => $total, electrostatic => $electro, vanderwaals => $vander,
230                                      tool => $tool);                                      tool => $tool);
231              # Finally, we must compute the sort key. We're getting the records in the correct order, so              # Finally, we must compute the sort key. We're getting the records in the correct order, so
232              # the sort key is the ordinal of this record, which we are keeping in $retVal.              # the sort key is the ordinal of this record, which we are keeping in $retVal.
# Line 248  Line 249 
249    
250  =head3 Description  =head3 Description
251    
252  C<< my $htmlText = $shelp->Description(); >>      my $htmlText = $shelp->Description();
253    
254  Return a description of this search. The description is used for the table of contents  Return a description of this search. The description is used for the table of contents
255  on the main search tools page. It may contain HTML, but it should be character-level,  on the main search tools page. It may contain HTML, but it should be character-level,
# Line 265  Line 266 
266    
267  =head3 SearchTitle  =head3 SearchTitle
268    
269  C<< my $titleHtml = $shelp->SearchTitle(); >>      my $titleHtml = $shelp->SearchTitle();
270    
271  Return the display title for this search. The display title appears above the search results.  Return the display title for this search. The display title appears above the search results.
272  If no result is returned, no title will be displayed. The result should be an html string  If no result is returned, no title will be displayed. The result should be an html string

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.11

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3