From d0e0875970a27f0a7926b249ddfca9e61de4e18a Mon Sep 17 00:00:00 2001
From: Tim Pope <code@tpope.net>
Date: Tue, 16 Aug 2005 21:36:32 +0000
Subject: [PATCH] Freakin' bugs

---
 perl/schedproc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/schedproc b/perl/schedproc
index eaaa024..b1f9d17 100755
--- a/perl/schedproc
+++ b/perl/schedproc
@@ -140,7 +140,7 @@ sub get_grades {
 }
 
 sub do_html_grades {
-    my $grades);
+    my $grades;
     my @showheaders = ("Section ID", "Course Title", "Grade", "Earned<br />Hours", "Quality<br />Hours", "Quality<br />Points");
     #$file = shift unless (!defined $_[0] or $_[0] =~ /^\d/);
     $grades = get_grades(@_);
-- 
2.30.2