Changeset 1732 for trunk/gsdl/perllib/doc.pm

Timestamp:

2000-12-01T14:17:50+13:00 (23 years ago)

Author:

say1

Message:

check metadata before adding

File:

• trunk/gsdl/perllib/doc.pm (modified) (1 diff)

trunk/gsdl/perllib/doc.pm

@@ -731 +731 @@
     return;
     }
+    if (!defined $value) {
+    print STDERR "doc::add_utf8_metadata undefined value for $field\n";
+    return;
+    }
+    if (!defined $field) {
+    print STDERR "doc::add_utf8_metadata undefined metadata type \n";
+    return;
+    }
     
     push (@{$section_ptr->{'metadata'}}, [$field, $value]);