version 1.401, 2008/05/29 05:44:48
|
version 1.402, 2008/05/30 19:53:16
|
Line 3717 sub dump_course_id_handler {
|
Line 3717 sub dump_course_id_handler {
|
next if ($selfenrollonly); |
next if ($selfenrollonly); |
$is_hash = 0; |
$is_hash = 0; |
my @courseitems = split(/:/,$value); |
my @courseitems = split(/:/,$value); |
$lasttime = pop(@courseitems); |
if ($hashref->{$lasttime_key} eq '') { |
next if ($lasttime<$since); |
$lasttime = pop(@courseitems); |
|
next if ($lasttime<$since); |
|
} |
($val{'descr'},$val{'inst_code'},$val{'owner'},$val{'type'}) = @courseitems; |
($val{'descr'},$val{'inst_code'},$val{'owner'},$val{'type'}) = @courseitems; |
} |
} |
my $match = 1; |
my $match = 1; |