Changeset 5189 for trunk/PS-IPP-MetaDB/lib/PS/IPP/MetaDB.pm

Timestamp:

Sep 29, 2005, 12:11:27 PM (21 years ago)

Author:

jhoblitt

Message:

return an array of hasrefs from find_new()

File:

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

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

@@ -1 +1 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: MetaDB.pm,v 1.4 2005-09-29 21:20:25 jhoblitt Exp $
+# $Id: MetaDB.pm,v 1.5 2005-09-29 22:11:27 jhoblitt Exp $
 
 package PS::IPP::MetaDB;
@@ -77 +77 @@
     my %p = @_;
 
+    my @rows;
     if (exists $p{exp_id}) {
-        PS::IPP::MetaDB::Image::New->search(
+        @rows = PS::IPP::MetaDB::Image::New->search(
             $p{exp_id},
             { order_by => 'class_id' },
         );
     } else {
-        PS::IPP::MetaDB::Image::New->retrieve_all;
+        @rows = PS::IPP::MetaDB::Image::New->retrieve_all;
     }
+
+    my @fields = qw( exp_id class_id camera class url );
+    my @result;
+    foreach my $obj (@rows) {
+        my %hash;
+        @hash{@fields} = $obj->get(@fields);
+        push(@result, \%hash);
+    }
+
+    return @result;
 }