--- loncom/interface/londocs.pm 2003/04/30 21:09:12 1.52
+++ 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.52 2003/04/30 21:09:12 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
@@ -659,6 +673,8 @@ Title: