From: Aleš Křenek Date: Thu, 7 Jun 2007 11:11:57 +0000 (+0000) Subject: any origin X-Git-Tag: glite-yaim-lb_R_3_1_1-1~43 X-Git-Url: http://scientific.zcu.cz/git/?a=commitdiff_plain;h=a3aeb4a30e44ade41a2d9f43dbd7890ef58b27ec;p=jra1mw.git any origin --- diff --git a/org.glite.jp.index/examples/pch06/pch.pm b/org.glite.jp.index/examples/pch06/pch.pm index cbfd5af..cfd17aa 100644 --- a/org.glite.jp.index/examples/pch06/pch.pm +++ b/org.glite.jp.index/examples/pch06/pch.pm @@ -59,8 +59,6 @@ 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; @@ -69,7 +67,7 @@ sub isquery { $s .= "\t$query[0]\n"; while ($i <= $#query) { my @record = @{$query[$i]}; - $s .= "\t$origin\n"; + $s .= "\t$origin\n" if $origin; $s .= "\t\n"; $s .= "\t\t$record[0]\n"; $s .= "\t\t$record[1]\n";