Changeset 4135 for trunk/gsdl/bin/script/translator.pl

Timestamp:

2003-04-14T09:00:09+12:00 (21 years ago)

Author:

mdewsnip

Message:

Tidy up and bug fix in page generation code.

File:

• trunk/gsdl/bin/script/translator.pl (modified) (3 diffs)

trunk/gsdl/bin/script/translator.pl

@@ -486 +486 @@
     my %pagehash = ();
 
-    @pages = ();
     $pageno = 1;
     $keysperpage = 0;
@@ -512 +511 @@
                $pagehash->{$pageno}, \*HTMLFILE);
         close HTMLFILE;
-
-        #push the page number onto the array of pages
-        push(@pages, $pageno);
         $pageno++;
 
@@ -530 +526 @@
     &generate_form($sourcelang, $targetlang, $targetcode, $pagehash->{$pageno}, \*HTMLFILE);
     close HTMLFILE;
-    push(@pages, $pageno);
+    $pageno++;
     }