[kde-services-devel] r514 - trunk/hotstuff/src

[josef at new.kstuff.org]

Author: josef
Date: 2009-07-02 02:08:52 +0200 (Thu, 02 Jul 2009)
New Revision: 514

Modified:
   trunk/hotstuff/src/hotstuff-stuff
Log:
- experimental support for unique identifiers per entry



Modified: trunk/hotstuff/src/hotstuff-stuff
===================================================================
--- trunk/hotstuff/src/hotstuff-stuff	2009-04-19 16:16:31 UTC (rev 513)
+++ trunk/hotstuff/src/hotstuff-stuff	2009-07-02 00:08:52 UTC (rev 514)
@@ -44,7 +44,7 @@
 $conn || die DBI::errstr;
 
 my $dbquery = "SELECT name, category, author, licence, rating, downloads, version, " .
-	"release, releasedate, email, webpage, " .
+	"release, releasedate, email, webpage, id, " .
 	"meta_ref " .
 	"FROM directory WHERE (validity IS NULL OR validity = '')";
 
@@ -95,13 +95,13 @@
 }
 
 my %results;
-my ($oldname, $category, $author, $licence, $rating, $downloads, $version, $release, $releasedate, $email, $webpage);
+my ($oldname, $category, $author, $licence, $rating, $downloads, $version, $release, $releasedate, $email, $webpage, $entryid);
 my ($meta_ref);
 
 my $res = $conn->prepare($dbquery);
 $res->execute();
 $res->bind_columns(\$oldname, \$category, \$author, \$licence, \$rating, \$downloads, \$version,
-	\$release, \$releasedate, \$email, \$webpage,
+	\$release, \$releasedate, \$email, \$webpage, \$entryid,
 	\$meta_ref);
 
 while($res->fetch()){
@@ -183,7 +183,7 @@
 	my @result = (\%names, $category, $author, $email, $realemail, $im, $realname,
 		$licence, $licencename, $licenceurl, $rating, $downloads,
 		$version, $release, $releasedate, \%summaries, \%previews, \%payloads,
-		$signature, $webpage);
+		$signature, $webpage, $entryid);
 	$results{$oldname} = \@result;
 }
 
@@ -219,7 +219,7 @@
 	my ($namesref, $category, $author, $email, $realemail, $im, $realname,
 		$licence, $licencename, $licenceurl, $rating, $downloads,
 		$version, $release, $releasedate, $summariesref, $previewsref,
-		$payloadsref, $signature, $webpage)
+		$payloadsref, $signature, $webpage, $entryid)
 		= @result;
 
 	my %names = %{$namesref};
@@ -266,6 +266,8 @@
 
 	if($format eq "knewstuff"){
 		$writer->startTag("stuff", "type" => $category);
+	elsif($format eq "ghns-experimental"){
+		$writer->startTag("stuff", "category" => $category, "id" => $entryid);
 	}else{
 		$writer->startTag("stuff", "category" => $category);
 	}