Changeset 23081
- Timestamp:
- 2010-10-11T15:31:47+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/classify/HFileHierarchy.pm
r20425 r23081 228 228 my $list = $self->{'locatorlist'}; 229 229 230 my $classifier_num = "CL".$self->get_number(); 230 231 # sorted the keys - otherwise funny things happen - kjdon 03/01/03 231 232 foreach my $OID (sort keys (%$list)) { 232 my $tempinfo = $self->get_OID_entry ($OID, $classifyinfo, $list->{$OID}->{'title'}, "VList");233 my $tempinfo = $self->get_OID_entry ($OID, $classifyinfo, "$classifier_num.$OID", $list->{$OID}->{'title'}, "VList"); 233 234 234 235 if (defined $self->{'sort'}) { … … 263 264 sub get_OID_entry { 264 265 my $self = shift (@_); 265 my ($OID, $classifyinfo, $ title, $classifytype) = @_;266 my ($OID, $classifyinfo, $classifyOID, $title, $classifytype) = @_; 266 267 267 268 $OID = "" unless defined $OID; … … 273 274 if (!defined $headOID) { 274 275 $classifyinfo->{'Title'} = $title; 276 $classifyinfo->{'classifyOID'} = $classifyOID; 275 277 $classifyinfo->{'classifytype'} = $classifytype; 276 278 return $classifyinfo; … … 292 294 } 293 295 294 return $self->get_OID_entry ($tailOID, $classifyinfo->{'contains'}->[($headOID-1)], $ title, $classifytype);296 return $self->get_OID_entry ($tailOID, $classifyinfo->{'contains'}->[($headOID-1)], $classifyOID, $title, $classifytype); 295 297 296 298 } … … 306 308 } 307 309 308 return $self->get_OID_entry ($tailOID, $classifyinfo->{'contains'}->[($headOID+$offset-1)], $ title, $classifytype);310 return $self->get_OID_entry ($tailOID, $classifyinfo->{'contains'}->[($headOID+$offset-1)], $classifyOID, $title, $classifytype); 309 311 } 310 312
Note:
See TracChangeset
for help on using the changeset viewer.