--- loncom/interface/loncoursegroups.pm	2006/08/21 17:00:52	1.62
+++ loncom/interface/loncoursegroups.pm	2006/11/02 21:06:06	1.63
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursegroups.pm,v 1.62 2006/08/21 17:00:52 banghart Exp $
+# $Id: loncoursegroups.pm,v 1.63 2006/11/02 21:06:06 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -29,13 +29,14 @@ package Apache::loncoursegroups;
 
 use strict;
 use Apache::lonnet;
-use Apache::loncommon;
-use Apache::lonhtmlcommon;
+use Apache::loncommon();
+use Apache::lonhtmlcommon();
 use Apache::lonlocal;
-use Apache::lonnavmaps;
-use Apache::longroup;
-use Apache::portfolio;
+use Apache::lonnavmaps();
+use Apache::longroup();
+use Apache::portfolio();
 use Apache::Constants qw(:common :http);
+use LONCAPA::map();
 use lib '/home/httpd/lib/perl/';
 use LONCAPA;
 
@@ -3447,16 +3448,16 @@ sub map_updater {
         $outcome = &mt('Error uploading new folder.')." ($newfile): $newmapurl".'<br />';
         return $outcome;
     } 
-    my ($errtext,$fatal)=&Apache::lonratedt::mapread($parentmap);
+    my ($errtext,$fatal)=&LONCAPA::map::mapread($parentmap);
     if ($fatal) {
         $outcome = &mt('Error reading contents of parent folder')." ($parentmap): $errtext".'<br />';
         return $outcome;
     } else {
-        my $newidx=&Apache::lonratedt::getresidx($newmapurl);
-        $Apache::lonratedt::resources[$newidx] = $itemtitle.':'.$newmapurl.
+        my $newidx=&LONCAPA::map::getresidx($newmapurl);
+        $LONCAPA::map::resources[$newidx] = $itemtitle.':'.$newmapurl.
                                                  ':false:normal:res';
-        $Apache::lonratedt::order[1+$#Apache::lonratedt::order]=$newidx;
-        my ($outtext,$errtext) = &Apache::lonratedt::storemap($parentmap,1);
+        $LONCAPA::map::order[1+$#LONCAPA::map::order]=$newidx;
+        my ($outtext,$errtext) = &LONCAPA::map::storemap($parentmap,1);
         if ($errtext) {
             $outcome = &mt('Error storing updated parent folder')." ($parentmap):  $errtext".'<br />';
             return $outcome;