From: František Dvořák <valtri@civ.zcu.cz>
Date: Wed, 13 Sep 2006 15:37:36 +0000 (+0000)
Subject: q3 - cosmetic change (view all desired attributes)
X-Git-Tag: glite-jp-index_R_1_2_2~1
X-Git-Url: http://scientific.zcu.cz/git/?a=commitdiff_plain;h=c7bf34d0fb35292b67dcfa95514fe9a0bc6c38d3;p=jra1mw.git

q3 - cosmetic change (view all desired attributes)
q5 - forgotten fix for the output
---

diff --git a/org.glite.jp.index/examples/pch06/query4.pl b/org.glite.jp.index/examples/pch06/query4.pl
index e51f94c..467c2fd 100644
--- a/org.glite.jp.index/examples/pch06/query4.pl
+++ b/org.glite.jp.index/examples/pch06/query4.pl
@@ -21,8 +21,7 @@ my $program_name='align_warp';
 my $program_params='-m 12';
 my $runday=1;
 #my $runday=4;
-my @view_attributes = ("$pch::jplbtag:IPAW_STAGE", "$pch::jplbtag:IPAW_PROGRAM", "$pch::jplbtag:IPAW_PARAM", "$pch::jplbtag:IPAW_INPUT", "$pch::jplbtag:IPAW_OUTPUT", "$pch::lbattr:CE");
-my @attributes = ("$pch::jpsys:jobId", "$pch::jpsys:regtime", @view_attributes);
+my @attributes = ("$pch::jpsys:jobId", @pch::view_attributes);
 
 my %according_jobs = (); # hash jobid list
 my $according_count = 0;
@@ -84,7 +83,7 @@ foreach my $jobid (sort { $according_jobs{$b}{attributes}{"$pch::jplbtag:IPAW_ST
 	print "jobid $jobid:\n";
 
 	# output all desired atributes
-	foreach my $attr (@view_attributes) {
+	foreach my $attr (@pch::view_attributes) {
 		my $attr_name = $attr; $attr_name =~ s/.*://;
 
 		print "  attr $attr_name: ";
diff --git a/org.glite.jp.index/examples/pch06/query5.pl b/org.glite.jp.index/examples/pch06/query5.pl
index 52b3327..c9f05b7 100644
--- a/org.glite.jp.index/examples/pch06/query5.pl
+++ b/org.glite.jp.index/examples/pch06/query5.pl
@@ -76,7 +76,7 @@ foreach my $jobid (@according_jobs) {
 
 	print "Handling $jobid (position $according_count)\n" if ($debug);
 
-	if ($according_jobs{$jobid}{attributes}{"$pch::IPAW_PROGRAM"}[0] eq $end_program_name) {
+	if ($according_jobs{$jobid}{attributes}{"$pch::IPAW_PROGRAM"}{value}[0] eq $end_program_name) {
 		print "It's $end_program_name\n" if $debug;
 		next;
 	}