loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.1291, 2015/08/10 15:18:21	version 1.1292, 2015/09/14 13:45:36
Line 7386 sub get_commblock_resources {	Line 7386 sub get_commblock_resources {
}	}
}	}
}	}
if ($interval[0] =~ /^\d+$/) {	if ($interval[0] =~ /^\d+/) {
	my ($timelimit) = split(/_/,$interval[0]);
my $first_access;	my $first_access;
if ($type eq 'resource') {	if ($type eq 'resource') {
$first_access=&get_first_access($interval[1],$item);	$first_access=&get_first_access($interval[1],$item);
Line 7396 sub get_commblock_resources {	Line 7397 sub get_commblock_resources {
$first_access=&get_first_access($interval[1]);	$first_access=&get_first_access($interval[1]);
}	}
if ($first_access) {	if ($first_access) {
my $timesup = $first_access+$interval[0];	my $timesup = $first_access+$timelimit;
if ($timesup > $now) {	if ($timesup > $now) {
my $activeblock;	my $activeblock;
foreach my $res (@to_test) {	foreach my $res (@to_test) {