[interchange-cvs] interchange - racke modified dist/lib/UI/usertag/regenerate.tag

[interchange-core@interchange.redhat.com]

User:      racke
Date:      2001-10-17 08:04:26 GMT
Modified:  dist/lib/UI/usertag regenerate.tag
Log:
calc/perl need to pickup our changes to $::Scratch

Revision  Changes    Path
2.9       +4 -0      interchange/dist/lib/UI/usertag/regenerate.tag


rev 2.9, prev_rev 2.8
Index: regenerate.tag
===================================================================
RCS file: /anon_cvs/repository/interchange/dist/lib/UI/usertag/regenerate.tag,v
retrieving revision 2.8
retrieving revision 2.9
diff -u -r2.8 -r2.9
--- regenerate.tag	2001/10/16 21:36:36	2.8
+++ regenerate.tag	2001/10/17 08:04:25	2.9
@@ -94,6 +94,9 @@
 					mv_no_count => 1,
 				 };
 
+	# bindings for Safe are no longer valid
+	$Vend::Calc_initialized = 0;
+
 	eval {
 		($pageref) = ::cache_html($page, 1);
 	};
@@ -325,6 +328,7 @@
 		my $out = "Messages during regen:<blockquote>";
 		$out .= join "<br>", @regen_messages;
 		$out .= "</blockquote>";
+		regen_track(join("\n", @regen_messages));
 		::response($out);
 	}
 	my $end = (times)[0] - $start;