[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

[raeburn]

raeburn		Mon Jan 21 15:21:30 2008 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  Roles expiring the same second as the check occurs need to have a status of 'previous', otherwise &lonuerutils::active_student_roles() prevents update to classlist.db when a student role is expired via CUSR.
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.938 loncom/lonnet/perl/lonnet.pm:1.939
--- loncom/lonnet/perl/lonnet.pm:1.938	Thu Jan 17 21:18:07 2008
+++ loncom/lonnet/perl/lonnet.pm	Mon Jan 21 15:21:28 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.938 2008/01/18 02:18:07 raeburn Exp $
+# $Id: lonnet.pm,v 1.939 2008/01/21 20:21:28 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2462,7 +2462,7 @@
         }
         if (($tstart) && ($tstart<0)) { next; }
         my $status = 'active';
-        if (($tend) && ($tend<$now)) {
+        if (($tend) && ($tend<=$now)) {
             $status = 'previous';
         } 
         if (($tstart) && ($now<$tstart)) {