--- loncom/interface/lonparmset.pm	2006/05/16 20:43:57	1.306
+++ loncom/interface/lonparmset.pm	2006/05/30 12:46:09	1.308
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.306 2006/05/16 20:43:57 albertel Exp $
+# $Id: lonparmset.pm,v 1.308 2006/05/30 12:46:09 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -63,7 +63,10 @@ use Apache::lonhomework;
 use Apache::lonxml;
 use Apache::lonlocal;
 use Apache::lonnavmaps;
+use Apache::longroup;
 use Apache::lonrss;
+use lib '/home/httpd/lib/perl/';
+use LONCAPA;
 
 # --- Caches local to lonparmset
 
@@ -1125,7 +1128,7 @@ sub usermenu {
     my %sectionhash = &Apache::loncommon::get_sections();
 
     my $groups;
-    my %grouphash = &Apache::loncommon::coursegroups();
+    my %grouphash = &Apache::longroup::coursegroups();
 
     if (%sectionhash) {
         $sections=$lt{'se'}.': <select name="csec"';
@@ -1265,7 +1268,7 @@ sub sectionmenu {
 
 sub groupmenu {
     my ($r,$selectedgroups)=@_;
-    my %grouphash = &Apache::loncommon::coursegroups();
+    my %grouphash = &Apache::longroup::coursegroups();
     return if (!%grouphash);
 
     $r->print('<select name="Group" multiple="true" size="8" >');
@@ -1731,7 +1734,7 @@ ENDTABLEHEADFOUR
                              '</font></tt><p><b>'.
                              "<a href=\"javascript:openWindow('".
 				  &Apache::lonnet::clutter($uri).'?symb='.
-				  &Apache::lonnet::escape($symbp{$rid}).
+				  &escape($symbp{$rid}).
                              "', 'metadatafile', '450', '500', 'no', 'yes')\";".
                              " TARGET=_self>$title");