--- loncom/interface/londocs.pm 2002/09/06 15:18:23 1.21 +++ loncom/interface/londocs.pm 2002/09/10 19:01:09 1.22 @@ -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.22 2002/09/10 19:01:09 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -270,6 +270,8 @@ sub handler { $iconpath = $r->dir_config('lonIconsURL') . "/"; + my $now=time; + # print screen $r->print(< @@ -295,6 +297,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; @@ -376,6 +392,20 @@ value="Syllabus=/public/$coursedom/$cour value="Navigate Content=/adm/navmaps"> +
+ + + + +
+
+ + + + +