[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /interface lonmenu.pm

[raeburn]

raeburn		Thu Jan  3 20:25:13 2013 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/interface	lonmenu.pm 
  Log:
  - For 2.11
    - Backport 1.408.
    - Backport one change in rev 1.401 omitted in earlier backport (rev. 1.369.2.30)
  
  
Index: loncom/interface/lonmenu.pm
diff -u loncom/interface/lonmenu.pm:1.369.2.33 loncom/interface/lonmenu.pm:1.369.2.34
--- loncom/interface/lonmenu.pm:1.369.2.33	Thu Jan  3 20:19:10 2013
+++ loncom/interface/lonmenu.pm	Thu Jan  3 20:25:12 2013
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.369.2.33 2013/01/03 20:19:10 raeburn Exp $
+# $Id: lonmenu.pm,v 1.369.2.34 2013/01/03 20:25:12 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2181,7 +2181,6 @@
             }
         }
     }
-    my $switchtext;
     if ($crstype eq 'Community') {
         $switchtext = &mt('Switch community role')
     } else {
@@ -2513,7 +2512,6 @@
         }
         my $duedate = &Apache::lonnet::EXT("resource.0.duedate");
         my @interval=&Apache::lonnet::EXT("resource.0.interval");
-        my $hastimeleft;
         if (@interval > 1) {
             my $first_access=&Apache::lonnet::get_first_access($interval[1]);
             if ($first_access > 0) {