--- loncom/interface/londocs.pm 2003/09/08 18:56:09 1.74 +++ loncom/interface/londocs.pm 2003/09/09 19:39:04 1.77 @@ -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.77 2003/09/09 19:39:04 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -124,12 +124,57 @@ 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 ''; } + my $origcrsid=$ENV{'request.course.id'}; + my %origcrsdata=&Apache::lonnet::coursedescription($origcrsid); + if (($ENV{'form.authorspace'}) && ($ENV{'form.authorfolder'}=~/\w/)) { +# Do the dumping + unless ($outhash{'home_'.$ENV{'form.authorspace'}}) { return ''; } + my ($ca,$cd)=split(/\@/,$ENV{'form.authorspace'}); + my $title=$ENV{'form.authorfolder'}; + } else { +# Input form + unless ($home==1) { + $r->print( + '

Select the Construction Space

'); + } else { + $r->print(''); + } + } + } + unless ($home==1) { + $r->print(''); + } + my $title=$origcrsdata{'description'}; + $title=~s/\s+/\_/gs; + $title=~s/\W//gs; + $r->print('

Folder in Construction Space


'); + &tiehash(); + foreach (&Apache::loncreatecourse::crsdirlist($origcrsid,'userfiles')) { + $r->print("\n
".$_.' '. + $hash{'title_'.$hash{ +'ids_/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'.$_}} + ); + } + &untiehash(); + $r->print( + '
'); + } } + # Imports the given (name, url) resources into the course # coursenum, coursedom, and folder must precede the list sub group_import { @@ -440,34 +485,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 +507,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 +546,7 @@ sub handler { $seltext='since yesterday ('.localtime($starttime).')'; $daysel='selected'; } - + $r->print(<