--- 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);
 	    }