--- loncom/interface/londocs.pm 2003/05/01 02:20:17 1.53 +++ loncom/interface/londocs.pm 2003/05/29 01:26:33 1.57 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.53 2003/05/01 02:20:17 www Exp $ +# $Id: londocs.pm,v 1.57 2003/05/29 01:26:33 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -232,16 +232,18 @@ sub entryline { # Edit commands if ($allowed) { $line.=(< -
+ + - -
+ UP
+
+ DOWN
 - -Remove +
+ +Remove -Rename +Rename END } # Figure out what kind of a resource this is @@ -537,7 +539,13 @@ ENDHEADERS $iconpath = $r->dir_config('lonIconsURL') . "/"; my $now=time; - +# +# FIXME: hack to disable new problem +# + my $noeggforyou=''; + unless ($ENV{'user.debug'}) { + $noeggforyou='alert("Sorry, not implemented yet."); return 0;'; + } # print screen $r->print(< @@ -572,6 +580,16 @@ function makesmppage() { } } +function makesmpproblem() { + $noeggforyou + var title=prompt('Listed Title for the Problem'); + if (title) { + this.document.forms.newsmpproblem.importdetail.value= + title+'=/adm/wrapper/uploaded/$udom/$uname/$now.problem'; + this.document.forms.newsmpproblem.submit(); + } +} + function makebulboard() { var title=prompt('Listed Title for the Bulletin Board'); if (title) { @@ -599,6 +617,14 @@ function changename(folder,index,oldtitl this.document.forms.renameform.submit(); } } + +function removeres(folder,index,oldtitle) { + if ((oldtitle=='NO RESOURCE') || (confirm('Remove "'+oldtitle+'"?'))) { + this.document.forms.renameform.cmd.value='del_'+index; + this.document.forms.renameform.folder.value=folder; + this.document.forms.renameform.submit(); + } +} ENDNEWSCRIPT @@ -723,6 +749,13 @@ $help{'Navigate_Content'} $help{'Creating_From_Template'} +
+ + + + $help{'Creating_From_Template'} +