[Bio] / Sprout / ShowCounts.pl Repository:
ViewVC logotype

Diff of /Sprout/ShowCounts.pl

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

revision 1.13, Fri May 11 06:31:54 2007 UTC revision 1.14, Thu Dec 6 14:58:03 2007 UTC
# Line 91  Line 91 
91    
92  use SFXlate;  use SFXlate;
93    
94    # The return type (error/no error) will be put in here.
95    my $rtype;
96    eval {
97  # Get the target directory.  # Get the target directory.
98  my $targetDir = $options->{target};  my $targetDir = $options->{target};
99  # Verify the parameters.  # Verify the parameters.
# Line 115  Line 118 
118      # Tell the user we're done.      # Tell the user we're done.
119      Trace("File creation complete.") if T(2);      Trace("File creation complete.") if T(2);
120  }  }
121    };
122    if ($@) {
123        Trace("Counts failed with error: $@") if T(0);
124        $rtype = "error";
125    } else {
126        Trace("Counts complete.") if T(2);
127        $rtype = "no error";
128    }
129    if ($options->{phone}) {
130        my $msgID = Tracer::SendSMS($options->{phone}, "ShowCounts terminated with $rtype.");
131        if ($msgID) {
132            Trace("Phone message sent with ID $msgID.") if T(2);
133        } else {
134            Trace("Phone message not sent.") if T(2);
135        }
136    }
137    
138  =head3 CreateCounts  =head3 CreateCounts
139    
140  C<< CreateCounts($fig, $fileName); >>      CreateCounts($fig, $fileName);
141    
142  Create the count and version display for the front page of the NMPDR.  Create the count and version display for the front page of the NMPDR.
143    
# Line 191  Line 210 
210      }      }
211      # Add the docking results.      # Add the docking results.
212      my $pdbCount = $sfx->GetCount(['PDB'], "PDB(docking-count) > ?", [0]);      my $pdbCount = $sfx->GetCount(['PDB'], "PDB(docking-count) > ?", [0]);
213      print $handle ", $pdbCount PDBs with in silico docking results";      print $handle ", $pdbCount drug targets with in silico docking results";
214      # Terminate the heading.      # Terminate the heading.
215      print $handle ".</h3>\n";      print $handle ".</h3>\n";
216      # Close the output file.      # Close the output file.
# Line 200  Line 219 
219    
220  =head3 CreateSubForm  =head3 CreateSubForm
221    
222  C<< CreateSubForm($sfx, $fileName); >>      CreateSubForm($sfx, $fileName);
223    
224  Output the subsystem summary form. The subsystem summary form allows the user  Output the subsystem summary form. The subsystem summary form allows the user
225  to select an organism and view a summary of its subsystems.  to select an organism and view a summary of its subsystems.
# Line 257  Line 276 
276    
277  =head3 CreateOrgForm  =head3 CreateOrgForm
278    
279  C<< CreateOrgForm($sfx, $fileName); >>      CreateOrgForm($sfx, $fileName);
280    
281  Output the organism summary form. The organism summary form allows the user  Output the organism summary form. The organism summary form allows the user
282  to select an organism and view its statistics.  to select an organism and view its statistics.
# Line 312  Line 331 
331    
332  =head3 CreateSproutDoc  =head3 CreateSproutDoc
333    
334  C<< CreateSproutDoc($sfx, $fileName); >>      CreateSproutDoc($sfx, $fileName);
335    
336  Output the Sprout database documentation.  Output the Sprout database documentation.
337    
# Line 342  Line 361 
361  }  }
362    
363    
   
364  1;  1;

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3