--- loncom/interface/londocs.pm 2003/02/25 19:30:51 1.50 +++ loncom/interface/londocs.pm 2003/06/16 13:51:46 1.61 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.50 2003/02/25 19:30:51 www Exp $ +# $Id: londocs.pm,v 1.61 2003/06/16 13:51:46 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -179,6 +179,20 @@ sub editor { # Store the changed version &storemap($coursenum,$coursedom,$folder.'.sequence'); } +# Loading a complete map + if (($ENV{'form.importmap'}) && ($ENV{'form.loadmap'})) { + foreach +(&Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$ENV{'form.importmap'}))) { + my $idx=$#Apache::lonratedt::resources; + $idx++; + $Apache::lonratedt::resources[$idx]=$_; + $Apache::lonratedt::order + [$#Apache::lonratedt::order+1]=$idx; + } + +# Store the changed version + &storemap($coursenum,$coursedom,$folder.'.sequence'); + } } # ---------------------------------------------------------------- End commands # ---------------------------------------------------------------- Print screen @@ -218,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 @@ -523,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(< @@ -558,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) { @@ -585,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 @@ -620,12 +660,20 @@ ENDCOURSEVERIFY ($allowed?' '.$help{'Main_Course_Documents'}:'').''); my $folder=$ENV{'form.folder'}; unless ($folder=~/^default/) { $folder='default'; } + my $postexec=''; + if ($folder eq 'default') { + $r->print(''); + } else { + $postexec='self.close();'; + } $hadchanges=0; &editor($r,$coursenum,$coursedom,$folder,$allowed); if ($hadchanges) { - $r->print('
'. -'

Changes will become active for your current session after , or the next time you log in.

'); + $r->print( +''. +'
'. +'

Changes will become active for your current session after , or the next time you log in.

'); } my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time. '.sequence'; @@ -639,75 +687,116 @@ $ENV{'request.role'}.'" value="re-initia File:
- +
-Title:
+Title:
- $help{'Uploading_From_Harddrive'}
+ + $help{'Uploading_From_Harddrive'} + +
+ + + -$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 @@ -734,55 +823,77 @@ ENDFORM
- +
Comment:
+ - $help{'Uploading_From_Harddrive'} + $help{'Uploading_From_Harddrive'} +
+
+ + $help{'Importing_LON-CAPA_Resource'} +

+

+ + +

+ $help{'Adding_Folders'} +
+ $help{'Adding_External_Resource'} +
+ -$help{'Creating_From_Template'} +$help{'Creating_From_Template'} +
+
+ -$help{'Creating_From_Template'} +$help{'Creating_From_Template'} +
+ ENDSUPFORM