[otrs-cvs] otrs/bin otrs.CreateTranslationFile.pl,1.36,1.37

Comments:
Update of /home/cvs/otrs/bin
In directory lancelot:/tmp/cvs-serv21812/bin

Modified Files:
	otrs.CreateTranslationFile.pl 
Log Message:
use basename so backward slashes (windows) are also OK.

Author: mb

Index: otrs.CreateTranslationFile.pl
===================================================================
RCS file: /home/cvs/otrs/bin/otrs.CreateTranslationFile.pl,v
retrieving revision 1.36
retrieving revision 1.37
diff -2 -u -d -r1.36 -r1.37
--- otrs.CreateTranslationFile.pl	13 Dec 2012 14:08:45 -0000	1.36
+++ otrs.CreateTranslationFile.pl	21 Jan 2013 17:16:26 -0000	1.37
@@ -2,5 +2,5 @@
 # --
 # bin/otrs.CreateTranslationFile.pl - create new translation file
-# Copyright (C) 2001-2012 OTRS AG, http://otrs.org/
+# Copyright (C) 2001-2013 OTRS AG, http://otrs.org/
 # --
 # $Id$
@@ -158,4 +158,6 @@
     my $PurgeObsolete = $Param{PurgeObsolete};
 
+    warn $Module;
+
     my $ModuleDirectory = $Module;
     my $LanguageFile;
@@ -169,4 +171,5 @@
         $LanguageFile = "$Home/Kernel/Language/$Language.pm";
         $TargetFile   = "$Home/Kernel/Language/$Language.pm";
+        warn "HOME is $Home\n, LAN = $Language";
     }
     else {
@@ -175,5 +178,5 @@
 
         # extract module name from module path
-        $Module =~ s{ \A .* / (.+) /? \z }{$1}xms;
+        $Module = basename $Module;
 
         # remove underscores and/or version numbers and following from module name
@@ -457,5 +460,5 @@
 $Separator
 # Kernel/Language/${Language}_$Module.pm - translation file
-# Copyright (C) 2001-2012 OTRS AG, http://otrs.org/
+# Copyright (C) 2001-2013 OTRS AG, http://otrs.org/
 $Separator
 # \$Id\$
---------------------------------------------------------------------
OTRS mailing list: cvs-log - Webpage: http://otrs.org/
Archive: http://lists.otrs.org/pipermail/cvs-log
To unsubscribe: http://lists.otrs.org/cgi-bin/listinfo/cvs-log