--- loncom/lonnet/perl/lonnet.pm 2007/01/18 21:02:06 1.828 +++ loncom/lonnet/perl/lonnet.pm 2007/01/18 21:31:40 1.829 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.828 2007/01/18 21:02:06 www Exp $ +# $Id: lonnet.pm,v 1.829 2007/01/18 21:31:40 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -7202,13 +7202,7 @@ sub repcopy_userfile { if (-e $transferfile) { return 'ok'; } my $request; $uri=~s/^\///; - if (&homeserver($cnum,$cdom) eq $perlvar{'lonHostID'}) { -# if this is my own server, get it via tokenwrapper - $request=new HTTP::Request('GET',&tokenwrapper('/'.$uri)); - } else { -# get it from another server, raw request - $request=new HTTP::Request('GET','http://'.$hostname{&homeserver($cnum,$cdom)}.'/raw/'.$uri); - } + $request=new HTTP::Request('GET','http://'.$hostname{&homeserver($cnum,$cdom)}.'/raw/'.$uri); my $response=$ua->request($request,$transferfile); # did it work? if ($response->is_error()) {