From: Aleš Křenek Date: Wed, 6 Jun 2007 15:48:01 +0000 (+0000) Subject: adapt to head X-Git-Tag: glite-yaim-lb_R_3_1_1-1~46 X-Git-Url: http://scientific.zcu.cz/git/?a=commitdiff_plain;h=f9cb737af4ce7d7be4ff82a7abcf7c603a2c1a11;p=jra1mw.git adapt to head --- diff --git a/org.glite.jp.index/examples/pch06/pch.pm b/org.glite.jp.index/examples/pch06/pch.pm index e8bf688..9183f62 100644 --- a/org.glite.jp.index/examples/pch06/pch.pm +++ b/org.glite.jp.index/examples/pch06/pch.pm @@ -35,9 +35,9 @@ my @default_is_attributes = ( ); my @isquery = ( ' - + ', -' +' ' ); @@ -67,6 +67,7 @@ sub isquery { $s .= "\t$query[0]\n"; while ($i <= $#query) { my @record = @{$query[$i]}; + $s .= "\tUSER\n"; $s .= "\t\n"; $s .= "\t\t$record[0]\n"; $s .= "\t\t$record[1]\n";