Index: /tags/ipp-20111110/ippScripts/scripts/register_exp.pl
===================================================================
--- /tags/ipp-20111110/ippScripts/scripts/register_exp.pl	(revision 32844)
+++ /tags/ipp-20111110/ippScripts/scripts/register_exp.pl	(revision 32845)
@@ -121,5 +121,6 @@
 my ($data_group,$dist_group,$chip_workdir,$reduction);
 ($label,$data_group,$dist_group,$end_stage,
- $tess_id,$chip_workdir,$reduction) = advance_decisions(&value_for_flag($cmdflags,"-dateobs"),
+ $tess_id,$chip_workdir,$reduction) = advance_decisions(&value_for_flag($cmdflags,"-exp_name"),
+							&value_for_flag($cmdflags,"-dateobs"),
 							&value_for_flag($cmdflags,"-exp_type"),
 							&value_for_flag($cmdflags,"-obs_mode"),
@@ -170,4 +171,5 @@
 ### Pau.
 sub advance_decisions {
+    my $exp_name = shift;
     my $dateobs = shift;
     my $exptype = shift;
@@ -178,4 +180,5 @@
 
     # The strings come pre-quoted.
+    $exp_name =~ s/\'//g;
     $dateobs =~ s/\'//g;
     $exptype =~ s/\'//g;
@@ -188,4 +191,9 @@
     my $target;
 
+    if ($exp_name =~ /^c/) {
+	print "Skipping because this is a camera commanded exposure: $exp_name\n";
+	return(undef,undef,undef,"reg",undef,undef,undef);
+    }
+    
     if ($exptype ne 'OBJECT') {
 	print "Skipping because exptype doesn't claim to be OBJECT: $exptype\n";