--- loncom/interface/lonblockingmenu.pm	2012/04/10 00:28:04	1.8
+++ loncom/interface/lonblockingmenu.pm	2013/01/04 05:45:50	1.9
@@ -2,7 +2,7 @@
 # Routines for configuring blocking of access to collaborative functions, 
 # and specific resources during an exam
 #
-# $Id: lonblockingmenu.pm,v 1.8 2012/04/10 00:28:04 raeburn Exp $
+# $Id: lonblockingmenu.pm,v 1.9 2013/01/04 05:45:50 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -498,7 +498,6 @@ sub handler {
         &Apache::lonhtmlcommon::breadcrumbs('Blocking communication/content access'));
 
     my $usertype;
-    my $crstype = &Apache::loncommon::course_type();
     if ($crstype eq 'Community') {
         $usertype = 'members';
     } else {
@@ -1114,7 +1113,6 @@ END
 
 sub convlim {
     my ($timelimit) = @_;
-    my $output;
     my @order = ('days','hours','minutes','seconds');
     my %catlimits = ( 
                       days    => 86400,
@@ -1132,7 +1130,7 @@ sub convlim {
             if ($val > 0) {
                 push(@toshow,&mt("[_1] $cat",$val));
             }
-            $timelimit =- $val*$catlimits{$cat};
+            $timelimit -= $val*$catlimits{$cat};
         }
     }
     my $output = join(', ',@toshow);