[LON-CAPA-cvs] cvs: loncom /interface lonblockingmenu.pm

[raeburn]

raeburn		Fri Jan  4 05:45:50 2013 EDT

  Modified files:              
    /loncom/interface	lonblockingmenu.pm 
  Log:
  - Remove duplicate lines
  - Correct syntax for decrement operator.
  
  
Index: loncom/interface/lonblockingmenu.pm
diff -u loncom/interface/lonblockingmenu.pm:1.8 loncom/interface/lonblockingmenu.pm:1.9
--- loncom/interface/lonblockingmenu.pm:1.8	Tue Apr 10 00:28:04 2012
+++ loncom/interface/lonblockingmenu.pm	Fri Jan  4 05:45:50 2013
@@ -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 @@
         &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 @@
 
 sub convlim {
     my ($timelimit) = @_;
-    my $output;
     my @order = ('days','hours','minutes','seconds');
     my %catlimits = ( 
                       days    => 86400,
@@ -1132,7 +1130,7 @@
             if ($val > 0) {
                 push(@toshow,&mt("[_1] $cat",$val));
             }
-            $timelimit =- $val*$catlimits{$cat};
+            $timelimit -= $val*$catlimits{$cat};
         }
     }
     my $output = join(', ', at toshow);