--- loncom/interface/londocs.pm 2002/08/28 14:11:27 1.13 +++ loncom/interface/londocs.pm 2002/09/02 15:27:08 1.15 @@ -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.15 2002/09/02 15:27:08 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -34,6 +34,7 @@ use Apache::lonnet; use Apache::loncommon; use Apache::lonratedt; use Apache::lonratsrv; +use Apache::lonxml; my $iconpath; @@ -54,7 +55,7 @@ sub storemap { my ($coursenum,$coursedom,$map)=@_; return &Apache::lonratedt::storemap('/uploaded/'.$coursedom.'/'.$coursenum.'/'. - $map); + $map,1); } sub editor { @@ -192,23 +193,44 @@ sub handler { # is this a standard course? - &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['folder']); my $standard=($ENV{'request.course.uri'}=~/^\/uploaded\//); - my $forcestandard=($ENV{'form.folder'}=~/^default_/); - my $forcesupplement=($ENV{'form.folder'}=~/^supplemental_/); + my $forcestandard; + my $forcesupplement; + my $script=''; + my $allowed; + my $events=''; + &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, + ['folder','showdoc']); + unless ($ENV{'form.showdoc'}) { # got called from remote + $forcestandard=($ENV{'form.folder'}=~/^default_/); + $forcesupplement=($ENV{'form.folder'}=~/^supplemental_/); # does this user have privileges to post, etc? - my $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}); - my $script=''; - if ($allowed) { - &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['cmd']); - $script=&Apache::lonratedt::editscript('simple'); + $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}); + if ($allowed) { + &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['cmd']); + $script=&Apache::lonratedt::editscript('simple'); + } + } else { # got called in sequence from course + $allowed=0; + $forcestandard=1; + $forcesupplement=0; + $script=&Apache::&Apache::lonxml::registerurl(1,undef); + $events='onLoad="'.&Apache::lonxml::loadevents. + '" onUnload="'.&Apache::lonxml::unloadevents.'"'; } # get course data 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') . "/"; @@ -221,7 +243,7 @@ sub handler { ENDDOCUMENT -$r->print(&Apache::loncommon::bodytag('Course Documents')); +$r->print(&Apache::loncommon::bodytag('Course Documents','',$events)); # --------------------------------------------------0------ Standard documents if (($standard) && ($allowed) && (!$forcesupplement)) { $r->print('

Main Course Documents

'); @@ -266,13 +288,19 @@ value="New Folder" /> value="External Resource" />
- - + + +
+
+ +
- - +