--- loncom/interface/londocs.pm 2002/08/01 15:26:23 1.6
+++ loncom/interface/londocs.pm 2002/08/19 21:15:08 1.7
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.6 2002/08/01 15:26:23 www Exp $
+# $Id: londocs.pm,v 1.7 2002/08/19 21:15:08 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -32,6 +32,43 @@ use strict;
use Apache::Constants qw(:common);
use Apache::lonnet;
use Apache::loncommon;
+use Apache::lonratedt;
+use Apache::lonratsrv;
+
+
+# Mapread read maps into lonratedt::global arrays
+# @links 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);
+}
+
+sub editor {
+ my ($r,$coursenum,$coursedom,$folder,$allowed)=@_;
+ my ($errtext,$fatal)=
+ &mapread($coursenum,$coursedom,$folder.'.sequence');
+ if ($fatal) {
+ $r->print(''.$errtext.'
');
+ } else {
+# ------------------------------------------------------------ Process commands
+ if ($allowed) {
+ }
+# ---------------------------------------------------------------- Print screen
+ }
+}
sub handler {
my $r = shift;
@@ -39,12 +76,19 @@ sub handler {
$r->send_http_header;
return OK if $r->header_only;
+# 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_/);
+
# 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'])
+ ['remove']);
}
# get course data
@@ -87,6 +131,21 @@ sub handler {
Course Documents
ENDDOCUMENT
+# --------------------------------------------------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('
');
+ }
+# ----------------------------------------------------- Supplemental documents
+ if (!$forcestandard) {
+ $r->print('Supplemental Course Documents
');
+ 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)) {
@@ -118,6 +177,11 @@ ENDDOCUMENT
ENDFORM
}
+
+ foreach (@Apache::lonratedt::resources) {
+ $r->print($_.'
');
+ }
+
$r->print('