Changeset 8776
- Timestamp:
- 2004-12-10T14:06:46+13:00 (19 years ago)
- Location:
- trunk/gsdl/perllib
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/mgbuilder.pm
r8716 r8776 345 345 my ($indexname) = @_; 346 346 my $outhandle = $self->{'outhandle'}; 347 348 347 my $indexes = []; 349 348 if (defined $indexname && $indexname =~ /\w/) { … … 385 384 'extra'=>'extra'); 386 385 my %pnames = ('index' => {}, 'subcollection' => {}, 'languages' => {}); 387 388 386 foreach my $index (@$indexes) { 389 387 my ($level, $gran, $subcollection, $languages) = split (":", $index); … … 483 481 my $self = shift (@_); 484 482 my ($nameref) = @_; 485 486 483 if ($$nameref =~ /(\d\d)$/) { 487 484 my $num = $1; $num ++; … … 489 486 } elsif ($$nameref =~ /(\d)$/) { 490 487 my $num = $1; 491 if ($num == 9) {$$nameref =~ s/\d \d$/10/;}488 if ($num == 9) {$$nameref =~ s/\d$/10/;} 492 489 else {$num ++; $$nameref =~ s/\d$/$num/;} 493 490 } else { -
trunk/gsdl/perllib/mgppbuilder.pm
r8716 r8776 583 583 } elsif ($$nameref =~ /(\d)$/) { 584 584 $num = $1; 585 if ($num == 9) {$$nameref =~ s/\d \d$/10/;}585 if ($num == 9) {$$nameref =~ s/\d$/10/;} 586 586 else {$num ++; $$nameref =~ s/\d$/$num/;} 587 587 } else {
Note:
See TracChangeset
for help on using the changeset viewer.