--- loncom/interface/loncoursedata.pm	2002/10/14 19:06:21	1.35
+++ loncom/interface/loncoursedata.pm	2002/10/16 13:43:34	1.36
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: loncoursedata.pm,v 1.35 2002/10/14 19:06:21 matthew Exp $
+# $Id: loncoursedata.pm,v 1.36 2002/10/16 13:43:34 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1443,9 +1443,18 @@ sub get_classlist {
                                                        firstname middlename/});
                 $id = $info{'id'};
             }
-            # At this point, if we have the data (check for 'not available's
-            # we could put it back into the classlist.db file. 
-            # We have not decided to do that yet.
+            # Update the classlist with this students information
+            if ($fullname ne 'not available') {
+                my $enrolldata = join(':',$end,$start,$id,$section,$fullname);
+                my $reply=&Apache::lonnet::cput('classlist',
+                                                {$student => $enrolldata},
+                                                $cdom,$cnum);
+                if ($reply !~ /^(ok|delayed)/) {
+                    &Apache::lonnet::logthis('Unable to update classlist for '.
+                                             'student '.$sname.':'.$sdom.
+                                             ' error:'.$reply);
+                }
+            }
         }
         my $status='Expired';
         if(((!$end) || $now < $end) && ((!$start) || ($now > $start))) {
@@ -1467,3 +1476,4 @@ sub get_classlist {
 1;
 __END__
 
+