--- loncom/lonnet/perl/lonnet.pm 2002/07/17 19:18:47 1.253 +++ loncom/lonnet/perl/lonnet.pm 2002/07/30 19:57:40 1.255 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.253 2002/07/17 19:18:47 stredwic Exp $ +# $Id: lonnet.pm,v 1.255 2002/07/30 19:57:40 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -708,6 +708,16 @@ sub ssi { return $response->content; } +# ------- Add a token to a remote URI's query string to vouch for access rights + +sub tokenwrapper { + my $uri=shift; + my $token=&reply('tmpput:'.&escape($uri),$perlvar{'lonHostID'}); + return $uri.(($uri=~/\?/)?'&':'?'). + 'token='.$token.'&server='.$perlvar{'lonHostID'}; +} + + # ------------------------------------------------------------------------- Log sub log { @@ -2418,7 +2428,7 @@ sub EXT { my $section; if (($ENV{'user.name'} eq $uname) && ($ENV{'user.domain'} eq $udom)) { - $section={'request.course.sec'}; + $section=$ENV{'request.course.sec'}; } else { $section=&usection($udom,$uname,$courseid); }