Changeset 25959

Show
Ignore:
Timestamp:
17.07.2012 15:19:21 (7 years ago)
Author:
kjdon
Message:

gsdlthistype paged/hierarchy now in lower case, added in support for gs3's pagedhierarchy

Files:
1 modified

Legend:

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

    r25556 r25959  
    777777    my $gsdlthistype = $doc_obj->get_metadata_element ($section, "gsdlthistype"); 
    778778    if (defined $gsdlthistype) { 
    779     if ($gsdlthistype eq "Paged") { 
     779    if ($gsdlthistype =~ /^paged$/i) { 
    780780        $childtype = "Paged"; 
    781781        if ($doc_obj->get_text_length ($doc_obj->get_top_section())) { 
     
    786786         
    787787        return ($thistype, $childtype); 
    788     } elsif ($gsdlthistype eq "Hierarchy") { 
     788    } 
     789        # gs3 pagedhierarchy option 
     790    elsif ($gsdlthistype =~ /^pagedhierarchy$/i) { 
     791        $childtype = "PagedHierarchy"; 
     792        if ($doc_obj->get_text_length ($doc_obj->get_top_section())) { 
     793        $thistype = "PagedHierarchy"; 
     794        } else { 
     795        $thistype = "Invisible"; 
     796        } 
     797         
     798        return ($thistype, $childtype); 
     799    } elsif ($gsdlthistype =~ /^hierarchy$/i) { 
    789800        return ($thistype, $childtype); # use VList, VList 
    790801    }