Changeset 5198 for trunk/PS-IPP-MetaDB/scripts/mdb-find-new

Timestamp:

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

Author:

jhoblitt

Message:

add class option
switch to using PS::IPP::MetaDB->new_fields()

File:

• trunk/PS-IPP-MetaDB/scripts/mdb-find-new (modified) (5 diffs)

trunk/PS-IPP-MetaDB/scripts/mdb-find-new

@@ -3 +3 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: mdb-find-new,v 1.2 2005-09-29 22:12:15 jhoblitt Exp $
+# $Id: mdb-find-new,v 1.3 2005-09-30 01:22:53 jhoblitt Exp $
 
 use strict;
@@ -17 +17 @@
 use Pod::Usage qw( pod2usage );
 
-my ($exp_id, $class_id, $url);
+my ($exp_id, $class, $class_id, $url);
 my ($dsn, $dbuser, $dbpass);
 
@@ -25 +25 @@
     'pass=s'    => \$dbpass,
     'exp_id=s'  => \$exp_id,
+    'class=s'   => \$class,
     'class_id=s'=> \$class_id,
 ) || pod2usage( 2 );
@@ -46 +47 @@
     @rows = PS::IPP::MetaDB->find_new(
         exp_id      => $exp_id,
+        class       => $class,
         class_id    => $class_id,
     );
@@ -52 +54 @@
 }
 
-my @fields = qw( exp_id class_id camera class url );
+my @fields = PS::IPP::MetaDB->new_fields; 
 my $csv = Text::CSV->new();