--- loncom/interface/londocs.pm 2003/05/01 02:20:17 1.53 +++ loncom/interface/londocs.pm 2003/05/01 16:13:50 1.54 @@ -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.54 2003/05/01 16:13:50 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 @@ -598,6 +600,14 @@ function changename(folder,index,oldtitl this.document.forms.renameform.folder.value=folder; this.document.forms.renameform.submit(); } +} + +function removeres(folder,index,oldtitle) { + if (confirm('Remove "'+oldtitle+'"?')) { + this.document.forms.renameform.cmd.value='del_'+index; + this.document.forms.renameform.folder.value=folder; + this.document.forms.renameform.submit(); + } }