version 1.4, 2000/07/08 11:23:36
|
version 1.10, 2001/05/03 13:18:49
|
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,10/2 Gerd Kortemeyer |
|
# 4/30/2001 Scott Harrison |
|
# 5/3 Gerd Kortemeyer |
|
|
package Apache::lonratsrv; |
package Apache::lonratsrv; |
|
|
Line 120 sub loadmap {
|
Line 122 sub loadmap {
|
} elsif ($token->[1] eq 'link') { |
} elsif ($token->[1] eq 'link') { |
# ----------------------------------------------------------------------- Links |
# ----------------------------------------------------------------------- Links |
$outstr.='<&>objlinks'; |
$outstr.='<&>objlinks'; |
if ($graphmode) { |
|
if ($token->[2]->{'index'}) { |
if ($token->[2]->{'index'}) { |
if ($links[$token->[2]->{'index'}]) { |
if ($links[$token->[2]->{'index'}]) { |
$errtext.='Error: multiple use of link index '. |
$errtext.='Error: multiple use of link index '. |
Line 134 sub loadmap {
|
Line 136 sub loadmap {
|
$outstr.='<:>'.$i; |
$outstr.='<:>'.$i; |
$links[$i]=1; |
$links[$i]=1; |
} |
} |
} |
|
$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 167 sub loadmap {
|
Line 169 sub loadmap {
|
|
|
sub savemap { |
sub savemap { |
my ($fn,$errtext)=@_; |
my ($fn,$errtext)=@_; |
if (($fn=~/\.course$/) || |
if (($fn=~/\.sequence$/) || |
($fn=~/\.sequence$/) || |
|
($fn=~/\.page$/)) { |
($fn=~/\.page$/)) { |
|
|
# ------------------------------------------------------------- Deal with input |
# ------------------------------------------------------------- Deal with input |
Line 283 sub handler {
|
Line 284 sub handler {
|
<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> |
|
<script> |
|
parent.flag=1; |
|
</script> |
ENDDOCUMENT |
ENDDOCUMENT |
if ($errtext ne '') { |
if ($errtext ne '') { |
$r->print(<<ENDSCRIPT); |
$r->print(<<ENDSCRIPT); |