--- loncom/lonnet/perl/lonnet.pm 2005/03/02 22:26:36 1.602 +++ loncom/lonnet/perl/lonnet.pm 2005/03/03 05:45:50 1.603 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.602 2005/03/02 22:26:36 raeburn Exp $ +# $Id: lonnet.pm,v 1.603 2005/03/03 05:45:50 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -5366,9 +5366,6 @@ sub filelocation { $location=$Apache::lonnet::perlvar{'lonDocRoot'}.'/userfiles/'. $udom.'/'.$uname.'/'.$filename; } - } elsif ($file =~ /^\/adm\/portfolio\//) { - $file =~ s:^/adm/portfolio/::; - $location = $location=&Apache::loncommon::propath($ENV{'user.domain'},$ENV{'user.name'}).'/userfiles/portfolio/'.$file; } else { $file=~s/^\Q$perlvar{'lonDocRoot'}\E//; $file=~s:^/res/:/:;