- Timestamp:
- 2013-04-08T19:29:39+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/cgiactions/metadataaction.pm
r27157 r27160 1455 1455 my $metaname = $self->{'metaname'}; 1456 1456 my $metapos = $self->{'metapos'}; 1457 $metapos = 0 if (!defined $metapos); 1457 my $metavalue = $self->{'metavalue'} || undef; # necessary to force fallback to undef here 1458 1459 # if the user hasn't told us what to delete, not having given a metavalue or metapos, 1460 # default to deleting the first metavalue for the given metaname 1461 # Beware that if both metapos AND metavalue are defined, both matches (if any) 1462 # seem to get deleted in one single remove_archives_meta action invocation. 1463 # Similarly, if 2 identical metavalues for a metaname exist and that metavalue is being 1464 # deleted, both get deleted. 1465 if(!defined $metapos && !defined $metavalue) { 1466 $metapos = 0; 1467 } 1458 1468 1459 1469 my $arcinfo_doc_filename = &dbutil::get_infodb_file_path($infodbtype, "archiveinf-doc", $archive_dir); … … 1463 1473 my $doc_filename = $doc_rec->{'doc-file'}->[0]; 1464 1474 1465 my $status = $self->remove_from_doc_xml($gsdl_cgi, &util::filename_cat($archive_dir, $doc_filename), $metaname, $metapos, undef, $docid_secnum); 1475 my $status = $self->remove_from_doc_xml($gsdl_cgi, &util::filename_cat($archive_dir, $doc_filename), $metaname, $metapos, $metavalue, $docid_secnum); 1476 # my $status = $self->remove_from_doc_xml($gsdl_cgi, &util::filename_cat($archive_dir, $doc_filename), $metaname, $metapos, undef, $docid_secnum); 1466 1477 1467 1478 if ($status == 0)
Note:
See TracChangeset
for help on using the changeset viewer.