Changeset 4179

Timestamp:

2003-04-17T14:04:58+12:00 (21 years ago)

Author:

mdewsnip

Message:

Tidied up one function.

File:

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

trunk/gsdl/bin/script/translator.pl

@@ -590 +590 @@
 sub core_or_auxiliary_macro
 {
-    my ($sourcelang, $sourcekey) = @_;
+    my ($language, $sourcekey) = @_;
 
     my $macrofile = $sourcekey;
     $macrofile =~ s/^([^:]+)::(.*)/$1/;
 
-    if ($macrofile eq ($sourcelang . ".dm")) {
+    if ($macrofile eq ($language . ".dm")) {
     return "1";  # Core macro
     }
-    if ($macrofile eq ($sourcelang . "2.dm")) {
+    if ($macrofile eq ($language . "2.dm")) {
     return "2";  # Auxiliary macro
     }