--- rat/lonwrapper.pm 2001/11/29 19:23:49 1.4 +++ rat/lonwrapper.pm 2003/01/20 17:03:25 1.6 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Wrapper for external and binary files as standalone resources # -# $Id: lonwrapper.pm,v 1.4 2001/11/29 19:23:49 www Exp $ +# $Id: lonwrapper.pm,v 1.6 2003/01/20 17:03:25 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -52,9 +52,12 @@ sub handler { my $url=$r->uri; $url=~s/^\/adm\/wrapper//; $url=~s/^\/ext\//http\:\/\//; + if ($url=~/^\/uploaded\//) { + $url=&Apache::lonnet::tokenwrapper($url); + } my $events='onLoad="'.&Apache::lonxml::loadevents. '" onUnload="'.&Apache::lonxml::unloadevents.'"'; - my $script=&Apache::lonxml::registerurl(1); + my $script=&Apache::lonxml::registerurl(1,undef); $r->print(<