loncom/interface/lonhelper.pm - diff

Return to lonhelper.pm CVS log

Up to [LON-CAPA] / loncom / interface

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;