--- loncom/lonnet/perl/lonnet.pm 2001/01/09 19:55:31 1.89 +++ loncom/lonnet/perl/lonnet.pm 2001/01/09 23:04:15 1.92 @@ -84,6 +84,8 @@ # 12/02,12/12,12/13,12/14,12/28,12/29 Gerd Kortemeyer # 05/01/01 Guy Albertelli # 05/01,06/01,09/01 Gerd Kortemeyer +# 09/01 Guy Albertelli +# 09/01 Gerd Kortemeyer package Apache::lonnet; @@ -279,7 +281,7 @@ sub appenv { $fh->close(); return 'error: '.$!; } - foreach $newname (keys %newenv) { + foreach $newname (sort keys %newenv) { print $fh "$newname=$newenv{$newname}\n"; } $fh->close(); @@ -1039,6 +1041,7 @@ sub allowed { if ($envkey=~/^user\.role\.(st|ta)\.([^\.]*)/) { my $courseid=$2; my $roleid=$1.'.'.$2; + $courseid=~s/^\///; my $expiretime=600; if ($ENV{'request.role'} eq $roleid) { $expiretime=120;