--- loncom/interface/lonsimplepage.pm	2006/04/10 19:59:54	1.38
+++ loncom/interface/lonsimplepage.pm	2006/05/09 14:38:10	1.39
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Simple Page Editor
 #
-# $Id: lonsimplepage.pm,v 1.38 2006/04/10 19:59:54 albertel Exp $
+# $Id: lonsimplepage.pm,v 1.39 2006/05/09 14:38:10 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -70,8 +70,8 @@ sub handler {
     if ($caller eq 'grppg') {
         $marker =~ s/\W//g;
         $namespace = 'grppage_'.$marker;
-        my %curr_groups;
-        if (!&Apache::loncommon::coursegroups(\%curr_groups,$dom,$crs,$marker)) {
+        my %curr_groups = &Apache::loncommon::coursegroups($dom,$crs,$marker);
+        if (!%curr_groups) {
 	    &Apache::loncommon::simple_error_page($r,'','Invalid group name');
 	    return OK;
         }