--- loncom/interface/londocs.pm 2002/08/19 21:15:08 1.7
+++ loncom/interface/londocs.pm 2002/10/10 17:17:11 1.25
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.7 2002/08/19 21:15:08 www Exp $
+# $Id: londocs.pm,v 1.25 2002/10/10 17:17:11 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -34,10 +34,12 @@ use Apache::lonnet;
use Apache::loncommon;
use Apache::lonratedt;
use Apache::lonratsrv;
+use Apache::lonxml;
+my $iconpath;
# Mapread read maps into lonratedt::global arrays
-# @links and @resources, determines status
+# @order and @resources, determines status
# sets @order - pointer to resources in right order
# sets @resources - array with the resources with correct idx
#
@@ -53,23 +55,170 @@ sub storemap {
my ($coursenum,$coursedom,$map)=@_;
return
&Apache::lonratedt::storemap('/uploaded/'.$coursedom.'/'.$coursenum.'/'.
- $map);
+ $map,1);
}
sub editor {
my ($r,$coursenum,$coursedom,$folder,$allowed)=@_;
- my ($errtext,$fatal)=
+ if ($ENV{'form.foldername'}) {
+ $r->print('
Folder: '.$ENV{'form.foldername'}.'
');
+ }
+ my $errtext='';
+ my $fatal=0;
+ ($errtext,$fatal)=
&mapread($coursenum,$coursedom,$folder.'.sequence');
+ if ($#Apache::lonratedt::order<1) {
+ $Apache::lonratedt::order[0]=1;
+ $Apache::lonratedt::resources[1]='';
+ }
if ($fatal) {
$r->print('
'.$errtext.'
');
} else {
# ------------------------------------------------------------ Process commands
- if ($allowed) {
- }
+# ---------------- if they are for this folder and user allowed to make changes
+ if (($allowed) && ($ENV{'form.folder'} eq $folder)) {
+# upload a file, if present
+ if (($ENV{'form.uploaddoc.filename'}) &&
+ ($ENV{'form.cmd'}=~/^upload_(\w+)/)) {
+ if ($folder=~/^$1/) {
+# this is for a course, not a user, so set coursedoc flag
+# probably the only place in the system where this should be "1"
+ my $url=&Apache::lonnet::userfileupload('uploaddoc',1);
+ my $ext='false';
+ if ($url=~/^http\:\/\//) { $ext='true'; }
+ $url=~s/\:/\:/g;
+ my $comment=$ENV{'form.comment'};
+ $comment=~s/\\<\;/g;
+ $comment=~s/\>/\>\;/g;
+ $comment=~s/\:/\:/g;
+ if ($folder=~/^supplemental/) {
+ $comment=time.'___&&&___'.$ENV{'user.name'}.'___&&&___'.
+ $ENV{'user.domain'}.'___&&&___'.$comment;
+ }
+ my $newidx=$#Apache::lonratedt::resources+1;
+ $Apache::lonratedt::resources[$newidx]=
+ $comment.':'.$url.':'.$ext.':normal:res';
+ $Apache::lonratedt::order[$#Apache::lonratedt::order+1]=
+ $newidx;
+ &storemap($coursenum,$coursedom,$folder.'.sequence');
+ }
+ }
+ if ($ENV{'form.cmd'}) {
+ my ($cmd,$idx)=split(/\_/,$ENV{'form.cmd'});
+ if ($cmd eq 'del') {
+ for (my $i=$idx;$i<$#Apache::lonratedt::order;$i++) {
+ $Apache::lonratedt::order[$i]=
+ $Apache::lonratedt::order[$i+1];
+ }
+ $#Apache::lonratedt::order--;
+ } elsif ($cmd eq 'up') {
+ my $i=$Apache::lonratedt::order[$idx-1];
+ $Apache::lonratedt::order[$idx-1]=
+ $Apache::lonratedt::order[$idx];
+ $Apache::lonratedt::order[$idx]=$i;
+ } elsif ($cmd eq 'down') {
+ my $i=$Apache::lonratedt::order[$idx+1];
+ $Apache::lonratedt::order[$idx+1]=
+ $Apache::lonratedt::order[$idx];
+ $Apache::lonratedt::order[$idx]=$i;
+ }
+# Store the changed version
+ &storemap($coursenum,$coursedom,$folder.'.sequence');
+ }
+# Group import/search
+ if ($ENV{'form.importdetail'}) {
+ foreach (split(/\&/,$ENV{'form.importdetail'})) {
+ if (defined($_)) {
+ my ($name,$url)=split(/\=/,$_);
+ $name=&Apache::lonnet::unescape($name);
+ $url=&Apache::lonnet::unescape($url);
+ if ($url) {
+ my $idx=$#Apache::lonratedt::resources+1;
+ $Apache::lonratedt::order
+ [$#Apache::lonratedt::order+1]=$idx;
+ my $ext='false';
+ if ($url=~/^http\:\/\//) { $ext='true'; }
+ $url=~s/\:/\:/g;
+ $Apache::lonratedt::resources[$idx]=
+ $name.':'.$url.':'.$ext.':normal:res';
+ }
+ }
+ }
+# Store the changed version
+ &storemap($coursenum,$coursedom,$folder.'.sequence');
+ }
+ }
+# ---------------------------------------------------------------- End commands
# ---------------------------------------------------------------- Print screen
+ my $idx=0;
+ $r->print('
');
}
}
+# --------------------------------------------------------------- An entry line
+
+sub entryline {
+ my ($index,$title,$url,$folder,$allowed)=@_;
+ my $line='
";
+ return $line;
+}
+
+# ================================================================ Main Handler
sub handler {
my $r = shift;
$r->content_type('text/html');
@@ -78,112 +227,293 @@ 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'}=~/^supplement_/);
+ my $forcestandard;
+ my $forcesupplement;
+ my $script='';
+ my $allowed;
+ my $events='';
+ my $showdoc=0;
+ &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+ ['folder','foldername']);
+ if ($r->uri=~/^\/adm\/coursedocs\/showdoc\/(.*)$/) {
+ $showdoc=$1;
+ }
+ unless ($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'});
-
- if ($allowed) {
- &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
- ['remove']);
+ $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;
+ $script=''.&Apache::lonxml::registerurl(1,undef).'
ENDDOCUMENT
-# --------------------------------------------------0------ Standard documents
+ if ($allowed) {
+ $r->print(<
+function makenewfolder(targetform,folderseq) {
+ var foldername=prompt('Name of New Folder','New Folder');
+ if (foldername) {
+ targetform.importdetail.value=foldername+"="+folderseq;
+ targetform.submit();
+ }
+}
+
+function makenewext(targetname) {
+ this.document.forms.extimport.useform.value=targetname;
+ window.open('/adm/rat/extpickframe.html');
+}
+
+function makesmppage() {
+ var title=prompt('Listed Title for the Page');
+ this.document.forms.newsmppg.importdetail.value=
+ title+'=/adm/$udom/$uname/$now/smppg';
+ this.document.forms.newsmppg.submit();
+}
+
+function makebulboard() {
+ var title=prompt('Listed Title for the Bulletin Board');
+ this.document.forms.newbul.importdetail.value=
+ title+'=/adm/$udom/$uname/$now/bulletinboard';
+ this.document.forms.newbul.submit();
+}
+
+function finishpick() {
+ var title=this.document.forms.extimport.title.value;
+ var url=this.document.forms.extimport.url.value;
+ var form=this.document.forms.extimport.useform.value;
+ eval
+ ('this.document.forms.'+form+'.importdetail.value="'+title+'='+url+
+ '";this.document.forms.'+form+'.submit();');
+}
+
+ENDNEWSCRIPT
+ }
+# -------------------------------------------------------------------- Body tag
+ $r->print(''.
+ &Apache::loncommon::bodytag('Course Documents','',$events));
+ unless ($showdoc) {
+ if ($allowed) {
+ $r->print(<
+
+
+
+ENDCOURSEVERIFY
+ }
+# --------------------------------------------------------- Standard documents
+ $r->print('
');
if (($standard) && ($allowed) && (!$forcesupplement)) {
- $r->print('