Changeset 28199

Show
Ignore:
Timestamp:
03.09.2013 11:44:05 (6 years ago)
Author:
kjdon
Message:

make the doclevel default be section - a sectionlist by default should classify sections. and don't have metaname field, have metadata field.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/classify/AZCompactSectionList.pm

    r18566 r28199  
    1818 
    1919my $arguments = [ 
     20      { 'name' => "doclevel", 
     21    'desc' => "{AZCompactList.doclevel}", 
     22    'type' => "enum", 
     23    'list' => $AZCompactList::doclevel_list, 
     24    'deft' => "section", 
     25    'reqd' => "no" }, 
    2026         ]; 
    2127my $options =  
     
    109115        my $listclassobj; 
    110116        my $doclevel = $self->{'doclevel'}; 
    111         my $metaname  = $self->{'metaname'}; 
     117        my $metaname  = $self->{'metadata'}; 
    112118        my @metaname_list = split('/',$metaname); 
    113119        $metaname = shift(@metaname_list); 
     
    159165        { 
    160166        my $formatted_node = $metavalue; 
    161         if ($self->{'metaname'} =~ m/^Creator(:.*)?$/) 
     167        if ($self->{'metadata'} =~ m/^Creator(:.*)?$/) 
    162168        { 
    163169            &sorttools::format_string_name_en(\$formatted_node);