From b83a35f428317803e3bb8f3b68224ea8155bcda6 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Ale=C5=A1=20K=C5=99enek?= <ljocha@ics.muni.cz>
Date: Wed, 6 Jun 2007 16:29:10 +0000
Subject: [PATCH] origin has to be specified

---
 org.glite.jp.index/examples/pch06/pch.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/org.glite.jp.index/examples/pch06/pch.pm b/org.glite.jp.index/examples/pch06/pch.pm
index 9183f62..cbfd5af 100644
--- a/org.glite.jp.index/examples/pch06/pch.pm
+++ b/org.glite.jp.index/examples/pch06/pch.pm
@@ -49,7 +49,7 @@ my @jobs;
 # query to Job Provenance Index Server
 #
 sub isquery {
-	my ($server, $queries, $attributes) = @_;
+	my ($server, $queries, $attributes, $origin) = @_;
 	my ($s, @jobs);
 	my $args = '';
 	my @attributes;
@@ -59,6 +59,8 @@ sub isquery {
 	if ($attributes) { @attributes = @$attributes; }
 	else { @attributes = @default_is_attributes; }
 
+	$origin = 'USER' unless $origin;
+
 	$s = $isquery[0];
 	foreach my $query (@$queries) {
 		my @query = @$query;
@@ -67,7 +69,7 @@ sub isquery {
 		$s .= "\t<attr>$query[0]</attr>\n";
 		while ($i <= $#query) {
 			my @record = @{$query[$i]};
-			$s .= "\t<origin>USER</origin>\n";
+			$s .= "\t<origin>$origin</origin>\n";
 			$s .= "\t<record>\n";
 			$s .= "\t\t<op>$record[0]</op>\n";
 			$s .= "\t\t<value>$record[1]</value>\n";
-- 
1.8.2.3