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\";" |
} |
} |