Changeset 28841

Timestamp:

Aug 4, 2010, 4:29:45 PM (16 years ago)

Author:

rhenders

Message:

Added function to get exposure list for a given DVO Db; changed function name for single exposure

File:

• trunk/ippToPsps/perl/ippToPsps/Gpc1Db.pm (modified) (2 diffs)

trunk/ippToPsps/perl/ippToPsps/Gpc1Db.pm

@@ -64 +64 @@
 ###########################################################################
 #
+# Returns a list of exposure IDs in a given DVO database  
+#
+###########################################################################
+sub getExposureListFromDvoDb {
+    my ($self, $dvoDb) = @_;
+
+    my $query = $self->{_db}->prepare(<<SQL);
+    SELECT exp_id, exp_name, camRun.dist_group 
+        FROM addRun 
+        JOIN camRun USING(cam_id) 
+        JOIN chipRun USING(chip_id) 
+        JOIN rawExp USING(exp_id) 
+        WHERE addRun.dvodb LIKE '$dvoDb' 
+        ORDER BY exp_id ASC;
+SQL
+
+    $query->execute;
+    return $query->fetchall_arrayref();
+}
+
+###########################################################################
+#
 # Returns a list of exposure IDs for this survey
 #
@@ -101 +123 @@
 #
 ###########################################################################
-sub getExposureListFromExpId {
+sub getSingleExposureInfo {
     my ($self, $expId) = @_;