Changeset 9133
- Timestamp:
- 2005-02-22T14:35:18+13:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/classify/AutoHierarchy.pm
r9130 r9133 69 69 'desc' => "{AutoHierarchy.suppresslastlevel}", 70 70 'type' => "flag", 71 'reqd' => "no" } 72 ]; 71 'reqd' => "no" }, 72 { 'name' => "hlist_at_top", 73 'desc' => "{Hierarchy.hlist_at_top}", 74 'type' => "flag", 75 'reqd' => "no" } ]; 73 76 74 77 my $options = { 'name' => "AutoHierarchy", … … 105 108 q^allvalues^, \$allvalues, 106 109 q^suppresslastlevel^, \$suppresslastlevel, 110 q^hlist_at_top^, \$hlist_at_top, 107 111 "allow_extra_options")) { 108 112 … … 128 132 $buttonname = $self->generate_title_from_metadata($metadata) unless ($buttonname); 129 133 $self->{'title'} = $buttonname; 130 131 if ($firstvalueonly != 0) {132 $firstvalueonly = 1;133 }134 134 $self->{'firstvalueonly'} = $firstvalueonly; 135 136 if ($allvalues != 0) {137 $allvalues = 1;138 }139 135 $self->{'allvalues'} = $allvalues; 140 141 if ($suppresslastlevel != 0) {142 $suppresslastlevel = 1;143 }144 136 $self->{'suppresslastlevel'} = $suppresslastlevel; 137 $self->{'hlist_at_top'} = $hlist_at_top; 145 138 146 139 # sortname is handled a bit differently - kjdon … … 344 337 345 338 if ($self->{'path_hash'}) { 346 $classification = $self->get_entry ($self->{'title'}, "VList", "Invisible"); 339 if ($self->{'hlist_at_top'}) { 340 $classification = $self->get_entry ($self->{'title'}, "HList", "Invisible"); 341 } 342 else { 343 $classification = $self->get_entry ($self->{'title'}, "VList", "Invisible"); 344 } 347 345 } 348 346
Note:
See TracChangeset
for help on using the changeset viewer.