Index: /trunk/ippToPsps/perl/ippToPsps/Gpc1Db.pm
===================================================================
--- /trunk/ippToPsps/perl/ippToPsps/Gpc1Db.pm	(revision 28840)
+++ /trunk/ippToPsps/perl/ippToPsps/Gpc1Db.pm	(revision 28841)
@@ -64,4 +64,26 @@
 ###########################################################################
 #
+# 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,5 +123,5 @@
 #
 ###########################################################################
-sub getExposureListFromExpId {
+sub getSingleExposureInfo {
     my ($self, $expId) = @_;