Changeset 5332
- Timestamp:
- Oct 14, 2005, 1:28:06 PM (21 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/PS-IPP-MetaDB/scripts/mdb-add-new-from-psftp
r5331 r5332 3 3 # Copyright (C) 2005 Joshua Hoblitt 4 4 # 5 # $Id: mdb-add-new-from-psftp,v 1. 1 2005-10-14 21:57:12jhoblitt Exp $5 # $Id: mdb-add-new-from-psftp,v 1.2 2005-10-14 23:28:06 jhoblitt Exp $ 6 6 7 7 use strict; … … 55 55 56 56 foreach my $file (@$filelist) { 57 next unless $file->type eq ' image';57 next unless $file->type eq 'expsoure'; 58 58 59 59 PS::IPP::MetaDB->add_new( 60 exp_id => $ exp_id,61 class => $ class,62 class_id => $ class_id,63 camera => $ camera,64 stamp => $ stamp,65 file_id => $file _id,66 size => $ size,67 md5 => $ md5,68 url => $ url,60 exp_id => $file->attributes->{exp_id}, 61 class => $file->attributes->{class}, 62 class_id => $file->attributes->{class_id}, 63 camera => $file->attributes->{camera}, 64 stamp => $file->stamp, 65 file_id => $file->file_id, 66 size => $file->size, 67 md5 => $file->md5, 68 url => $file->url, 69 69 ); 70 70 }
Note:
See TracChangeset
for help on using the changeset viewer.
