--- loncom/interface/lonhelper.pm 2007/07/25 23:20:38 1.161
+++ loncom/interface/lonhelper.pm 2007/08/29 00:46:39 1.162
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# .helper XML handler to implement the LON-CAPA helper
#
-# $Id: lonhelper.pm,v 1.161 2007/07/25 23:20:38 albertel Exp $
+# $Id: lonhelper.pm,v 1.162 2007/08/29 00:46:39 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1008,6 +1008,9 @@ sub start_message {
if (defined($token->[2]{'nextstate'})) {
$paramHash->{NEXTSTATE} = $token->[2]{'nextstate'};
}
+ if (defined($token->[2]{'type'})) {
+ $paramHash->{TYPE} = $token->[2]{'type'};
+ }
return '';
}
@@ -1023,7 +1026,15 @@ sub end_message {
sub render {
my $self = shift;
-
+
+ if ($self->{TYPE} =~ /^\s*warning\s*$/i) {
+ $self->{MESSAGE_TEXT} =
+ ''. $self->{MESSAGE_TEXT}.'';
+ }
+ if ($self->{TYPE} =~ /^\s*error\s*$/i) {
+ $self->{MESSAGE_TEXT} =
+ ''. $self->{MESSAGE_TEXT}.'';
+ }
return $self->{MESSAGE_TEXT};
}
# If a NEXTSTATE was given, switch to it