[interchange-cvs] interchange - racke modified dist/lib/UI/usertag/regenerate.tag
interchange-core@interchange.redhat.com
interchange-core@interchange.redhat.com
Wed Oct 17 04:05:02 2001
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;