version 1.9, 2003/04/11 19:01:46
|
version 1.10, 2003/04/11 19:07:48
|
Line 680 use strict;
|
Line 680 use strict;
|
|
|
BEGIN { |
BEGIN { |
&Apache::lonhelper::register('Apache::lonhelper::message', |
&Apache::lonhelper::register('Apache::lonhelper::message', |
('message', 'message_text')); |
('message')); |
} |
} |
|
|
sub new { |
sub new { |
Line 690 sub new {
|
Line 690 sub new {
|
|
|
# CONSTRUCTION: Construct the message element from the XML |
# CONSTRUCTION: Construct the message element from the XML |
sub start_message { |
sub start_message { |
return ''; |
|
} |
|
|
|
sub end_message { |
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
|
|
if ($target ne 'helper') { |
if ($target ne 'helper') { |
return ''; |
return ''; |
} |
} |
Apache::lonhelper::message->new(); |
|
|
$paramHash->{MESSAGE_TEXT} = &Apache::lonxml::get_all_text('/message', |
|
$parser); |
|
|
|
if (defined($token->[2]{'nextstate'})) { |
|
$paramHash->{NEXTSTATE} = $token->[2]{'nextstate'}; |
|
} |
return ''; |
return ''; |
} |
} |
|
|
sub start_message_text { |
sub end_message { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
|
|
if ($target ne 'helper') { |
if ($target ne 'helper') { |
return ''; |
return ''; |
} |
} |
|
Apache::lonhelper::message->new(); |
$paramHash->{MESSAGE_TEXT} = &Apache::lonxml::get_all_text('/message_text', |
return ''; |
$parser); |
|
} |
} |
|
|
sub end_message_text { return 1; } |
|
|
|
sub render { |
sub render { |
my $self = shift; |
my $self = shift; |