Changeset 29082

Timestamp:

Aug 31, 2010, 1:48:37 PM (16 years ago)

Author:

rhenders

Message:

Changed some method names for clarity

Location:

trunk/ippToPsps/perl

Files:

• checkOdmStatus.pl (modified) (1 diff)
• ippToPsps/IppToPspsDb.pm (modified) (5 diffs)

trunk/ippToPsps/perl/checkOdmStatus.pl

@@ -72 +72 @@
     my $numOfBatches;
 
-    if (defined $singleBatch ) { $numOfBatches = $ippToPspsDb->getSingleBatch($singleBatch, \$batches);}
-    else { $numOfBatches = $ippToPspsDb->getBatchList(\$batches, $fromTime, $toTime);}
+    if (defined $singleBatch ) { $numOfBatches = $ippToPspsDb->getSingleBatchOnDatastore($singleBatch, \$batches);}
+    else { $numOfBatches = $ippToPspsDb->getListOfBatchesOnDatastore(\$batches, $fromTime, $toTime);}
 
     if ($numOfBatches < 1) {return 0;}

trunk/ippToPsps/perl/ippToPsps/IppToPspsDb.pm

@@ -15 +15 @@
 #
 ###########################################################################
-sub getBatchList {
-    my ($self, $exposures, $fromTime, $toTime) = @_;
+sub getListOfBatchesOnDatastore {
+    my ($self, $batches, $fromTime, $toTime) = @_;
 
     my $query = $self->{_db}->prepare(<<SQL);
@@ -29 +29 @@
     # TODO remove date restriction
     $query->execute;
-    ${$exposures} = $query->fetchall_arrayref();
-    my $count = scalar @{${$exposures}};
+    ${$batches} = $query->fetchall_arrayref();
+    my $count = scalar @{${$batches}};
 
    printf( "* Found %d batch%s\n", $count, ($count==1) ? "" : "es");
@@ -41 +41 @@
 #
 ###########################################################################
-sub getSingleBatch{
-    my ($self, $batch_id, $exposures) = @_;
+sub getSingleBatchOnDatastore{
+    my ($self, $batch_id, $batches) = @_;
 
     my $query = $self->{_db}->prepare(<<SQL);
@@ -53 +53 @@
   
     $query->execute;
-    ${$exposures} = $query->fetchall_arrayref();
-    my $count = scalar @{${$exposures}};
+    ${$batches} = $query->fetchall_arrayref();
+    my $count = scalar @{${$batches}};
 
    printf( "* Found %d batch%s\n", $count, ($count==1) ? "" : "es");
@@ -424 +424 @@
     return $row[0];
 }
+
+sub insetDetection {
+    my ($self, $expId, $imageID, $objID,$ippObjID, $ippDetectID) = @_;
+
+   my $query = $self->{_db}->prepare(<<SQL);
+    INSERT INTO detections
+        (expId, imageID, objID, ippObjID, ippDetectID)
+        VALUES
+        ($expId, $imageID, $objID,$ippObjID, $ippDetectID);
+SQL
+
+    $query->execute;
+
+}
+
 1