--- loncom/interface/loncoursedata.pm	2006/05/18 01:08:51	1.171
+++ loncom/interface/loncoursedata.pm	2006/05/30 12:46:09	1.173
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursedata.pm,v 1.171 2006/05/18 01:08:51 raeburn Exp $
+# $Id: loncoursedata.pm,v 1.173 2006/05/30 12:46:09 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -56,6 +56,8 @@ use Time::HiRes;
 use Apache::lonmysql;
 use HTML::TokeParser;
 use GDBM_File;
+use lib '/home/httpd/lib/perl/';
+use LONCAPA;
 
 =pod
 
@@ -75,7 +77,7 @@ and/or itself.
 
 Returns a reference to a hash as described by $values.  $values is
 assumed to be the result of 
-    join(':',map {&Apache::lonnet::escape($_)} %orighash);
+    join(':',map {&escape($_)} %orighash);
 
 This is a helper function for get_current_state.
 
@@ -85,8 +87,7 @@ This is a helper function for get_curren
 ################################################
 sub make_into_hash {
     my $values = shift;
-    my %tmp = map { &Apache::lonnet::unescape($_); }
-                                           split(':',$values);
+    my %tmp = map { &unescape($_); } split(':',$values);
     return \%tmp;
 }
 
@@ -3144,6 +3145,9 @@ sub get_classlist {
 
 sub get_group_memberships {
     my ($classlist,$keylist,$cdom,$cnum) = @_;
+
+    return ({},{}) if (!ref($classlist) || !ref($keylist));
+
     my $cid = $cdom.'_'.$cnum;
     if (!defined($cdom) || !defined($cnum)) {
         $cid =  $env{'request.course.id'};