--- loncom/interface/londocs.pm 2002/09/06 15:18:23 1.21
+++ loncom/interface/londocs.pm 2002/09/13 20:01:04 1.23
@@ -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.23 2002/09/13 20:01:04 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;
@@ -376,6 +393,20 @@ value="Syllabus=/public/$coursedom/$cour
value="Navigate Content=/adm/navmaps">
+
+