Changeset 5196

Timestamp:

Sep 29, 2005, 3:21:17 PM (21 years ago)

Author:

jhoblitt

Message:

add new_fields()
add ::Image::New->fields()
add primary key on file_id to metadata_new

File:

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

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

@@ -1 +1 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: MetaDB.pm,v 1.8 2005-09-29 23:19:25 jhoblitt Exp $
+# $Id: MetaDB.pm,v 1.9 2005-09-30 01:21:17 jhoblitt Exp $
 
 package PS::IPP::MetaDB;
@@ -71 +71 @@
         url         => $p{url},
     });
+}
+
+sub new_fields
+{
+    return PS::IPP::MetaDB::Image::New->fields;
 }
 
@@ -87 +92 @@
     }
 
-    my @fields = qw( exp_id class_id camera class url );
+    my @fields = new_fields();
     my @result;
     foreach my $obj (@rows) {
@@ -208 +213 @@
 }
 
+sub fields
+{
+    return qw( exp_id class class_id camera stamp file_id size md5 url );
+}
+
 =item * metadata_new
 
@@ -252 +262 @@
     __PACKAGE__->create_table(q{
         stamp       DATETIME,
-        file_id     VARCHAR(255),
+        file_id     VARCHAR(255)    NOT NULL PRIMARY KEY,
         size        INT,
         md5         VARCHAR(32),