Changeset 4177 for trunk

Timestamp:

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

Author:

mdewsnip

Message:

Added check for third argument (use CVS or not).

File:

• trunk/gsdl/bin/script/inittranslation.pl (modified) (4 diffs)

trunk/gsdl/bin/script/inittranslation.pl

@@ -47 +47 @@
     # Get the name of the target language
     my $targetlang = shift(@_);
+    my $usecvs = shift(@_);
 
     # Check that both arguments were supplied
@@ -144 +145 @@
     }
 
-    # Use CVS to initialise the update database
-    &initialise_update_db($sourcelang, $targetlang, $targethash, $macrosdir);
+    # Use CVS to initialise the update database, if desired
+    if ($usecvs && $usecvs eq "true") {
+    &initialise_update_db($sourcelang, $targetlang, $targethash, $macrosdir);
+    }
 
     # Clean up
@@ -417 +420 @@
     my $sourcedate = $annotatedsourcehash1->{$targetkey};
     if (&is_date_before($targetdate, $sourcedate) eq "true") {
-        print "Macro needs updating!!\n";
+        # print "Macro needs updating!!\n";
         $targetkey = &get_macrofile_name($targetlang, "") . "::" . $targetkey;
-        print "Target key: $targetkey";
-        print " Original target text: $targethash->{$targetkey}\n";
+        # print "Target key: $targetkey";
+        # print " Original target text: $targethash->{$targetkey}\n";
         $updatedata{$targetkey} = $targethash->{$targetkey};
     }
@@ -429 +432 @@
     my $sourcedate = $annotatedsourcehash2->{$targetkey};
     if (&is_date_before($targetdate, $sourcedate) eq "true") {
-        print "Macro needs updating!!\n";
+        # print "Macro needs updating!!\n";
         $targetkey = &get_macrofile_name($targetlang, "2") . "::" . $targetkey;
-        print "Target key: $targetkey";
-        print " Original target text: $targethash->{$targetkey}\n";
+        # print "Target key: $targetkey";
+        # print " Original target text: $targethash->{$targetkey}\n";
         $updatedata{$targetkey} = $targethash->{$targetkey};
     }