version 1.4, 2000/07/08 11:23:36
|
version 1.6, 2000/07/28 21:36:12
|
Line 6
|
Line 6
|
# |
# |
# 05/29/00,05/30 Gerd Kortemeyer) |
# 05/29/00,05/30 Gerd Kortemeyer) |
# 7/1 Gerd Kortemeyer) |
# 7/1 Gerd Kortemeyer) |
# 7/1,7/3,7/4,7/7,7/8 Gerd Kortemeyer |
# 7/1,7/3,7/4,7/7,7/8,7/10,7/26 Gerd Kortemeyer |
|
|
package Apache::lonratsrv; |
package Apache::lonratsrv; |
|
|
Line 136 sub loadmap {
|
Line 136 sub loadmap {
|
} |
} |
} |
} |
$outstr.='<:>'.$token->[2]->{'from'}. |
$outstr.='<:>'.$token->[2]->{'from'}. |
'<:>'.$token->[2]->{'to'}; |
':'.$token->[2]->{'to'}; |
if ($token->[2]->{'condition'}) { |
if ($token->[2]->{'condition'}) { |
$outstr.='<:>'.$token->[2]->{'condition'}; |
$outstr.=':'.$token->[2]->{'condition'}; |
} else { |
} else { |
$outstr.='<:>0'; |
$outstr.=':0'; |
} |
} |
} elsif ($graphmode) { |
} elsif ($graphmode) { |
# --------------------------------------------- All other tags (graphical only) |
# --------------------------------------------- All other tags (graphical only) |
Line 271 sub handler {
|
Line 271 sub handler {
|
my $fn=$r->filename; |
my $fn=$r->filename; |
my $errtext=''; |
my $errtext=''; |
my $outtext=''; |
my $outtext=''; |
|
my $onload=''; |
|
|
if ($mode ne 'loadonly') { |
if ($mode ne 'loadonly') { |
$errtext=&savemap($fn,$errtext); |
$errtext=&savemap($fn,$errtext); |
|
$onload='onLoad="parent.code.srvloaded();"'; |
} |
} |
($outtext,$errtext)=&loadmap($fn,$errtext); |
($outtext,$errtext)=&loadmap($fn,$errtext); |
|
|
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
<html> |
<html> |
<body bgcolor="#FFFFFF"> |
<body bgcolor="#FFFFFF" $onload> |
<form name=storage method=post action="$url"> |
<form name=storage method=post action="$url"> |
<input type=hidden name=output value="$outtext"> |
<input type=hidden name=output value="$outtext"> |
</form> |
</form> |