Changeset 27201

Timestamp:

Mar 4, 2010, 6:25:35 PM (16 years ago)

Author:

heather

Message:

fixed bugs in my script

File:

• trunk/tools/processing_quick_check.pl (modified) (1 diff)

trunk/tools/processing_quick_check.pl

@@ -215 +215 @@
 
 
-$qr = "select  distRun.state, distComponent.fault, distComponent.outdir, outroot from distRun join distComponent using (dist_id) where label ='$label' and (distComponent.fault > 0) order by distComponent.fault desc;"; 
-
- $query = $db->selectall_arrayref( $qr ) ||
-    die "Unable to execute SQL: $DBI::errstr\n";
-
-
-foreach  $item (@{$query}) {
-    print "dist ${$item}[0] ${$item}[1] ${$item}[2]\n";
+$qr = "select  distRun.state, distComponent.fault, distComponent.outdir, outroot from distRun join distComponent using (dist_id) where label ='$label' and (distComponent.fault > 0 ) order by distComponent.fault desc;"; 
+
+ $query = $db->selectall_arrayref( $qr ) ||
+    die "Unable to execute SQL: $DBI::errstr\n";
+
+
+foreach  $item (@{$query}) {
+    print "distComp ${$item}[0] ${$item}[1] ${$item}[2]\n";
+}
+
+$qr = "select  distRun.state, distRun.fault, outroot from distRun where label ='$label' and (distRun.fault > 0 ) order by distRun.fault desc;"; 
+
+ $query = $db->selectall_arrayref( $qr ) ||
+    die "Unable to execute SQL: $DBI::errstr\n";
+
+
+foreach  $item (@{$query}) {
+    print "distRun ${$item}[0] ${$item}[1] ${$item}[2]\n";
 }