--- loncom/interface/lonhelper.pm	2003/10/08 17:41:17	1.51
+++ loncom/interface/lonhelper.pm	2003/10/09 15:20:15	1.55
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # .helper XML handler to implement the LON-CAPA helper
 #
-# $Id: lonhelper.pm,v 1.51 2003/10/08 17:41:17 albertel Exp $
+# $Id: lonhelper.pm,v 1.55 2003/10/09 15:20:15 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1020,7 +1020,7 @@ sub end_message {
 sub render {
     my $self = shift;
 
-    return &mt($self->{MESSAGE_TEXT});
+    return &mtn($self->{MESSAGE_TEXT});
 }
 # If a NEXTSTATE was given, switch to it
 sub postprocess {
@@ -2081,12 +2081,30 @@ sub render {
             }
         }
     }
+    function checksec() {
+	for (i=0; i<document.forms.helpform.elements.length; i++) {
+	    comp = document.forms.helpform.elements.chksec.value;
+            if (document.forms.helpform.elements[i].value.indexOf(':'+comp+':') != -1) {
+                document.forms.helpform.elements[i].checked=true;
+            }
+        }
+    }
+    function checkactive() {
+	for (i=0; i<document.forms.helpform.elements.length; i++) {
+            if (document.forms.helpform.elements[i].value.indexOf(':Active') != -1) {
+                document.forms.helpform.elements[i].checked=true;
+            }
+        }
+    }
 </script>
 SCRIPT
         $buttons = <<BUTTONS;
 <br />
+<input type="button" onclick="checkactive()" value="Select Only Current Students" />
 <input type="button" onclick="checkall(true, '$var')" value="Select All Students" />
 <input type="button" onclick="checkall(false, '$var')" value="Unselect All Students" />
+<input type="button" onclick="checksec()" value="Check for Section/Group">
+<input type="text" size="5" name="chksec">&nbsp;
 <br />
 BUTTONS
     }
@@ -2140,7 +2158,8 @@ BUTTONS
 	if (!$self->{'activeonly'} || $classlist->{$_}->[$status] eq
 	    'Active') {
 	    push @$choices, [$_, $classlist->{$_}->[$fullname], 
-			     $classlist->{$_}->[$section], 'Student'];
+			     $classlist->{$_}->[$section],
+			     $classlist->{$_}->[$status], 'Student'];
 	}
     }
 
@@ -2150,7 +2169,9 @@ BUTTONS
     $result .= "<table cellspacing='2' cellpadding='2' border='0'>\n";
     $result .= "<tr><td></td><td align='center'><b>$name</b></td>".
         "<td align='center'><b>Section</b></td>" . 
-	"<td align='center'><b>Role</b></td></tr>";
+	"<td align='center'><b>Status</b></td>" . 
+	"<td align='center'><b>Role</b></td>" .
+	"<td align='center'><b>Username:Domain</b></td></tr>";
 
     my $checked = 0;
     for my $choice (@$choices) {
@@ -2162,13 +2183,18 @@ BUTTONS
             $checked = 1;
         }
         $result .=
-            " value='" . HTML::Entities::encode($choice->[0] . ':' . $choice->[2])
+            " value='" . HTML::Entities::encode($choice->[0] . ':' . $choice->[2] . ':' . $choice->[1] . ':' . $choice->[3])
             . "' /></td><td>"
             . HTML::Entities::encode($choice->[1])
             . "</td><td align='center'>" 
             . HTML::Entities::encode($choice->[2])
             . "</td>\n<td>" 
-	    . HTML::Entities::encode($choice->[3]) . "</td></tr>\n";
+	    . HTML::Entities::encode($choice->[3])
+            . "</td>\n<td>" 
+	    . HTML::Entities::encode($choice->[4])
+            . "</td>\n<td>" 
+	    . HTML::Entities::encode($choice->[0])
+	    . "</td></tr>\n";
     }
 
     $result .= "</table>\n\n";