--- rat/lonratsrv.pm 2000/07/28 21:36:12 1.6 +++ rat/lonratsrv.pm 2000/10/02 16:10:12 1.7 @@ -6,7 +6,7 @@ # # 05/29/00,05/30 Gerd Kortemeyer) # 7/1 Gerd Kortemeyer) -# 7/1,7/3,7/4,7/7,7/8,7/10,7/26 Gerd Kortemeyer +# 7/1,7/3,7/4,7/7,7/8,7/10,7/26,10/2 Gerd Kortemeyer package Apache::lonratsrv; @@ -120,7 +120,7 @@ sub loadmap { } elsif ($token->[1] eq 'link') { # ----------------------------------------------------------------------- Links $outstr.='<&>objlinks'; - if ($graphmode) { + if ($token->[2]->{'index'}) { if ($links[$token->[2]->{'index'}]) { $errtext.='Error: multiple use of link index '. @@ -134,7 +134,7 @@ sub loadmap { $outstr.='<:>'.$i; $links[$i]=1; } - } + $outstr.='<:>'.$token->[2]->{'from'}. ':'.$token->[2]->{'to'}; if ($token->[2]->{'condition'}) { @@ -167,8 +167,7 @@ sub loadmap { sub savemap { my ($fn,$errtext)=@_; - if (($fn=~/\.course$/) || - ($fn=~/\.sequence$/) || + if (($fn=~/\.sequence$/) || ($fn=~/\.page$/)) { # ------------------------------------------------------------- Deal with input