Changeset 30380


Ignore:
Timestamp:
2016-02-24T04:32:11+13:00 (7 years ago)
Author:
Georgiy Litvinov
Message:

Added hierarchy classifier information to buildConfig

File:
1 edited

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
Note: See TracChangeset for help on using the changeset viewer.