If the template being modified is "active" then move the active bit to

the child template (parent no longer active).

tbsetup/Template.pm.in

@@ -173,6 +173,8 @@ sub logfile($) {
     return ((! ref($_[0])) ? -1 : $_[0]->{'TEMPLATE'}->{'logfile'}); }
 sub logfile_open($) {
     return ((! ref($_[0])) ? -1 : $_[0]->{'TEMPLATE'}->{'logfile_open'}); }
+sub active($) {
+    return ((! ref($_[0])) ? -1 : $_[0]->{'TEMPLATE'}->{'active'}); }
 
 #
 # Lookup a template given an experiment index.
@@ -1776,6 +1778,16 @@ sub InActivate($)
 
     return 0;
 }
+sub IsActive($)
+{
+    my ($self) = @_;
+
+    # Must be a real reference. 
+    return -1
+	if (! ref($self));
+
+    return $self->active();
+}
 
 # Improve this at some point.
 sub Recurse($$)

tbsetup/template_create.in

@@ -786,6 +786,15 @@ system("$makegraph $guid");
 fatal(-1, "Error generating template graph.")
     if ($?);
 
+#
+# Make the new template active (and the parent template inactive) if the
+# parent was already active.
+#
+if ($parent_template->IsActive()) {
+    $parent_template->InActivate();
+    $template->Activate();
+}
+
 #
 # Update parent to point to most recent child.
 #