--- loncom/interface/londocs.pm 2002/08/19 21:15:08 1.7
+++ loncom/interface/londocs.pm 2002/08/21 17:18:08 1.9
@@ -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.9 2002/08/21 17:18:08 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -35,6 +35,7 @@ use Apache::loncommon;
use Apache::lonratedt;
use Apache::lonratsrv;
+my $iconpath;
# Mapread read maps into lonratedt::global arrays
# @links and @resources, determines status
@@ -65,11 +66,46 @@ sub editor {
} else {
# ------------------------------------------------------------ Process commands
if ($allowed) {
+ if ($ENV{'form.cmd'}) {
+
+ }
}
# ---------------------------------------------------------------- Print screen
}
}
+# --------------------------------------------------------------- An entry line
+
+sub entryline {
+ my ($index,$title,$url,$folder,$allowed)=@_;
+ my $line='
';
+# Edit commands
+ if ($allowed) {
+ $line.=(<
+Remove |
+END
+ }
+# URL
+ $line.='View | ';
+# Title
+ $title=&Apache::lonnet::unescape($title);
+ if ($title=~
+ /^(\d+)\_\_\_\&\&\&\_\_\_(\w+)\_\_\_\&\&\&\_\_\_(\w+)\_\_\_\&\&\&\_\_\_(.*)$/
+ ) { $title=''.localtime($1).' '.$2.' at '.$3.':
'.
+ &Apache::lontexconvert::msgtexconverted($4);
+ }
+ $line.='$title | ';
+ $line.='
';
+ return $line;
+}
+
+# ================================================================ Main Handler
sub handler {
my $r = shift;
$r->content_type('text/html');
@@ -85,58 +121,56 @@ sub handler {
# 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'},
- ['remove']);
+ &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['cmd']);
+ $script=&Apache::lonratedt::editscript('docs');
}
# get course data
my $coursenum=$ENV{'course.'.$ENV{'request.course.id'}.'.num'};
my $coursedom=$ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
+# graphics settings
-# upload a file
+ $iconpath = $r->dir_config('lonIconsURL') . "/";
+
+# upload a file, if present
if (($ENV{'form.uploaddoc.filename'}) && ($allowed)) {
- my $id=time.'_'.$ENV{'user.name'}.'_'.$ENV{'user.domain'};
# 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);
- if ($url=~/^error\:/) {
- } else {
- my $comment=$ENV{'form.comment'};
- $comment=~s/\\<\;/g;
- $comment=~s/\>/\>\;/g;
- &Apache::lonnet::put('coursedocs',
- { $id.'.url' => $url,
- $id.'.comment' => $comment },
- $coursedom,$coursenum);
- }
- }
-
-# delete a file
- if ($ENV{'form.remove'}=~/$ENV{'user.name'}\_$ENV{'user.domain'}$/) {
- my $id=$ENV{'form.remove'};
- &Apache::lonnet::del('coursedocs',
- [$id.'.url',$id.'.comment'],
- $coursedom,$coursenum);
- }
+ my $comment=$ENV{'form.comment'};
+ $comment=~s/\\<\;/g;
+ $comment=~s/\>/\>\;/g;
+ }
# print screen
$r->print(<
The LearningOnline Network with CAPA
+
-
-Course Documents
ENDDOCUMENT
+$r->print(&Apache::loncommon::bodytag('Course Documents'));
# --------------------------------------------------0------ Standard documents
if (($standard) && ($allowed) && (!$forcesupplement)) {
$r->print('Main Course Documents
');
my $folder=$ENV{'form.folder'};
unless ($folder) { $folder='default'; }
&editor($r,$coursenum,$coursedom,$folder,$allowed);
+ $r->print(<Post a new main course document
+
+ENDFORM
$r->print('
');
}
# ----------------------------------------------------- Supplemental documents
@@ -145,41 +179,20 @@ ENDDOCUMENT
my $folder=$ENV{'form.folder'};
unless ($folder) { $folder='supplemental'; }
&editor($r,$coursenum,$coursedom,$folder,$allowed);
- }
-# ------------------------------------------------------- Print headers to docs
- my %currentdocs=&Apache::lonnet::dump('coursedocs',$coursedom,$coursenum);
- foreach (sort keys (%currentdocs)) {
- if ($_=~/(\d+)\_(\w+)\_(\w+)\.url/) {
- $r->print('
'.localtime($1).' '.$2.' '.$3.''.
- &Apache::lontexconvert::msgtexconverted(
- $currentdocs{$1.'_'.$2.'_'.$3.'.comment'}
- ).
- '
View');
- if (($2 eq $ENV{'user.name'}) && ($3 eq $ENV{'user.domain'})
- && ($allowed)) {
- $r->print(' Remove');
- }
- }
- }
-# ----------------------------------------------------------------- Upload form
- if ($allowed) {
- $r->print(<
-Post a new course document
+ if ($allowed) {
+ $r->print(<Post a new supplemental course document
-ENDFORM
- }
-
- foreach (@Apache::lonratedt::resources) {
- $r->print($_.'
');
+ENDSUPFORM
+ }
}
$r->print('