Changeset 32076
- Timestamp:
- 2017-11-21T14:42:25+13:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/cgiactions/modmetadataaction.pm
r32061 r32076 840 840 841 841 my $curr_secnum = $parser->{'parameters'}->{'curr_section_num'}; 842 ## print STDERR "**** checking $opt_doc_secnum <=> $curr_secnum\n";843 ##print STDERR "**** metamode = $metamode\n";842 print STDERR "**** checking $opt_doc_secnum <=> $curr_secnum\n" if (defined $opt_doc_secnum); 843 print STDERR "**** metamode = $metamode\n"; 844 844 845 845 if ((!defined $opt_doc_secnum) || ($opt_doc_secnum eq $curr_secnum)) 846 846 { 847 847 my $name_attr = $attrHash->{'name'}; 848 #print STDOUT "*** testing: $name_attr eq $metaname ? and $metamode eq override ?\n";848 print STDOUT "*** testing: $name_attr eq $metaname ? and $metamode eq override ?\n"; 849 849 if (($name_attr eq $metaname) && ($metamode eq "override")) 850 850 { … … 858 858 } 859 859 860 if ((defined $parser->{'parameters'}->{'metapos'} && $parser->{'parameters'}->{'poscount'} == $parser->{'parameters'}->{'metapos'}) 861 || (!defined $parser->{'parameters'}->{'metapos'} && $parser->{'parameters'}->{'poscount'} == 0)) 862 863 { 864 ##print STDERR "#### got match!!\n"; 860 if (defined $parser->{'parameters'}->{'metapos'}) { 861 862 if ($parser->{'parameters'}->{'poscount'} == $parser->{'parameters'}->{'metapos'}) { 863 print STDERR "#### got pos match!!\n"; 865 864 # Get the value and override the current value 866 865 my $metavalue = $parser->{'parameters'}->{'metavalue'}; … … 868 867 869 868 # Don't want it to wipe out any other pieces of metadata 870 $parser->{'parameters'}->{'metamode'} = "done"; 869 $parser->{'parameters'}->{'metamode'} = "done"; 870 } 871 871 } 872 elsif (defined $parser->{'parameters'}->{'prevmetavalue'} && $parser->{'parameters'}->{'prevmetavalue'} eq $attrHash->{'_content'}) 873 { 872 elsif (defined $parser->{'parameters'}->{'prevmetavalue'}) { 873 if ($parser->{'parameters'}->{'prevmetavalue'} eq $attrHash->{'_content'}) { 874 print STDERR "### prev meta value matches\n"; 874 875 my $metavalue = $parser->{'parameters'}->{'metavalue'}; 875 876 $attrHash->{'_content'} = $metavalue; 876 877 $parser->{'parameters'}->{'metamode'} = "done"; 878 879 } 877 880 } 881 elsif ($parser->{'parameters'}->{'poscount'} == 0) { # explicit catch all 882 print STDERR "#### got pos match!!\n"; 883 # Get the value and override the current value 884 my $metavalue = $parser->{'parameters'}->{'metavalue'}; 885 $attrHash->{'_content'} = $metavalue; 886 887 # Don't want it to wipe out any other pieces of metadata 888 $parser->{'parameters'}->{'metamode'} = "done"; 889 890 891 } 892 893 894 878 895 } 879 896 } 880 897 881 898 # RAW is [$tagname => $attrHash] not $tagname => $attrHash!!
Note:
See TracChangeset
for help on using the changeset viewer.