Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

"showdoc" needs to be URL-encode like all the other functionality in order to
properly register with the remote. Remote has now additional fields to store symb, but
nothing is done with them yet. Eventually, this should improve navigation and contents
display for resources showing up multiple times.

# The LearningOnline Network
# Documents
#
# $Id: londocs.pm,v 1.21 2002/09/06 15:18:23 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);
use Apache::lonnet;
use Apache::loncommon;
use Apache::lonratedt;
use Apache::lonratsrv;
use Apache::lonxml;

my $iconpath;

# 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('<h3>Folder: '.$ENV{'form.foldername'}.'</h3>');
    }
    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('<p><font color="red">'.$errtext.'</font></p>');
    } 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/\:/\&colon;/g;
	      my $comment=$ENV{'form.comment'};
              $comment=~s/\</\&lt\;/g;
              $comment=~s/\>/\&gt\;/g;
              $comment=~s/\:/\&colon;/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/\:/\&colon;/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('<table>');
        foreach (@Apache::lonratedt::order) {
           my ($name,$url)=split(/\:/,$Apache::lonratedt::resources[$_]);
           unless ($name) {  $name=(split(/\//,$url))[-1]; }
           unless ($name) { $name='EMPTY'; }
           $r->print(&entryline($idx,$name,$url,$folder,$allowed));
           $idx++;
        }
        $r->print('</table>');
    }
}

# --------------------------------------------------------------- An entry line

sub entryline {
    my ($index,$title,$url,$folder,$allowed)=@_;
    my $line='<tr>';
# Edit commands
    if ($allowed) {
       $line.=(<<END);
<td><table border='0' cellspacing='0' cellpadding='0'>
<tr><td><a href='/adm/coursedocs?folder=$folder&cmd=up_$index'>
<img src="${iconpath}move_up.gif" alt='UP' border='0' /></a></td></tr>
<tr><td><a href='/adm/coursedocs?folder=$folder&cmd=down_$index'>
<img src="${iconpath}move_down.gif" alt='DOWN' border='0' /></a></td></tr>
</table></td><td>
<a href='/adm/coursedocs?folder=$folder&cmd=del_$index'>Remove</td>
END
    }
# Figure out what kind of a resource this is
    my ($extension)=($url=~/\.(\w+)$/);
    my $uploaded=($url=~/^\/*uploaded\//);
    my $icon='unknown';
    if (-e "/home/httpd/html/adm/lonIcons/$extension.gif") {
	$icon=$extension;
    }
    my $isfolder=0;
    if ($uploaded) {
       if ($extension eq 'sequence') {
	  $icon='folder_closed';
          $url=~/\/(\w+)\.sequence/;
          $url='/adm/coursedocs?folder='.$1;
          $isfolder=1;
       } else {
	  $url=&Apache::lonnet::tokenwrapper($url);
       } 
    }
    $url=~s/^http\&colon\;\/\//\/adm\/wrapper\/ext\//;
# Title
    $title=&Apache::lonnet::unescape($title);
    my $foldertitle=$title;
    if ($title=~
 /^(\d+)\_\_\_\&\&\&\_\_\_(\w+)\_\_\_\&\&\&\_\_\_(\w+)\_\_\_\&\&\&\_\_\_(.*)$/
	) { 
            $foldertitle=&Apache::lontexconvert::msgtexconverted($4);
            $title='<i>'.localtime($1).'</i> '.
                &Apache::loncommon::plainname($2,$3).': <br>'.
		$foldertitle;
	}
    if ($isfolder) { $url.='&foldername='.$foldertitle; }
    $line.='<td bgcolor="#FFFFBB"><a href="'.$url.'"><img src="/adm/lonIcons/'.
        $icon.'.gif" border="0"></a></td>'.
        "<td bgcolor='#FFFFBB'><a href='$url'>$title</a></td></tr>";
    return $line;
}

# ================================================================ Main Handler
sub handler {
    my $r = shift;
    $r->content_type('text/html');
    $r->send_http_header;
    return OK if $r->header_only;

# 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='</script>'.&Apache::lonxml::registerurl(1,undef).'<script>';
       $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') . "/";

# print screen
    $r->print(<<ENDDOCUMENT);
<html>
<head>
<title>The LearningOnline Network with CAPA</title>
<script>
$script
</script>
ENDDOCUMENT
   if ($allowed) {
    $r->print(<<ENDNEWSCRIPT);
<script>
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 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();');
}
</script>
ENDNEWSCRIPT
  }
# -------------------------------------------------------------------- Body tag
  $r->print('</head>'.
            &Apache::loncommon::bodytag('Course Documents','',$events));
  unless ($showdoc) {
# --------------------------------------------------------- Standard documents
    if (($standard) && ($allowed) && (!$forcesupplement)) {
       $r->print('<h2>Main Course Documents</h2>');
       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(<<ENDFORM);
<table cellspacing=2><tr>
<th bgcolor="#DDDDDD">Upload a new main course document</th>
<th bgcolor="#DDDDDD">Import a published document</th>
<th bgcolor="#DDDDDD">Special documents</th>
</tr>
<tr><td bgcolor="#DDDDDD">
File:<br />
<form action="/adm/coursedocs" method="post" enctype="multipart/form-data">
<input type="file" name="uploaddoc" size="50">
<br />
Title:<br /> 
<input type="text" size="50" name="comment">
<input type="hidden" name="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type="hidden" name="cmd" value="upload_default">
<input type="submit" value="Upload Document">
</form>
</td>
<td bgcolor="#DDDDDD">
<form action="/adm/coursedocs" method="post" name="simpleedit">
<input type="hidden" name="folder" value="$folder">
<input type=hidden name="importdetail" value="">
<input type=button onClick=
"javascript:groupsearch()" value="Search">
<input type=button onClick=
"javascript:groupimport();" value="Import">
</form>
</td><td bgcolor="#DDDDDD">
<form action="/adm/coursedocs" method="post" name="newfolder">
<input type="hidden" name="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail" value="">
<input name="newfolder" type="button"
onClick="javascript:makenewfolder(this.form,'$folderseq');"
value="New Folder" />
</form>
<form action="/adm/coursedocs" method="post" name="newext">
<input type="hidden" name="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail" value="">
<input name="newext" type="button" onClick="javascript:makenewext('newext');"
value="External Resource" />
</form>
<form action="/adm/coursedocs" method="post" name="newsyl">
<input type="hidden" name="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail" 
value="Syllabus=/public/$coursedom/$coursenum/syllabus">
<input name="newsyl" type="submit" value="Syllabus" />
</form>
<form action="/adm/coursedocs" method="post" name="newnav">
<input type="hidden" name="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail" 
value="Navigate Content=/adm/navmaps">
<input name="newnav" type="submit" value="Navigate Content" />
</form>
<form action="/adm/coursedocs" method="post" name="newaboutme">
<input type="hidden" name="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail" 
value="$plainname=/adm/$udom/$uname/aboutme">
<input name="newaboutme" type="submit" value="My Personal Info" />
</form>
</td></tr>
</table>
ENDFORM
       $r->print('<hr />');
    }
# ----------------------------------------------------- Supplemental documents
    if (!$forcestandard) {
       $r->print('<h2>Supplemental Course Documents</h2>');
       my $folder=$ENV{'form.folder'};
       unless ($folder=~/supplemental/) { $folder='supplemental'; }
       &editor($r,$coursenum,$coursedom,$folder,$allowed);
       if ($allowed) {
       my $folderseq=
                  '/uploaded/'.$coursedom.'/'.$coursenum.'/supplemental_'.time.
                     '.sequence';

          $r->print(<<ENDSUPFORM);
<table cellspacing=2><tr>
<th bgcolor="#DDDDDD">Upload a new supplemental course document</th>
<th bgcolor="#DDDDDD">Import a published document</th>
<th bgcolor="#DDDDDD">Special documents</th>
</tr>
<tr><td bgcolor="#DDDDDD">
<form action="/adm/coursedocs" method="post" enctype="multipart/form-data">
<input type="file" name="uploaddoc" size="50">
<br />Comment:<br />
<textarea cols=50 rows=4 name='comment'>
</textarea>
<input type="hidden" name="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type="hidden" name="cmd" value="upload_supplemental">
<input type="submit" value="Upload Document">
</form>
</td>
<td bgcolor="#DDDDDD">
<form action="/adm/coursedocs" method="post" name="simpleedit">
<input type="hidden" name="folder" value="$folder">
<input type=hidden name="importdetail" value="">
<input type=button onClick=
"javascript:groupsearch()" value="Search">
<input type=button onClick=
"javascript:groupimport();" value="Import">
</form>
</td><td bgcolor="#DDDDDD">
<form action="/adm/coursedocs" method="post" name="supnewfolder">
<input type="hidden" name="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail" value="">
<input name="newfolder" type="button"
onClick="javascript:makenewfolder(this.form,'$folderseq');"
value="New Folder" />
</form>
<form action="/adm/coursedocs" method="post" name="supnewext">
<input type="hidden" name="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail" value="">
<input name="newext" type="button" 
onClick="javascript:makenewext('supnewext');"
value="External Resource" />
</form>
<form action="/adm/coursedocs" method="post" name="supnewsyl">
<input type="hidden" name="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail" 
value="Syllabus=/public/$coursedom/$coursenum/syllabus">
<input name="newsyl" type="submit" value="Syllabus" />
</form>
<form action="/adm/coursedocs" method="post" name="subnewaboutme">
<input type="hidden" name="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail" 
value="$plainname=/adm/$udom/$uname/aboutme">
<input name="newaboutme" type="submit" value="My Personal Info" />
</form>
</td></tr>
</table>
ENDSUPFORM
       }
    }
    if ($allowed) {
	$r->print('<form name="extimport"><input type="hidden" name="title"><input type="hidden" name="url"><input type="hidden" name="useform"></form>');
    }
  } else {
# -------------------------------------------------------- This is showdoc mode
      $r->print("<h1>Uploaded Document</h1><p>It is recommended that you use an up-to-date virus scanner before handling this file.</p><p><table>".
         &entryline(0,"Click to download or use your browser's Save Link function",$showdoc).'</table></p>');
  }
  $r->print('</body></html>');
  return OK;
} 

1;
__END__