--- loncom/lonnet/perl/lonnet.pm	2015/08/10 15:18:21	1.1291
+++ loncom/lonnet/perl/lonnet.pm	2015/09/14 13:45:36	1.1292
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1291 2015/08/10 15:18:21 raeburn Exp $
+# $Id: lonnet.pm,v 1.1292 2015/09/14 13:45:36 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -7386,7 +7386,8 @@ sub get_commblock_resources {
                             }
                         }
                     }
-                    if ($interval[0] =~ /^\d+$/) {
+                    if ($interval[0] =~ /^\d+/) {
+                        my ($timelimit) = split(/_/,$interval[0]);
                         my $first_access;
                         if ($type eq 'resource') {
                             $first_access=&get_first_access($interval[1],$item);
@@ -7396,7 +7397,7 @@ sub get_commblock_resources {
                             $first_access=&get_first_access($interval[1]);
                         }
                         if ($first_access) {
-                            my $timesup = $first_access+$interval[0];
+                            my $timesup = $first_access+$timelimit;
                             if ($timesup > $now) {
                                 my $activeblock;
                                 foreach my $res (@to_test) {