--- loncom/lonnet/perl/lonnet.pm 2012/11/30 20:48:34 1.1204 +++ loncom/lonnet/perl/lonnet.pm 2012/12/03 14:47:37 1.1205 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1204 2012/11/30 20:48:34 raeburn Exp $ +# $Id: lonnet.pm,v 1.1205 2012/12/03 14:47:37 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -10324,7 +10324,8 @@ sub getdocspath { ':'.$res->randompick(). ':'.$res->randomout(). ':'.$res->encrypted(). - ':'.$res->randomorder(); + ':'.$res->randomorder(). + ':'.$res->is_page(); } } } @@ -10339,19 +10340,24 @@ sub getdocspath { ':'.$mapresobj->randompick(). ':'.$mapresobj->randomout(). ':'.$mapresobj->encrypted(). - ':'.$mapresobj->randomorder(); + ':'.$mapresobj->randomorder(). + ':'.$mapresobj->is_page(); } else { my $maptitle = &gettitle($mapurl); + my $ispage; + if ($mapurl =~ /\.page$/) { + $ispage = 1; + } if ($mapurl eq 'default') { $maptitle = 'Main Course Documents'; } $path = &Apache::lonhtmlcommon::entity_encode($mapurl).'&'. - &Apache::lonhtmlcommon::entity_encode($maptitle).'::::'; + &Apache::lonhtmlcommon::entity_encode($maptitle).':::::'.$ispage; } unless ($mapurl eq 'default') { $path = 'default&'. &Apache::lonhtmlcommon::entity_encode('Main Course Documents'). - '::::&'.$path; + ':::::&'.$path; } } return $path;