|
version 1.49, 2001/01/30 21:01:36
|
version 1.51, 2001/02/13 00:15:49
|
|
Line 333 sub parstring {
|
Line 333 sub parstring {
|
| map { |
map { |
| unless ($_=~/\W/) { |
unless ($_=~/\W/) { |
| my $val=$token->[2]->{$_}; |
my $val=$token->[2]->{$_}; |
| if ($val =~ m/^[\%\@]/) { $val="\\".$val; } |
$val =~ s/([\%\@\\])/\$1/; |
| |
#if ($val =~ m/^[\%\@]/) { $val="\\".$val; } |
| $temp .= "my \$$_=\"$val\";" |
$temp .= "my \$$_=\"$val\";" |
| } |
} |
| } @{$token->[3]}; |
} @{$token->[3]}; |
|
Line 378 sub handler {
|
Line 379 sub handler {
|
| |
|
| $request->print('<body bgcolor="#FFFFFF">'."\n"); |
$request->print('<body bgcolor="#FFFFFF">'."\n"); |
| |
|
| my $file = "/home/httpd/html".$request->uri; |
my $file=&Apache::lonnet::filelocation("",$request->uri); |
| my %mystyle; |
my %mystyle; |
| my $result = ''; |
my $result = ''; |
| $result = Apache::lonxml::xmlparse($target, &Apache::lonnet::getfile($file),'',%mystyle); |
my $filecontents=&Apache::lonnet::getfile($file); |
| |
if ($filecontents == -1) { |
| |
&Apache::lonxml::error("<b> Unable to find <i>$file</i></b>"); |
| |
$filecontents=''; |
| |
} else { |
| |
$result = &Apache::lonxml::xmlparse($target,$filecontents,'',%mystyle); |
| |
} |
| $request->print($result); |
$request->print($result); |
| |
|
| |
|
| $request->print('</body>'); |
$request->print('</body>'); |
| $request->print(&Apache::lontexconvert::footer()); |
$request->print(&Apache::lontexconvert::footer()); |
| writeallows($request->uri); |
writeallows($request->uri); |
|
Line 409 sub warning {
|
Line 417 sub warning {
|
| |
|
| 1; |
1; |
| __END__ |
__END__ |
| |
|
| |
|
| |
|
| |
|
| |
|
| |
|
| |
|
| |
|
| |
|
| |
|
| |
|
| |
|
| |
|
| |
|
| |
|
| |
|
| |
|
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to lonxml.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml