Changeset 1732 for trunk/gsdl
- Timestamp:
- 2000-12-01T14:17:50+13:00 (24 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/doc.pm
r1679 r1732 731 731 return; 732 732 } 733 if (!defined $value) { 734 print STDERR "doc::add_utf8_metadata undefined value for $field\n"; 735 return; 736 } 737 if (!defined $field) { 738 print STDERR "doc::add_utf8_metadata undefined metadata type \n"; 739 return; 740 } 733 741 734 742 push (@{$section_ptr->{'metadata'}}, [$field, $value]);
Note:
See TracChangeset
for help on using the changeset viewer.