[Debian-l10n-commits] r2727 - in /ddtp-web: Changelog file2Translation_udd.pl

[nekral-guest at users.alioth.debian.org]

Author: nekral-guest
Date: Tue Jul 26 22:01:54 2011
New Revision: 2727

URL: http://svn.debian.org/wsvn/?sc=1&rev=2727
Log:
	* file2Translation_udd.pl: Same cleanup as file2Translation.pl.

Modified:
    ddtp-web/Changelog
    ddtp-web/file2Translation_udd.pl

Modified: ddtp-web/Changelog
URL: http://svn.debian.org/wsvn/ddtp-web/Changelog?rev=2727&op=diff
==============================================================================
--- ddtp-web/Changelog (original)
+++ ddtp-web/Changelog Tue Jul 26 22:01:54 2011
@@ -1,3 +1,7 @@
+2011-07-26  Nicolas Francois  <nicolas.francois at centraliens.net>
+
+	* file2Translation_udd.pl: Same cleanup as file2Translation.pl.
+
 2011-07-26  Nicolas Francois  <nicolas.francois at centraliens.net>
 
 	* file2Translation.sh: Run md5sum --check with the --quiet option.

Modified: ddtp-web/file2Translation_udd.pl
URL: http://svn.debian.org/wsvn/ddtp-web/file2Translation_udd.pl?rev=2727&op=diff
==============================================================================
--- ddtp-web/file2Translation_udd.pl (original)
+++ ddtp-web/file2Translation_udd.pl Tue Jul 26 22:01:54 2011
@@ -7,7 +7,6 @@
 my $lang= shift(@ARGV); 
 
 use DBI;
-use Digest::MD5 qw(md5_hex);
 
 my @DSN = ("DBI:Pg:dbname=ddtp", "", "");
 
@@ -19,8 +18,6 @@
 
 die $DBI::errstr unless $dbh;
 
-
-my $package;
 
 sub get_translation {
 	my $description_id= shift(@_);
@@ -81,12 +78,6 @@
 		}
 	}
 	close (PACKAGELIST);
-
-	# # get only the uniq elements (see man perlfaq5)
-	# my %hash   = map { $_, 1 } @description_ids;
-	# my @unique = keys %hash;
- 
-	# return @unique;
 }
 
 make_translation_file($dists);