--- rat/lonuserstate.pm 2002/09/02 15:27:08 1.40 +++ rat/lonuserstate.pm 2002/10/07 13:50:36 1.44 @@ -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.40 2002/09/02 15:27:08 www Exp $ +# $Id: lonuserstate.pm,v 1.44 2002/10/07 13:50:36 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -68,6 +68,11 @@ my @cond; # Array with all of the con my $errtext; # variable with all errors my $retfurl; # variable with the very first URL in the course my %randompick; # randomly picked resources +my %actualversion # version of resource as loaded now +my %setversion # forced version of resource +my %lastversion # version when CC came in last +my $versionmode # how versioning is handled in this course +my $hasversionpriv # user has versioning privileges # --------------------------------------------------------- Loads map from disk sub loadmap { @@ -124,13 +129,12 @@ sub loadmap { if (($embstyle eq 'img') || ($embstyle eq 'emb') || ($embstyle eq 'ssi')) { $turi='/adm/wrapper'.$turi; - } else { - $turi='/adm/coursedocs?showdoc='.$turi; + } elsif ($turi!~/\.(sequence|page)$/) { + $turi='/adm/coursedocs/showdoc'.$turi; } } else { # normal internal resource if (($embstyle eq 'img') || ($embstyle eq 'emb') - || ($turi=~/\/syllabus$/) || ($turi=~/\/aboutme$/) - || ($turi=~/\/navmaps$/)) { + || ($turi=~/\/(syllabus|aboutme|navmaps|smppg|bulletinboard)$/)) { $turi='/adm/wrapper'.$turi; } }