--- loncom/interface/lonpopulate.pm	2005/04/07 07:34:52	1.24
+++ loncom/interface/lonpopulate.pm	2005/09/16 16:01:18	1.26
@@ -1,5 +1,5 @@
 # automated enrollment configuration handler
-# $Id: lonpopulate.pm,v 1.24 2005/04/07 07:34:52 albertel Exp $
+# $Id: lonpopulate.pm,v 1.26 2005/09/16 16:01:18 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -151,27 +151,8 @@ function process(calling,numauto,nummanu
 }
 |;
     if ($action eq 'viewclass') {
+        $scripttag .= &Apache::loncommon::check_uncheck_jscript();
         $scripttag .= qq|
-function checkAll(field) {
-    if (field.length > 0) {
-        for (i = 0; i < field.length; i++) {
-            field[i].checked = true ;
-        }
-    } else {
-        field.checked = true
-    }
-}
-
-function uncheckAll(field) {
-    if (field.length > 0) {
-        for (i = 0; i < field.length; i++) {
-            field[i].checked = false ;
-        }
-    } else {
-        field.checked = false ;
-    }
-}
-
 function countChecked(field) {
     var count = 0;
     if (field.length > 0) {
@@ -559,8 +540,8 @@ ENDTWO
           my @roleinfo = split/:/,$_;
           if ($roleinfo[0] eq 'cc')  {
               unless (grep/^$roleinfo[1]\@$roleinfo[2]/,@ccs) {
-                  my $active_cc = &LONCAPA::Enrollment::check_user_status($roleinfo[2],$roleinfo[1],$dom,$crs,'cc');
-                  if ($active_cc eq 'ok') {
+                  my $active_cc = &Apache::loncommon::check_user_status($roleinfo[2],$roleinfo[1],$dom,$crs,'cc');
+                  if ($active_cc eq 'active') {
                       push @ccs, "$roleinfo[1]\@$roleinfo[2]";
                       $pname{"$roleinfo[1]\@$roleinfo[2]"} = &Apache::loncommon::plainname($roleinfo[1],$roleinfo[2]);
                       if (grep/^$roleinfo[1]\@$roleinfo[2]$/,@notified) {