--- loncom/interface/londocs.pm 2002/09/04 20:33:38 1.19 +++ loncom/interface/londocs.pm 2002/10/15 20:50:19 1.27 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.19 2002/09/04 20:33:38 www Exp $ +# $Id: londocs.pm,v 1.27 2002/10/15 20:50:19 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -35,9 +35,14 @@ use Apache::loncommon; use Apache::lonratedt; use Apache::lonratsrv; use Apache::lonxml; +use GDBM_File; my $iconpath; +my %hash; + +my $hashtied; + # Mapread read maps into lonratedt::global arrays # @order and @resources, determines status # sets @order - pointer to resources in right order @@ -211,12 +216,30 @@ END $foldertitle; } if ($isfolder) { $url.='&foldername='.$foldertitle; } - $line.=''. - "$title"; + "$title"; return $line; } +# ---------------------------------------------------------------- tie the hash + +sub tiehash { + $hashtied=0; + if ($ENV{'request.course.fn'}) { + if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.".db", + &GDBM_READER(),0640)) { + $hashtied=1; + } + } +} + +sub untiehash { + if ($hashtied) { untie %hash; } + $hashtied=0; +} + # ================================================================ Main Handler sub handler { my $r = shift; @@ -224,6 +247,54 @@ sub handler { $r->send_http_header; return OK if $r->header_only; + + if ($ENV{'form.verify'}) { + + my $loaderror=&Apache::lonnet::overloaderror($r); + if ($loaderror) { return $loaderror; } + + $r->print('Verify Content'. + &Apache::loncommon::bodytag('Verify Course Documents')); + $hashtied=0; + &tiehash(); + foreach (keys %hash) { + if ($_=~/^src\_(.+)$/) { + my $resid=$1; + $r->rflush(); + if ($hash{$_}) { + my $fn=$hash{$_}; + $r->print('
'. + ($hash{'title_'.$resid}?$hash{'title_'.$resid}:$fn).' '); + if ($fn=~/^\/res\//) { + my $result=&Apache::lonnet::repcopy($fn); + if ($result eq OK) { + $r->print('ok'); + $r->rflush(); + my $dependencies= + &Apache::lonnet::metadata($_,'dependencies'); + $r->print('Dependencies: '.$dependencies.'
'); + } elsif ($result eq HTTP_SERVICE_UNAVAILABLE) { + $r->print( + 'connection down'); + } elsif ($result eq HTTP_NOT_FOUND) { + $r->print('not found'); + } else { + $r->print( + 'access denied'); + } + } + } + } + } + &untiehash(); + } elsif ($ENV{'form.versions'}) { + $r->print('Check Versions'. + &Apache::loncommon::bodytag('Check Course Document Versions')); + $hashtied=0; + &tiehash(); + + &untiehash(); + } else { # is this a standard course? my $standard=($ENV{'request.course.uri'}=~/^\/uploaded\//); @@ -234,8 +305,11 @@ sub handler { my $events=''; my $showdoc=0; &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, - ['folder','foldername','showdoc']); - unless ($ENV{'form.showdoc'}) { # got called from remote + ['folder','foldername']); + if ($r->uri=~/^\/adm\/coursedocs\/showdoc\/(.*)$/) { + $showdoc=$1; + } + unless ($showdoc) { # got called from remote $forcestandard=($ENV{'form.folder'}=~/^default_/); $forcesupplement=($ENV{'form.folder'}=~/^supplemental_/); @@ -247,8 +321,7 @@ sub handler { } } else { # got called in sequence from course $allowed=0; - $showdoc=1; - $script=&Apache::lonxml::registerurl(1,undef); + $script=''.&Apache::lonxml::registerurl(1,undef).' ENDDOCUMENT if ($allowed) { $r->print(< function makenewfolder(targetform,folderseq) { var foldername=prompt('Name of New Folder','New Folder'); if (foldername) { @@ -293,6 +368,20 @@ function makenewext(targetname) { window.open('/adm/rat/extpickframe.html'); } +function makesmppage() { + var title=prompt('Listed Title for the Page'); + this.document.forms.newsmppg.importdetail.value= + title+'=/adm/$udom/$uname/$now/smppg'; + this.document.forms.newsmppg.submit(); +} + +function makebulboard() { + var title=prompt('Listed Title for the Bulletin Board'); + this.document.forms.newbul.importdetail.value= + title+'=/adm/$udom/$uname/$now/bulletinboard'; + this.document.forms.newbul.submit(); +} + function finishpick() { var title=this.document.forms.extimport.title.value; var url=this.document.forms.extimport.url.value; @@ -305,11 +394,21 @@ function finishpick() { ENDNEWSCRIPT } # -------------------------------------------------------------------- Body tag - $r->print(&Apache::loncommon::bodytag('Course Documents','',$events)); + $r->print(''. + &Apache::loncommon::bodytag('Course Documents','',$events)); unless ($showdoc) { + if ($allowed) { + $r->print(< + + + +ENDCOURSEVERIFY + } # --------------------------------------------------------- Standard documents + $r->print(''); if (($standard) && ($allowed) && (!$forcesupplement)) { - $r->print('

Main Course Documents

'); + $r->print('

Main Course Documents

'); my $folder=$ENV{'form.folder'}; unless ($folder=~/^default/) { $folder='default'; } &editor($r,$coursenum,$coursedom,$folder,$allowed); @@ -367,9 +466,25 @@ value="Syllabus=/public/$coursedom/$cour
+ + - + +
+
+ + + + +
+
+ + + +
@@ -381,11 +496,12 @@ value="$plainname=/adm/$udom/$uname/abou
ENDFORM - $r->print('
'); + $r->print(''); } # ----------------------------------------------------- Supplemental documents if (!$forcestandard) { - $r->print('

Supplemental Course Documents

'); + $r->print( + '

Supplemental Course Documents

'); my $folder=$ENV{'form.folder'}; unless ($folder=~/supplemental/) { $folder='supplemental'; } &editor($r,$coursenum,$coursedom,$folder,$allowed); @@ -453,20 +569,22 @@ value="$plainname=/adm/$udom/$uname/abou - + ENDSUPFORM } } if ($allowed) { $r->print('
'); } + $r->print(''); } else { # -------------------------------------------------------- This is showdoc mode $r->print("

Uploaded Document

It is recommended that you use an up-to-date virus scanner before handling this file.

". - &entryline(0,"Click to download or use your browser's Save Link function",$ENV{'form.showdoc'}).'

'); + &entryline(0,"Click to download or use your browser's Save Link function",$showdoc).'

'); } - $r->print(''); - return OK; + } + $r->print(''); + return OK; } 1;