--- rat/lonuserstate.pm 2003/02/28 16:17:00 1.52 +++ rat/lonuserstate.pm 2003/03/02 01:43:01 1.55 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Construct and maintain state and binary representation of course for user # -# $Id: lonuserstate.pm,v 1.52 2003/02/28 16:17:00 www Exp $ +# $Id: lonuserstate.pm,v 1.55 2003/03/02 01:43:01 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -139,19 +139,24 @@ sub loadmap { $turi='/adm/coursedocs/showdoc'.$turi; } } else { # normal internal resource - if (($embstyle eq 'img') || ($embstyle eq 'emb') - || ($turi=~/\/(syllabus|aboutme|navmaps|smppg|bulletinboard)$/)) { - $turi=$turi.'?register=1'; + if (($embstyle eq 'img') || ($embstyle eq 'emb')) { + $turi='/adm/wrapper'.$turi; } } } - $hash{'src_'.$rid}=$turi; if (defined($hash{'ids_'.$turi})) { $hash{'ids_'.$turi}.=','.$rid; } else { $hash{'ids_'.$turi}=''.$rid; } + + if + ($turi=~/\/(syllabus|aboutme|navmaps|smppg|bulletinboard)$/) { + $turi.='?register=1'; + } + + $hash{'src_'.$rid}=$turi; if ($token->[2]->{'external'} eq 'true') { $hash{'ext_'.$rid}='true:'; @@ -372,11 +377,11 @@ sub accinit { my $resid=$_; my $uri=$hash{'src_'.$resid}; $uri=~s/^\/adm\/wrapper//; + $uri=&Apache::lonnet::declutter($uri); my @uriparts=split(/\//,$uri); my $urifile=$uriparts[$#uriparts]; $#uriparts--; my $uripath=join('/',@uriparts); - $uripath=~s/^\/res\///; if ($uripath) { my $uricond='0'; if (defined($hash{'conditions_'.$resid})) {