loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.230, 2003/02/12 22:04:34	version 1.232, 2003/02/13 21:14:35
Line 603 sub xmlparse {	Line 603 sub xmlparse {
my ($request,$target,$content_file_string,$safeinit,%style_for_target) = @_;	my ($request,$target,$content_file_string,$safeinit,%style_for_target) = @_;

&setup_globals($request,$target);	&setup_globals($request,$target);
	&Apache::inputtags::initialize_inputtags();
	&Apache::outputtags::initialize_outputtags();
	&Apache::edit::initialize_edit();
#	#
# do we have a course style file?	# do we have a course style file?
#	#
Line 1216 sub parstring {	Line 1219 sub parstring {
foreach (@{$token->[3]}) {	foreach (@{$token->[3]}) {
unless ($_=~/\W/) {	unless ($_=~/\W/) {
my $val=$token->[2]->{$_};	my $val=$token->[2]->{$_};
$val =~ s/([\%\@\\\"])/\\$1/g;	$val =~ s/([\%\@\\\"\'])/\\$1/g;
#if ($val =~ m/^[\%\@]/) { $val="\\".$val; }	#if ($val =~ m/^[\%\@]/) { $val="\\".$val; }
$temp .= "my \$$_=\"$val\";"	$temp .= "my \$$_=\"$val\";"
}	}