Index: /trunk/PS-IPP-MetaDB/lib/PS/IPP/MetaDB.pm
===================================================================
--- /trunk/PS-IPP-MetaDB/lib/PS/IPP/MetaDB.pm	(revision 5171)
+++ /trunk/PS-IPP-MetaDB/lib/PS/IPP/MetaDB.pm	(revision 5172)
@@ -1,5 +1,5 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: MetaDB.pm,v 1.2 2005-09-28 04:32:21 jhoblitt Exp $
+# $Id: MetaDB.pm,v 1.3 2005-09-28 21:45:08 jhoblitt Exp $
 
 package PS::IPP::MetaDB;
@@ -34,17 +34,4 @@
         croak $commit_error;
     }
-}
-
-sub add_new {
-    my $class = shift;
-    my %p = @_;
-
-    PS::IPP::MetaDB::Image::New->create({
-        exp_id      => $p{exp_id},
-        class_id    => $p{class_id},
-        camera      => $p{camera},
-        class       => $p{class},
-        url         => $p{url},
-    });
 }
 
@@ -135,4 +122,28 @@
 __PACKAGE__->set_up_table;
 
+sub add_new {
+    my $class = shift;
+    my %p = @_;
+
+    $class->create({
+        exp_id      => $p{exp_id},
+        class_id    => $p{class_id},
+        camera      => $p{camera},
+        class       => $p{class},
+        url         => $p{url},
+    });
+}
+
+sub find_new {
+    my $class = shift;
+    my %p = @_;
+
+    if (exists $p{exp_id}) {
+        $class->search( $p{exp_id}, { order_by => 'class_id' } );
+    } else {
+        $class->retrieve_all;
+    }
+}
+
 =item * raw