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

[matthew]

matthew		Fri Dec  6 14:29:28 2002 EDT

  Modified files:              
    /loncom/interface	lonquickgrades.pm 
  Log:
  Take care of the complaining on startup.
  
  
Index: loncom/interface/lonquickgrades.pm
diff -u loncom/interface/lonquickgrades.pm:1.8 loncom/interface/lonquickgrades.pm:1.9
--- loncom/interface/lonquickgrades.pm:1.8	Mon Dec  2 05:14:57 2002
+++ loncom/interface/lonquickgrades.pm	Fri Dec  6 14:29:28 2002
@@ -159,9 +159,9 @@
     }
 
     $iterator = $navmap->getIterator(undef, undef, undef, 1);
-    my $depth = 1;
+    $depth = 1;
     $iterator->next(); # ignore first BEGIN_MAP
-    my $curRes = $iterator->next();
+    $curRes = $iterator->next();
 
     my @start = (255, 255, 192);
     my @end   = (0, 192, 0);
@@ -241,15 +241,16 @@
     my $end = shift;
     my $ratio = shift;
     
+    my ($a,$b);
     my $final = "";
-    my $a = $start->[0]; my $b = $end->[0];
+    $a = $start->[0]; $b = $end->[0];
     my $mix1 = POSIX::floor((1-$ratio)*$a + $ratio*$b);
-    my $a = $start->[1]; my $b = $end->[1];
+    $a = $start->[1]; $b = $end->[1];
     my $mix2 = POSIX::floor((1-$ratio)*$a + $ratio*$b);
-    my $a = $start->[2]; my $b = $end->[2];
+    $a = $start->[2]; $b = $end->[2];
     my $mix3 = POSIX::floor((1-$ratio)*$a + $ratio*$b);
 
-    my $final = sprintf "%2x%2x%2x", $mix1, $mix2, $mix3;
+    $final = sprintf "%2x%2x%2x", $mix1, $mix2, $mix3;
     return "#" . $final;
 }