[LON-CAPA-cvs] cvs: loncom /interface londocs.pm
www
lon-capa-cvs@mail.lon-capa.org
Mon, 08 Sep 2003 19:21:10 -0000
www Mon Sep 8 15:21:10 2003 EDT
Modified files:
/loncom/interface londocs.pm
Log:
Here I am, making new subroutines in londocs.
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.74 loncom/interface/londocs.pm:1.75
--- loncom/interface/londocs.pm:1.74 Mon Sep 8 14:56:09 2003
+++ loncom/interface/londocs.pm Mon Sep 8 15:21:10 2003
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.74 2003/09/08 18:56:09 www Exp $
+# $Id: londocs.pm,v 1.75 2003/09/08 19:21:10 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -124,10 +124,15 @@
# -------------------------------------------------------- Actually dump course
sub dumpcourse {
+ my $r=shift;
+ $r->print('<html><head><title>Dump DOCS</title></head>'.
+ &Apache::loncommon::bodytag('Dump Course DOCS to Construction Space'));
my ($home,$other,%outhash)=&authorhosts();
- unless ($outhash{'home_'.$ENV{'form.authorspace'}}) { return ''; }
- my ($ca,$cd)=split(/\@/,$ENV{'form.authorspace'});
-
+ unless ($home) { return ''; }
+ if ($ENV{'form.authorspace'}) {
+ unless ($outhash{'home_'.$ENV{'form.authorspace'}}) { return ''; }
+ my ($ca,$cd)=split(/\@/,$ENV{'form.authorspace'});
+ }
}
# Imports the given (name, url) resources into the course
@@ -440,34 +445,12 @@
}
}
-# ================================================================ Main Handler
-sub handler {
- my $r = shift;
- $r->content_type('text/html');
- $r->send_http_header;
- return OK if $r->header_only;
-# --------------------------------------------- Initialize help topics for this
- foreach ('Adding_Course_Doc','Main_Course_Documents',
- 'Adding_External_Resource','Navigate_Content',
- 'Adding_Folders','Docs_Overview', 'Load_Map',
- 'Supplemental', 'Score_Upload_Form',
- 'Importing_LON-CAPA_Resource','Uploading_From_Harddrive') {
- $help{$_}=&Apache::loncommon::help_open_topic('Docs_'.$_);
- }
- # Composite help files
- $help{'Syllabus'} = &Apache::loncommon::help_open_topic(
- 'Docs_About_Syllabus,Docs_Editing_Templated_Pages');
- $help{'Simple Page'} = &Apache::loncommon::help_open_topic(
- 'Docs_About_Simple_Page,Docs_Editing_Templated_Pages');
- $help{'Bulletin Board'} = &Apache::loncommon::help_open_topic(
- 'Docs_About_Bulletin_Board,Docs_Editing_Templated_Pages');
- $help{'My Personal Info'} = &Apache::loncommon::help_open_topic(
- 'Docs_About_My_Personal_Info,Docs_Editing_Templated_Pages');
- $help{'Caching'} = &Apache::loncommon::help_open_topic('Caching');
-
- if ($ENV{'form.verify'}) {
-
+#
+# -------------------------------------------------------------- Verify Content
+#
+sub verifycontent {
+ my $r=shift;
my $loaderror=&Apache::lonnet::overloaderror($r);
if ($loaderror) { return $loaderror; }
@@ -484,8 +467,13 @@
}
&untiehash();
$r->print('<h1>Done.</h1>');
- } elsif ($ENV{'form.versions'}) {
- $r->print('<html><head><title>Check Versions</title></head>'.
+}
+
+# -------------------------------------------------------------- Check Versions
+
+sub checkversions {
+ my $r=shift;
+ $r->print('<html><head><title>Check Versions</title></head>'.
&Apache::loncommon::bodytag('Check Course Document Versions'));
$hashtied=0;
&tiehash();
@@ -518,7 +506,7 @@
$seltext='since yesterday ('.localtime($starttime).')';
$daysel='selected';
}
-
+
$r->print(<<ENDHEADERS);
<form action="/adm/coursedocs" method="post">
<select name="timerange">
@@ -576,6 +564,40 @@
$r->print('<p>No content modifications yet.</p>');
}
&untiehash();
+}
+
+# ================================================================ Main Handler
+sub handler {
+ my $r = shift;
+ $r->content_type('text/html');
+ $r->send_http_header;
+ return OK if $r->header_only;
+
+# --------------------------------------------- Initialize help topics for this
+ foreach ('Adding_Course_Doc','Main_Course_Documents',
+ 'Adding_External_Resource','Navigate_Content',
+ 'Adding_Folders','Docs_Overview', 'Load_Map',
+ 'Supplemental', 'Score_Upload_Form',
+ 'Importing_LON-CAPA_Resource','Uploading_From_Harddrive') {
+ $help{$_}=&Apache::loncommon::help_open_topic('Docs_'.$_);
+ }
+ # Composite help files
+ $help{'Syllabus'} = &Apache::loncommon::help_open_topic(
+ 'Docs_About_Syllabus,Docs_Editing_Templated_Pages');
+ $help{'Simple Page'} = &Apache::loncommon::help_open_topic(
+ 'Docs_About_Simple_Page,Docs_Editing_Templated_Pages');
+ $help{'Bulletin Board'} = &Apache::loncommon::help_open_topic(
+ 'Docs_About_Bulletin_Board,Docs_Editing_Templated_Pages');
+ $help{'My Personal Info'} = &Apache::loncommon::help_open_topic(
+ 'Docs_About_My_Personal_Info,Docs_Editing_Templated_Pages');
+ $help{'Caching'} = &Apache::loncommon::help_open_topic('Caching');
+
+ if ($ENV{'form.verify'}) {
+ &verifycontent($r);
+ } elsif ($ENV{'form.versions'}) {
+ &checkversions($r);
+ } elsif ($ENV{'form.dumpcourse'}) {
+ &dumpcourse($r);
} else {
# is this a standard course?