[LON-CAPA-cvs] cvs: loncom / lond
raeburn
lon-capa-cvs-allow@mail.lon-capa.org
Sat, 08 Mar 2008 03:17:38 -0000
raeburn Fri Mar 7 22:17:38 2008 EDT
Modified files:
/loncom lond
Log:
If filtering for self-enrollment, include in course matches if self-enrollment is active, or will become active in the future.
Index: loncom/lond
diff -u loncom/lond:1.397 loncom/lond:1.398
--- loncom/lond:1.397 Fri Feb 29 16:01:03 2008
+++ loncom/lond Fri Mar 7 22:17:38 2008
@@ -2,7 +2,7 @@
# The LearningOnline Network
# lond "LON Daemon" Server (port "LOND" 5663)
#
-# $Id: lond,v 1.397 2008/02/29 21:01:03 raeburn Exp $
+# $Id: lond,v 1.398 2008/03/08 03:17:38 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -59,7 +59,7 @@
my $status='';
my $lastlog='';
-my $VERSION='$Revision: 1.397 $'; #' stupid emacs
+my $VERSION='$Revision: 1.398 $'; #' stupid emacs
my $remoteVERSION;
my $currenthostid="default";
my $currentdomainid;
@@ -3498,8 +3498,7 @@
if ($hashref) {
while (my ($key,$value) = each(%$hashref)) {
my ($unesc_key,$lasttime_key,$lasttime,$is_hash,%val,
- %unesc_val,$selfenroll_start,$selfenroll_end,
- $selfenroll_types);
+ %unesc_val,$selfenroll_end,$selfenroll_types);
$unesc_key = &unescape($key);
if ($unesc_key =~ /^lasttime:/) {
next;
@@ -3519,13 +3518,9 @@
$unesc_val{'owner'} = $items->{'owner'};
$unesc_val{'type'} = $items->{'type'};
$selfenroll_types = $items->{'selfenroll_types'};
- $selfenroll_start = $items->{'selfenroll_start_date'};
$selfenroll_end = $items->{'selfenroll_end_date'};
if ($selfenrollonly) {
next if (!$selfenroll_types);
- if (($selfenroll_start > 0) && ($selfenroll_start > $now)) {
- next;
- }
if (($selfenroll_end > 0) && ($selfenroll_end <= $now)) {
next;
}