--- loncom/interface/londocs.pm 2003/05/01 16:13:50 1.54 +++ loncom/interface/londocs.pm 2003/05/30 20:51:03 1.58 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.54 2003/05/01 16:13:50 www Exp $ +# $Id: londocs.pm,v 1.58 2003/05/30 20:51:03 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -539,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(< @@ -574,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) { @@ -603,7 +619,7 @@ function changename(folder,index,oldtitl } function removeres(folder,index,oldtitle) { - if (confirm('Remove "'+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(); @@ -673,13 +689,15 @@ File:

-Title:
+Title:
+ $help{'Uploading_From_Harddrive'} +
@@ -687,9 +705,12 @@ Title:
+ -$help{'Importing_LON-CAPA_Resource'}
+$help{'Importing_LON-CAPA_Resource'} + +
+ $help{'Adding_Folders'} +value="New Folder" />$help{'Adding_Folders'} +
+ $help{'Adding_External_Resource'} +
+ - $help{'Creating_From_Template'} + $help{'Creating_From_Template'} +
+
+ $help{'Navigate_Content'} +
+ $help{'Creating_From_Template'} + +
+
+ + + + +$help{'Creating_From_Template'} +
+ -$help{'Creating_From_Template'} +$help{'Creating_From_Template'} +
+
+ -$help{'Creating_From_Template'} +$help{'Creating_From_Template'} +
+ ENDFORM @@ -780,8 +827,11 @@ ENDFORM + - $help{'Uploading_From_Harddrive'} + $help{'Uploading_From_Harddrive'} + +
@@ -803,32 +853,42 @@ value="Browse"> + $help{'Adding_Folders'} +
+ $help{'Adding_External_Resource'} +
+ -$help{'Creating_From_Template'} +$help{'Creating_From_Template'} +
+
+ -$help{'Creating_From_Template'} +$help{'Creating_From_Template'} +
+ ENDSUPFORM