Changeset 5172

Timestamp:

Sep 28, 2005, 11:45:08 AM (21 years ago)

Author:

jhoblitt

Message:

add find_new()
move add_new -> PS::IPP::MetaDB::Image::New

File:

• trunk/PS-IPP-MetaDB/lib/PS/IPP/MetaDB.pm (modified) (3 diffs)

trunk/PS-IPP-MetaDB/lib/PS/IPP/MetaDB.pm

@@ -1 +1 @@
 # 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 +34 @@
         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 +122 @@
 __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