--- loncom/interface/londocs.pm 2003/02/25 19:30:51 1.50 +++ loncom/interface/londocs.pm 2003/05/01 02:20:17 1.53 @@ -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.53 2003/05/01 02:20:17 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 @@ -620,12 +634,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'; @@ -651,11 +673,18 @@ Title:
+ + -$help{'Importing_LON-CAPA_Resource'}
+$help{'Importing_LON-CAPA_Resource'}
+ + +
@@ -746,11 +775,18 @@ ENDFORM + + $help{'Importing_LON-CAPA_Resource'} +
+ +