[Debtags-commits] [svn] r1434 - central-database/branches/alioth/webfrontend

[Enrico Zini]

Author: enrico
Date: Sat Oct 29 14:45:27 2005
New Revision: 1434

Modified:
   central-database/branches/alioth/webfrontend/Engine.pm
Log:
Allow more empty lines among vocabulary records

Modified: central-database/branches/alioth/webfrontend/Engine.pm
==============================================================================
--- central-database/branches/alioth/webfrontend/Engine.pm	(original)
+++ central-database/branches/alioth/webfrontend/Engine.pm	Sat Oct 29 14:45:27 2005
@@ -152,7 +152,7 @@
 	local $/ = "\n\n";
 	while (<IN>)
 	{
-		if (! /^Package: (\S+)\s*\n.*Description: (.+?)\n((?: .+?\n)*)/s)
+		if (! /^\n*Package: (\S+)\s*\n.*Description: (.+?)\n((?: .+?\n)*)/s)
 		{
 			print STDERR "Cannot parse package record:\n$_\n";
 			die;
@@ -199,7 +199,7 @@
 	local $/ = "\n\n";
 	while (<IN>)
 	{
-		if (/^Facet: (\S+)\s*\n(?:.*Description: (.+?)\n((?: .+?\n)*))?/s)
+		if (/^\n*Facet: (\S+)\s*\n(?:.*Description: (.+?)\n((?: .+?\n)*))?/s)
 		{
 			my ($facet, $sdesc, $ldesc) = ($1, $2, $3);
 			#print STDERR "FACET: $facet\n";
@@ -209,7 +209,7 @@
 			$f->{ldesc} = $ldesc;
 			setFacet($f);
 		}
-		elsif (/^Tag: (\S+)\s*\n(?:.*Description: (.+?)\n((?: .+?\n)*))?/s)
+		elsif (/^\n*Tag: (\S+)\s*\n(?:.*Description: (.+?)\n((?: .+?\n)*))?/s)
 		{
 			my ($tag, $sdesc, $ldesc) = ($1, $2, $3);
 			my $facet;