Index: /trunk/Ohana/src/perl/src/fr.select
===================================================================
--- /trunk/Ohana/src/perl/src/fr.select	(revision 36)
+++ /trunk/Ohana/src/perl/src/fr.select	(revision 37)
@@ -23,7 +23,13 @@
 if ($filter eq "NB920") { $MIN_CNTS = 180; $MIN_FLUX = 0.3; }
 
+# relevant camera parameters
 $Nccd = `cameraconfig -Nccd`; chop ($Nccd);
-$line = `cameraconfig -axes`; chop ($line);
-($Naxis1, $Naxis2) = split (" ", $line);
+if ($?) { die "error in config\n"; }
+
+($Naxis1, $Naxis2) = split (" ", `cameraconfig -axes`);
+if ($?) { die "error in config\n"; }
+
+@ccds = split (" ", `cameraconfig -ccds`);
+if ($?) { die "error in config\n"; }
 
 @good = ();
@@ -46,5 +52,5 @@
 @list = ();
 foreach $line (@filtline) {
-    @tlist = `imsearch -ccd 0 $line`;
+    @tlist = `imsearch -ccd $ccds[0] $line`;
     @list = (@list, @tlist);
 }