[Debian-l10n-commits] r1215 - /ddtp-web/Packages2db.pl

[grisu at users.alioth.debian.org]

Author: grisu
Date: Fri Aug 15 12:37:08 2008
New Revision: 1215

URL: http://svn.debian.org/wsvn/?sc=1&rev=1215
Log:

   * fix 'version nr' import 
   * dec priority of lliurex descriptions


Modified:
    ddtp-web/Packages2db.pl

Modified: ddtp-web/Packages2db.pl
URL: http://svn.debian.org/wsvn/ddtp-web/Packages2db.pl?rev=1215&op=diff
==============================================================================
--- ddtp-web/Packages2db.pl (original)
+++ ddtp-web/Packages2db.pl Fri Aug 15 12:37:08 2008
@@ -119,7 +119,7 @@
 		$sth->execute($description_id, $version);
 		($version_id) = $sth->fetchrow_array;
 
-		if (undef $version_id) {
+		if (not $version_id) {
 			eval {
 				$dbh->do("INSERT INTO version_tb (description_id,version) VALUES (?,?);", undef, $description_id, $version);
 				$dbh->commit;   # commit the changes if we get this far
@@ -217,7 +217,7 @@
 		if (/^Source: ([\w.+-]+)/) { # new item
 			$source=$1;
 		}
-		if (/^Version: ([\w.+-]+)/) { # new item
+		if (/^Version: ([\w.+:~-]+)/) { # new item
 			$version=$1;
 		}
 		if (/^Tag: (.+)/) { # new item
@@ -243,6 +243,12 @@
 			} elsif ($priority  =~ /required/i ) {
 				$prioritize+=20;
 			}
+			if ($distribution  =~ /sid/i ) {
+				$prioritize+=2;
+			}
+			if ($distribution  =~ /lliurex/i ) {
+				$prioritize-=20;
+			}
 		}
 		if (/^Maintainer: (.*)/) { # new item
 		}