--- 3m-810.pl	2009/11/16 16:23:05	59
+++ 3m-810.pl	2010/02/11 10:52:14	63
@@ -120,7 +120,8 @@
 				foreach my $p ( keys %$param ) {
 					next unless $p =~ m/^tag_(\S+)/;
 					my $tag = $1;
-					my $content = $param->{$p};
+					my $content = "\x04\x11\x00\x01" . $param->{$p};
+					$content = "\x00" if $param->{$p} eq 'blank';
 					$status = 302;
 
 					warn "PROGRAM $tag $content\n";
@@ -518,7 +519,9 @@
 	rename $path, $to;
 	print ">> $to\n";
 
-	delete $tags_data->{$tag};	# force re-read of tag
+	# force re-read of tag
+	delete $tags_data->{$tag};
+	delete $visible_tags->{$tag};
 }
 
 sub secure_tag {