--- loncom/xml/lonxml.pm 2001/05/04 21:17:24 1.72
+++ loncom/xml/lonxml.pm 2001/05/10 19:10:25 1.73
@@ -6,6 +6,7 @@
# 6/1/1 Gerd Kortemeyer
# 2/21,3/13 Guy
# 3/29,5/4 Gerd Kortemeyer
+# 5/10 Scott Harrison
package Apache::lonxml;
use vars
@@ -633,9 +634,9 @@ sub error {
}
sub warning {
- #if ($Apache::lonxml::debug eq 1) {
+ if ($ENV{'request.state'} eq 'construct') {
print "WARNING:".$_[0]."
\n";
- # }
+ }
}
1;