Changeset 4069

Timestamp:

2003-04-01T16:19:10+12:00 (21 years ago)

Author:

mdewsnip

Message:

Blank line is no longer produced at the end of languages.log.

File:

• trunk/gsdl/bin/script/picklanguage.pl (modified) (1 diff)

trunk/gsdl/bin/script/picklanguage.pl

@@ -82 +82 @@
 
     my $l;
+    my $first = 1;
     foreach $l ( @lang_list ) {
         my $long = lc($l->{'long'});
         my $abbr = $l->{'abbr'};
-        print LANGFILE "$long\n$abbr\n";
+        if ($first =~ 1) {
+        print LANGFILE "$long\n$abbr";
+        $first = 0;
+        }
+        else {
+        print LANGFILE "\n$long\n$abbr";
+        }
     }
     close LANGFILE;