Changeset 8776

Timestamp:

2004-12-10T14:06:46+13:00 (19 years ago)

Author:

kjdon

Message:

fixed a bug whereby you couldn't build more than 11 subcollections

Location:

trunk/gsdl/perllib

Files:

• mgbuilder.pm (modified) (4 diffs)
• mgppbuilder.pm (modified) (1 diff)

trunk/gsdl/perllib/mgbuilder.pm

@@ -345 +345 @@
     my ($indexname) = @_;
     my $outhandle = $self->{'outhandle'};
-
     my $indexes = [];
     if (defined $indexname && $indexname =~ /\w/) {
@@ -385 +384 @@
             'extra'=>'extra');
     my %pnames = ('index' => {}, 'subcollection' => {}, 'languages' => {});
-
     foreach my $index (@$indexes) {
     my ($level, $gran, $subcollection, $languages) = split (":", $index);
@@ -483 +481 @@
     my $self = shift (@_);
     my ($nameref) = @_;
-
     if ($$nameref =~ /(\d\d)$/) {
     my $num = $1; $num ++;
@@ -489 +486 @@
     } elsif ($$nameref =~ /(\d)$/) {
     my $num = $1;
-    if ($num == 9) {$$nameref =~ s/\d\d$/10/;}
+    if ($num == 9) {$$nameref =~ s/\d$/10/;}
     else {$num ++; $$nameref =~ s/\d$/$num/;}
     } else {

trunk/gsdl/perllib/mgppbuilder.pm

@@ -583 +583 @@
     } elsif ($$nameref =~ /(\d)$/) {
     $num = $1;
-    if ($num == 9) {$$nameref =~ s/\d\d$/10/;}
+    if ($num == 9) {$$nameref =~ s/\d$/10/;}
     else {$num ++; $$nameref =~ s/\d$/$num/;}
     } else {