Changeset 12363
- Timestamp:
- 2006-08-01T09:50:34+12:00 (18 years ago)
- Location:
- trunk/gsdl/perllib/plugouts
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugouts/BasPlugout.pm
r12330 r12363 388 388 } 389 389 390 sub s ort_metadata{390 sub store_output_info_reference { 391 391 my $self = shift (@_); 392 392 my ($doc_obj) = @_; 393 393 394 # do the sortmeta thing395 my $metadata = $doc_obj->get_metadata_element($doc_obj->get_top_section(),$self->{'sortmeta'})396 if defined $self->{'sortmeta'};397 398 if ($metadata) {399 # do remove prefix/suffix400 $metadata =~ s/^$self->{'removeprefix'}// if defined $self->{'removeprefix'};401 $metadata =~ s/$self->{'removesuffix'}$// if defined $self->{'removesuffix'};402 403 $metadata = &sorttools::format_metadata_for_sorting($self->{'sortmeta'}, $metadata, $doc_obj);404 }405 406 394 my $output_info = $self->{'output_info'}; 407 395 my $metaname = $self->{'sortmeta'}; 396 if (!defined $metaname || $metaname !~ /\S/) { 397 $output_info->add_info($doc_obj->get_OID(),$self->{'short_doc_file'}, undef, ""); 398 return; 399 } 400 401 my $metadata = ""; 402 my $top_section = $doc_obj->get_top_section(); 403 404 my @commameta_list = split(/,/, $metaname); 405 foreach my $cmn (@commameta_list) { 406 my $meta = $doc_obj->get_metadata_element($top_section, $cmn); 407 if ($meta) { 408 # do remove prefix/suffix - this will apply to all values 409 $meta =~ s/^$self->{'removeprefix'}// if defined $self->{'removeprefix'}; 410 $meta =~ s/$self->{'removesuffix'}$// if defined $self->{'removesuffix'}; 411 $meta = &sorttools::format_metadata_for_sorting($cmn, $meta, $doc_obj); 412 $metadata .= $meta if ($meta); 413 } 414 } 415 408 416 # store reference in the output_info 409 417 $output_info->add_info($doc_obj->get_OID(),$self->{'short_doc_file'}, undef, $metadata); -
trunk/gsdl/perllib/plugouts/DSpacePlugout.pm
r12330 r12363 124 124 125 125 $self->{'short_doc_file'} = &util::filename_cat ($doc_dir, "dublin_core.xml"); 126 $self->s ort_metadata($doc_obj);126 $self->store_output_info_reference($doc_obj); 127 127 } 128 128 -
trunk/gsdl/perllib/plugouts/GAPlugout.pm
r12344 r12363 95 95 $self->{'short_doc_file'} = util::filename_cat ($doc_dir, "doc.xml"); 96 96 97 $self->s ort_metadata($doc_obj);97 $self->store_output_info_reference($doc_obj); 98 98 } 99 99 -
trunk/gsdl/perllib/plugouts/METSPlugout.pm
r12330 r12363 154 154 $self->{'short_doc_file'} = &util::filename_cat ($doc_dir, "docmets.xml"); 155 155 156 $self->s ort_metadata($doc_obj);156 $self->store_output_info_reference($doc_obj); 157 157 158 158 }
Note:
See TracChangeset
for help on using the changeset viewer.