--- loncom/interface/lonpopulate.pm	2007/05/02 01:33:49	1.50
+++ loncom/interface/lonpopulate.pm	2007/12/14 00:20:53	1.51
@@ -1,5 +1,5 @@
 # automated enrollment configuration handler
-# $Id: lonpopulate.pm,v 1.50 2007/05/02 01:33:49 albertel Exp $
+# $Id: lonpopulate.pm,v 1.51 2007/12/14 00:20:53 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -33,6 +33,7 @@ use Apache::lonhtmlcommon;
 use Apache::lonlocal;
 use Apache::loncoursedata;
 use Apache::longroup;
+use Apache::lonuserutils;
 use Apache::Constants qw(:common :http REDIRECT);
 use Time::Local;
 use LONCAPA::Enrollment;
@@ -225,7 +226,7 @@ sub print_mainbox {
 <table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
   <td bgcolor="#CCCCFF"> 
-   <font size="2"><a href="/adm/menu">$realm</a> -&gt; <a href="/adm/dropadd">Enrollment Manager</a> -&gt; $page</font><br/>
+   <font size="2"><a href="/adm/menu">$realm</a> -&gt; <a href="/adm/createuser">User Management</a> -&gt; $page</font><br/>
   </td>
   <td align="right" bgcolor="#CCCCFF" valign="top">
    <font size="+1">Automated Enrollment Manager&nbsp;</font>
@@ -1121,16 +1122,34 @@ onclick="javascript:document.photoupdate
       }
       my $status_select = &Apache::lonhtmlcommon::StatusOptions($env{'form.Status'});
 #  Get current classlist
-      my ($classlist,$keylist)=&Apache::loncoursedata::get_classlist();
+      my %userlist;
+      my ($indexhash,$keylist) = &Apache::lonuserutils::make_keylist_array();
+      my $classlist = &Apache::loncoursedata::get_classlist();
+      my $secidx = &Apache::loncoursedata::CL_SECTION();
+      my ($permission,$allowed) = &Apache::lonuserutils::get_permission();
+      foreach my $student (keys(%{$classlist})) {
+          if (exists($permission->{'view_section'})) {
+              if ($classlist->{$student}[$secidx] ne $permission->{'view_section'}) {
+                  next;
+              } else {
+                  $userlist{$student} = $classlist->{$student};
+              }
+          } else {
+              $userlist{$student} = $classlist->{$student};
+          }
+      }
+
       if (! defined($classlist)) {
-          $r->print(&mt('There are no students either currently or previously enrolled.').
-                      "\n");
+          $r->print(&mt('There are no students either currently or previously enrolled.')."
+                      </td>
+                     </tr>\n");
       } else {
           $r->print(&mt('Student Status: [_1]',$status_select)."\n");
           $r->print('<input type="submit" value="'.&mt('Update Display').'" />'.
               "\n</p>\n");
-
-          my ($studentcount,$autocount,$manualcount,$lockcount,$unlockcount) = &Apache::londropadd::show_class_list($r,'autoenroll','nothing',$env{'form.Status'},$classlist,$keylist);
+          my $context = 'course';
+          my $mode = 'autoenroll';
+          my ($studentcount,$autocount,$manualcount,$lockcount,$unlockcount) = &Apache::lonuserutils::show_users_list($r,$context,$mode,$permission,$env{'form.Status'},\%userlist,$keylist);
           $r->print("
                      </td>
                     </tr>
@@ -1185,6 +1204,14 @@ END
                      </td>
                     </tr>
               ");
+          } else {
+              $r->print('
+                    <tr>
+                     <td><br />
+                      '.&mt('There are no students with the selected status.').'
+                     </td>
+                    </tr>
+              ');
           }
           $r->print("
                    </table>
@@ -2689,7 +2716,7 @@ sub print_viewclass_response {
 		       &Apache::loncommon::get_env_multiple('form.unlockchg'));
 
     foreach my $student (sort @typechglist) {
-        my ($uname,$udom) = split/:/,$student;
+        my ($uname,$udom) = split(/:/,$student);
         my $sdata    = $classlist->{$student};
         my $section  = $sdata->[$secidx];
         my $uid       = $sdata->[$ididx];
@@ -2727,7 +2754,7 @@ sub print_viewclass_response {
         }
     }
     foreach my $student (@lockchglist) {
-        my ($uname,$udom) = split/:/,$student;
+        my ($uname,$udom) = split(/:/,$student);
         my $sdata    = $classlist->{$student};
         my $section  = $sdata->[$secidx];
         my $uid       = $sdata->[$ididx];
@@ -2756,31 +2783,31 @@ sub print_viewclass_response {
         }
     }
     if ($chgtotal > 0) {
-        $response = "You requested a change in enrollment type for $chgtotal students.<br /><br />\n";
+        $response = &mt('You requested a change in enrollment type for [quant,_1,student].',$chgtotal).'<br /><br />'."\n";
         $classlist = &Apache::loncoursedata::get_classlist($dom,$crs);
         if ($chgok > 0) {
-            $response .= "The following $chgok changes were successful:<br />";
+            $response .= &mt('The following [quant,_1,change was,changes were] successful;',$chgtotal).':<br /><br />';
             $response .= &enrolltype_result(\%chg,$classlist,$endidx,$startidx,$ididx,$secidx,$typeidx);
         }
         if ($chgfail > 0) {
-            $response .= "The following $chgfail students were not modified successfully:&nbsp;<br />";
+            $response .= &mt('The following [quant,_1,student was,students were] not modified successfully',$chgfail).':&nbsp;<br />';
             $response .= &enrolltype_result(\%nochg,$classlist,$endidx,$startidx,$ididx,$secidx,$typeidx);
         }
         if ($othdom > 0) {
-            $response .= "The following $othdom students were not modified because students must be in the same LON-CAPA domain as the course, in order to be set to an enrollment type of 'auto':<br />"; 
+            $response .= &mt("The following [quant,_1,student was,students were] not modified because students must be in the same LON-CAPA domain as the course, in order to be set to an enrollment type of 'auto'",$othdom).':<br />'; 
             $response .= &enrolltype_result(\%otherdom,$classlist,$endidx,$startidx,$ididx,$secidx,$typeidx);
         }
         $response .= "<br /><br />";
     }
     if ($locktotal > 0) {
-        $response .= "You requested locking/unlocking for $locktotal manually enrolled students.<br /><br />\n";
+        $response .= &mt('You requested locking/unlocking for [quant,_1,manually enrolled student]',$locktotal).'<br /><br />'."\n";
         $classlist = &Apache::loncoursedata::get_classlist($dom,$crs);
         if ($lockok > 0) {
-            $response .= "The following $lockok changes were successful:<br />";
+            $response .= &mt('The following [quant,_1,change was,changes were] successful',$lockok).':<br /><br />';
             $response .= &enrolltype_result(\%lockchg,$classlist,$endidx,$startidx,$ididx,$secidx,$typeidx,$lockedidx);
         }
         if ($lockfail > 0) {
-            $response .= "The following $lockfail students were not modified successfully:&nbsp;<br />";
+            $response .= &mt('The following [quant,_1,student was,students were] not modified successfully',$lockfail).':&nbsp;<br />';
             $response .= &enrolltype_result(\%nolockchg,$classlist,$endidx,$startidx,$ididx,$secidx,$typeidx,$lockedidx);
         }
     }
@@ -2790,9 +2817,8 @@ sub print_viewclass_response {
 
 sub enrolltype_result {
     my ($changes,$classlist,$endidx,$startidx,$ididx,$secidx,$typeidx,$lockedidx) = @_;
-    my $reply = "
-            <table border='2'>
-             <tr>
+    my $reply = &Apache::loncommon::start_data_table().
+                &Apache::loncommon::start_data_table_header_row().'
               <th>username</th>
               <th>domain</th>
               <th>ID</th>
@@ -2800,11 +2826,11 @@ sub enrolltype_result {
               <th>section</th>
               <th>start date</th>
               <th>end date</th>
-              <th>enrollment change</th>
-             </tr>";
-    foreach (sort keys %{$changes}) {
-        my $sdata  = $classlist->{$_};
-        my ($uname,$udom) = split/:/,$_;
+              <th>enrollment change</th>'."\n".
+                &Apache::loncommon::end_data_table_header_row();
+    foreach my $chg (sort keys %{$changes}) {
+        my $sdata  = $classlist->{$chg};
+        my ($uname,$udom) = split(/:/,$chg);
         my $section  = $sdata->[$secidx];
         my $uid      = $sdata->[$ididx];
         my $start    = $sdata->[$startidx];
@@ -2821,24 +2847,23 @@ sub enrolltype_result {
             $end = &Apache::lonlocal::locallocaltime($end);
         }
         if (!defined($section) || ($section eq '')) {
-            $section eq '&nbsp;';
+            $section = '&nbsp;';
         }
         if (!defined($uid) || ($uid eq '')) {
-            $uid = '&nbsp';
+            $uid = '&nbsp;';
         }
-        $reply .= "
-             <tr>
-              <td>$uname</td>
-              <td>$udom</td>
-              <td>$uid</td>
-              <td>".&Apache::loncommon::plainname($uname,$udom)."</td>
-              <td>$section</td>
-              <td>$start</td>
-              <td>$end</td>
-              <td>$$changes{$_}</td>
-             </tr>";
+        $reply .= &Apache::loncommon::start_data_table_row().' 
+              <td>'.$uname.'</td>
+              <td>'.$udom.'</td>
+              <td>'.$uid.'</td>
+              <td>'.&Apache::loncommon::plainname($uname,$udom).'</td>
+              <td>'.$section.'</td>
+              <td>'.$start.'</td>
+              <td>'.$end.'</td>
+              <td>'.$$changes{$chg}.'</td>'."\n".
+             &Apache::loncommon::end_data_table_row();
     }
-    $reply .= "</table>";
+    $reply .= &Apache::loncommon::end_data_table();
     return $reply;
 }