Changeset 30058

Show
Ignore:
Timestamp:
26.07.2015 18:19:32 (4 years ago)
Author:
davidb
Message:

More careful checking/testing of parameters so an override is performed (in a particular case), rather than automatically switching to accumulate

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/cgiactions/metadataaction.pm

    r29099 r30058  
    17061706    if ((!defined $opt_doc_secnum) || ($opt_doc_secnum eq $curr_secnum))  
    17071707    { 
    1708         my $name_attr = $attrHash->{'name'}; 
     1708        my $name_attr = $attrHash->{'name'}; 
     1709        # print STDOUT "*** testing: $name_attr eq $metaname ?   and  $metamode eq override ?\n"; 
    17091710        if (($name_attr eq $metaname) && ($metamode eq "override"))  
    17101711        { 
     
    17181719            }  
    17191720             
    1720             if(defined $parser->{'parameters'}->{'metapos'} && $parser->{'parameters'}->{'poscount'} == $parser->{'parameters'}->{'metapos'}) 
     1721            if ((defined $parser->{'parameters'}->{'metapos'} && $parser->{'parameters'}->{'poscount'} == $parser->{'parameters'}->{'metapos'}) 
     1722                || (!defined $parser->{'parameters'}->{'metapos'} && $parser->{'parameters'}->{'poscount'} == 0)) 
     1723                 
    17211724            { 
    17221725                ##print STDERR "#### got match!!\n"; 
     
    17281731                $parser->{'parameters'}->{'metamode'} = "done"; 
    17291732            } 
    1730             elsif(defined $parser->{'parameters'}->{'prevmetavalue'} && $parser->{'parameters'}->{'prevmetavalue'} eq $attrHash->{'_content'}) 
     1733            elsif (defined $parser->{'parameters'}->{'prevmetavalue'} && $parser->{'parameters'}->{'prevmetavalue'} eq $attrHash->{'_content'}) 
    17311734            { 
    17321735                my $metavalue = $parser->{'parameters'}->{'metavalue'}; 
     
    18041807        && ($metamode eq "accumulate" || $metamode eq "override")) { 
    18051808        if ($metamode eq "override") { 
    1806         print "No metadata value to override.  Switching 'metamode' to accumulate\n"; 
     1809        print "Got to end of <Description> block. No metadata value to override.  Switching 'metamode' to accumulate\n"; 
    18071810        } 
    18081811