--- loncom/interface/londocs.pm 2002/08/28 14:11:27 1.13 +++ loncom/interface/londocs.pm 2002/08/31 00:43:12 1.14 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.13 2002/08/28 14:11:27 www Exp $ +# $Id: londocs.pm,v 1.14 2002/08/31 00:43:12 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -209,6 +209,13 @@ sub handler { my $coursenum=$ENV{'course.'.$ENV{'request.course.id'}.'.num'}; my $coursedom=$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}; +# get personal data + + my $uname=$ENV{'user.name'}; + my $udom=$ENV{'user.domain'}; + my $plainname=&Apache::lonnet::escape( + &Apache::loncommon::plainname($uname,$udom)); + # graphics settings $iconpath = $r->dir_config('lonIconsURL') . "/"; @@ -266,13 +273,14 @@ value="New Folder" /> value="External Resource" />
- - + +
- - +