--- loncom/interface/londocs.pm 2003/09/08 18:56:09 1.74
+++ loncom/interface/londocs.pm 2003/09/08 19:21:10 1.75
@@ -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 @@ sub dumpbutton {
# -------------------------------------------------------- Actually dump course
sub dumpcourse {
+ my $r=shift;
+ $r->print('
Dump DOCS'.
+ &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 @@ sub checkonthis {
}
}
-# ================================================================ 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 @@ sub handler {
}
&untiehash();
$r->print('Done.
');
- } elsif ($ENV{'form.versions'}) {
- $r->print('Check Versions'.
+}
+
+# -------------------------------------------------------------- Check Versions
+
+sub checkversions {
+ my $r=shift;
+ $r->print('Check Versions'.
&Apache::loncommon::bodytag('Check Course Document Versions'));
$hashtied=0;
&tiehash();
@@ -518,7 +506,7 @@ sub handler {
$seltext='since yesterday ('.localtime($starttime).')';
$daysel='selected';
}
-
+
$r->print(<