--- loncom/lonnet/perl/lonnet.pm 2004/05/09 00:45:01 1.498 +++ loncom/lonnet/perl/lonnet.pm 2004/05/11 06:49:58 1.500 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.498 2004/05/09 00:45:01 www Exp $ +# $Id: lonnet.pm,v 1.500 2004/05/11 06:49:58 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1182,10 +1182,6 @@ sub allowuploaded { &Apache::lonnet::appenv(%httpref); } -sub tokenwrapper { - &FIXME_blow_up; -} - # --------- File operations in /home/httpd/html/userfiles/$domain/1/2/3/$course # input: action, courseID, current domain, home server for course, intended # path to file, source of file. @@ -1329,7 +1325,7 @@ sub finishuserfileupload { } # Save the file { - &Apache::lonnet::logthis("Saving to $filepath $file"); + #&Apache::lonnet::logthis("Saving to $filepath $file"); open(my $fh,'>'.$filepath.'/'.$file); print $fh $ENV{'form.'.$formname}; close($fh);