--- loncom/interface/londocs.pm 2002/09/06 15:18:23 1.21 +++ loncom/interface/londocs.pm 2002/10/10 17:17:11 1.25 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.21 2002/09/06 15:18:23 www Exp $ +# $Id: londocs.pm,v 1.25 2002/10/10 17:17:11 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -211,9 +211,10 @@ END $foldertitle; } if ($isfolder) { $url.='&foldername='.$foldertitle; } - $line.=''. - "$title"; + "$title"; return $line; } @@ -270,6 +271,8 @@ sub handler { $iconpath = $r->dir_config('lonIconsURL') . "/"; + my $now=time; + # print screen $r->print(< @@ -295,6 +298,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; @@ -310,9 +327,18 @@ ENDNEWSCRIPT $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); @@ -376,6 +402,20 @@ value="Syllabus=/public/$coursedom/$cour value="Navigate Content=/adm/navmaps"> +
+ + + + +
+
+ + + + +
@@ -386,11 +426,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); @@ -458,13 +499,14 @@ 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.

".