--- loncom/interface/lonhelper.pm	2006/05/11 21:10:21	1.148
+++ loncom/interface/lonhelper.pm	2006/05/16 20:45:26	1.150
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # .helper XML handler to implement the LON-CAPA helper
 #
-# $Id: lonhelper.pm,v 1.148 2006/05/11 21:10:21 foxr Exp $
+# $Id: lonhelper.pm,v 1.150 2006/05/16 20:45:26 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2355,11 +2355,12 @@ sub render {
     #   Current personel
 
     $result .= &Apache::lonselstudent::render_student_list( $current_members,
-				     "current",
-				     \%defaultUsers,
-				     $self->{'multichoice'},
-				     $self->{'variable'},
-				     1);
+							    "helpform",
+							    "current", 
+							    \%defaultUsers,
+							    $self->{'multichoice'},
+							    $self->{'variable'},
+							    1);
 
 
     # If activeonly is not set then we can also give the expired students:
@@ -2369,19 +2370,21 @@ sub render {
 	# And future.
 
 	$result .= &Apache::lonselstudent::render_student_list( $future_members,
-					 "future",
-					 \%defaultUsers,
-					 $self->{'multichoice'},
-					 $self->{'variable'},
-					 0);
+								"helpform",
+								"future",
+								\%defaultUsers,
+								$self->{'multichoice'},
+								$self->{'variable'},
+								0);
 	# Past 
 
 	$result .= &Apache::lonselstudent::render_student_list($expired_members,
-					"past",
-					\%defaultUsers,
-					$self->{'multichoice'},
-					$self->{'variable'},
-					0);
+							       "helpform",
+							       "past",
+							       \%defaultUsers,
+							       $self->{'multichoice'},
+							       $self->{'variable'},
+							       0);
     }
 
 
@@ -3397,8 +3400,10 @@ sub render {
     if ($vars->{GRANULARITY} eq 'whole_course') {
         $resourceString .= '<li>'.&mt('for <b>all resources in the course</b>').'</li>';
 	if ($vars->{TARGETS} eq 'course') {
-	    $level = 11; # general course, see lonparmset.pm perldoc
+	    $level = 14; # general course, see lonparmset.pm perldoc
 	} elsif ($vars->{TARGETS} eq 'section') {
+	    $level = 9;
+	} elsif ($vars->{TARGETS} eq 'group') {
 	    $level = 6;
 	} else {
 	    $level = 3;
@@ -3413,8 +3418,10 @@ sub render {
         $symb = $res->symb();
         $resourceString .= '<li>'.&mt('for the map named [_1]',"<b>$title</b>").'</li>';
 	if ($vars->{TARGETS} eq 'course') {
-	    $level = 10; # general course, see lonparmset.pm perldoc
+	    $level = 13; # general course, see lonparmset.pm perldoc
 	} elsif ($vars->{TARGETS} eq 'section') {
+	    $level = 8;
+	} elsif ($vars->{TARGETS} eq 'group') {
 	    $level = 5;
 	} else {
 	    $level = 2;
@@ -3430,8 +3437,10 @@ sub render {
         my $title = $res->compTitle();
         $resourceString .= '<li>'.&mt('for the resource named [_1] part [_2]',"<b>$title</b>","<b>$part</b>").'</li>';
 	if ($vars->{TARGETS} eq 'course') {
-	    $level = 7; # general course, see lonparmset.pm perldoc
+	    $level = 10; # general course, see lonparmset.pm perldoc
 	} elsif ($vars->{TARGETS} eq 'section') {
+	    $level = 7;
+	} elsif ($vars->{TARGETS} eq 'group') {
 	    $level = 4;
 	} else {
 	    $level = 1;