# The LearningOnline Network # Documents # # $Id: londocs.pm,v 1.33 2002/10/18 14:50:22 www Exp $ # # Copyright Michigan State University Board of Trustees # # This file is part of the LearningOnline Network with CAPA (LON-CAPA). # # LON-CAPA is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # LON-CAPA is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with LON-CAPA; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # # /home/httpd/html/adm/gpl.txt # # http://www.lon-capa.org/ # package Apache::londocs; use strict; use Apache::Constants qw(:common :http); use Apache::lonnet; use Apache::loncommon; use Apache::lonratedt; use Apache::lonratsrv; use Apache::lonxml; use GDBM_File; my $iconpath; my %hash; my $hashtied; my %alreadyseen=(); # Mapread read maps into lonratedt::global arrays # @order and @resources, determines status # sets @order - pointer to resources in right order # sets @resources - array with the resources with correct idx # sub mapread { my ($coursenum,$coursedom,$map)=@_; return &Apache::lonratedt::mapread('/uploaded/'.$coursedom.'/'.$coursenum.'/'. $map); } sub storemap { my ($coursenum,$coursedom,$map)=@_; return &Apache::lonratedt::storemap('/uploaded/'.$coursedom.'/'.$coursenum.'/'. $map,1); } sub editor { my ($r,$coursenum,$coursedom,$folder,$allowed)=@_; if ($ENV{'form.foldername'}) { $r->print('
'.$errtext.'
'); } else { # ------------------------------------------------------------ Process commands # ---------------- 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('File | Modification Date | Version | Differences |
---|---|---|---|
'.$linkurl. ' | '. localtime($changes{$_}).' | '.$currentversion.' | '. '');
my $lastold=1;
for (my $prevvers=1;$prevvers<$currentversion;$prevvers++) {
my $url=$root.'.'.$prevvers.'.'.$extension;
if (&Apache::lonnet::metadata($url,'lastrevisiondate')<
$starttime) {
$lastold=$prevvers;
}
}
for (my $prevvers=$lastold;$prevvers<$currentversion;$prevvers++) {
my $url=$root.'.'.$prevvers.'.'.$extension;
$r->print('Version '.$prevvers.' ('.
localtime(&Apache::lonnet::metadata($url,'lastrevisiondate')).
')');
if (&Apache::loncommon::fileembstyle($extension) eq 'ssi') {
$r->print(' Diffs');
}
$r->print(' '); } $r->print(' |
No content modifications yet.
'); } &untiehash(); } else { # is this a standard course? my $standard=($ENV{'request.course.uri'}=~/^\/uploaded\//); 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? $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 if ($allowed) { $r->print(<Main Course Documents'); my $folder=$ENV{'form.folder'}; unless ($folder=~/^default/) { $folder='default'; } &editor($r,$coursenum,$coursedom,$folder,$allowed); my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time. '.sequence'; $r->print(<Upload a new main course document |
Import a published document |
Special documents |
File: |
|
| |
It is recommended that you use an up-to-date virus scanner before handling this file.