Changeset 19516
- Timestamp:
- 2009-05-19T15:07:33+12:00 (15 years ago)
- Location:
- gsdl/trunk/perllib
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/DirectoryPlugin.pm
r19493 r19516 584 584 foreach my $l (keys %$mfref) { 585 585 my $f = $mfref->{$l}; 586 push (@metafile_pair, "$f :$l");586 push (@metafile_pair, "$f : $l"); 587 587 } 588 588 -
gsdl/trunk/perllib/plugouts/BasePlugout.pm
r19494 r19516 656 656 657 657 foreach my $metafile_pair (@$metafiles) { 658 my ($full_metafile,$metafile) = split(/ :/,$metafile_pair);658 my ($full_metafile,$metafile) = split(/ : /,$metafile_pair); 659 659 660 660 $doc_obj->metadata_file($full_metafile,$metafile); … … 690 690 } 691 691 else { 692 print STDERR "Warning: archiveinf_ gdbm()\n $real_filename does not appear to be on the file system\n";692 print STDERR "Warning: archiveinf_files_to_field()\n $real_filename does not appear to be on the file system\n"; 693 693 } 694 694 }
Note:
See TracChangeset
for help on using the changeset viewer.