Index: trunk/Ohana/src/perl/src/elixir.link
===================================================================
--- trunk/Ohana/src/perl/src/elixir.link	(revision 107)
+++ trunk/Ohana/src/perl/src/elixir.link	(revision 108)
@@ -19,4 +19,5 @@
     if ($camera eq "cfh12k")  { last; } 
     if ($camera eq "megacam") { last; } 
+    if ($camera eq "meganorth") { last; } 
     if ($camera eq "cfhtir")  { last; } 
     die "invalid camera $camera";
@@ -65,10 +66,14 @@
     }
     
-    # these files always come in as MEF or CUBE
-    vsystem ("imsort $opts $rawfile");
+    # these files always come in as MEF or CUBE 
+    # -needtype will skip focus frames
+    vsystem ("imsort -needtype $opts $rawfile");
     if ($?) { 
 	# allow for retry on failure
 	$Nfail ++;
-	unlink ($rawfile);
+
+	# save links for record.
+	if (! -d "$linkdir/failure") { mkdir "$linkdir/failure"; }
+	system ("mv $name $linkdir/failure/");
 	next; 
     }