--- 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(<