loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/lonxml.pm between versions 1.208 and 1.211

version 1.208, 2002/10/25 18:58:19	version 1.211, 2002/11/06 22:36:08
Line 841 sub callsub {	Line 841 sub callsub {
if ($token->[0] eq 'S') {	if ($token->[0] eq 'S') {
$currentstring = $token->[4];	$currentstring = $token->[4];
$currentstring.=&Apache::edit::handle_insert();	$currentstring.=&Apache::edit::handle_insert();
	} elsif ($token->[0] eq 'E') {
	$currentstring = $token->[2];
	$currentstring.=&Apache::edit::handle_insertafter($token->[1]);
} else {	} else {
$currentstring = $token->[2];	$currentstring = $token->[2];
}	}
Line 1043 sub get_all_text_unbalanced {	Line 1046 sub get_all_text_unbalanced {
} elsif ($token->[0] eq 'E') {	} elsif ($token->[0] eq 'E') {
$result.=$token->[2];	$result.=$token->[2];
}	}
if ($result =~ /(.)$tag(.)/) {	if ($result =~ /(.)\Q$tag\E(.)/s) {
&Apache::lonxml::debug('Got a winner with leftovers ::'.$2);	&Apache::lonxml::debug('Got a winner with leftovers ::'.$2);
&Apache::lonxml::debug('Result is :'.$1);	&Apache::lonxml::debug('Result is :'.$1);
$result=$1;	$result=$1;
Line 1381 sub error {	Line 1384 sub error {
&Apache::lonmsg::author_res_msg($ENV{'request.filename'},join('<br />',@_));	&Apache::lonmsg::author_res_msg($ENV{'request.filename'},join('<br />',@_));
#notify course	#notify course
if ( $ENV{'request.course.id'} ) {	if ( $ENV{'request.course.id'} ) {
my $users=$ENV{'course.'.$ENV{'request.course.id'}.'.comment.email'};	my (undef,%users)=&Apache::lonfeedback::decide_receiver(undef,0,1,1,1);
my $declutter=&Apache::lonnet::declutter($ENV{'request.filename'});	my $declutter=&Apache::lonnet::declutter($ENV{'request.filename'});
foreach my $user (split /\,/, $users) {	foreach (keys %users) {
($user,my $domain) = split /:/, $user;	my ($user,$domain) = split(/:/, $_);
&Apache::lonmsg::user_normal_msg($user,$domain,	&Apache::lonmsg::user_normal_msg($user,$domain,
"Error [$declutter]",join('<br />',@_));	"Error [$declutter]",join('<br />',@_));
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.208
changed lines
	Added in v.1.211