Changeset 30380

Show
Ignore:
Timestamp:
24.02.2016 04:32:11 (4 years ago)
Author:
litvinovg
Message:

Added hierarchy classifier information to buildConfig

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/buildConfigxml.pm

    r29540 r30380  
    754754      } 
    755755      my $content = ''; #use buttonname first, then metadata 
     756      my $hfilename = ''; 
     757      my $metadataname = ''; 
    756758      if ($classname eq "DateList") { 
    757759    $content = "Date"; 
     
    759761    for (my $j=0; $j<scalar(@$cl); $j++) { 
    760762      my $arg = @$cl[$j]; 
     763      if ($classname eq "Hierarchy")   
     764      { 
     765            if ($arg eq "-hfile") 
     766                { 
     767                    $hfilename = @$cl[$j+1]; 
     768                }  
     769                elsif ($arg eq "-metadata")  
     770                { 
     771                        $metadataname = @$cl[$j+1]; 
     772                } 
     773          } 
    761774      if ($arg eq "-buttonname"){ 
    762775        $content = @$cl[$j+1]; 
     
    768781    } 
    769782      } 
    770       &write_line('COLCFG', ["<classifier name=\"", $name, "\" content=\"", $content, "\" />"]); 
    771     }      
     783      if ($classname eq "Hierarchy") 
     784      { 
     785    &write_line('COLCFG', ["<classifier name=\"", $name, "\" content=\"", $content, "\" metadata=\"", $metadataname, "\" hfile=\"", $hfilename, "\" />"]); 
     786      } else  
     787      {  
     788        &write_line('COLCFG', ["<classifier name=\"", $name, "\" content=\"", $content, "\" />"]); 
     789      }      
     790    } 
    772791    if ($started_classifiers) { 
    773792      # end the classifiers