--- loncom/lond 2008/02/11 18:51:41 1.394 +++ loncom/lond 2008/05/30 21:34:27 1.394.2.1 @@ -2,7 +2,7 @@ # The LearningOnline Network # lond "LON Daemon" Server (port "LOND" 5663) # -# $Id: lond,v 1.394 2008/02/11 18:51:41 raeburn Exp $ +# $Id: lond,v 1.394.2.1 2008/05/30 21:34:27 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -59,7 +59,7 @@ my $DEBUG = 0; # Non zero to ena my $status=''; my $lastlog=''; -my $VERSION='$Revision: 1.394 $'; #' stupid emacs +my $VERSION='$Revision: 1.394.2.1 $'; #' stupid emacs my $remoteVERSION; my $currenthostid="default"; my $currentdomainid; @@ -3518,7 +3518,9 @@ sub dump_course_id_handler { $is_hash = 0; my @courseitems = split(/:/,$value); $lasttime = pop(@courseitems); - next if ($lasttime<$since); + if ($hashref->{$lasttime_key} eq '') { + next if ($lasttime<$since); + } ($val{'descr'},$val{'inst_code'},$val{'owner'},$val{'type'}) = @courseitems; } my $match = 1;