From f385d2be3b94ba34334e077ff2ec0d5a35cb5b21 Mon Sep 17 00:00:00 2001
From: Tim Pope <code@tpope.net>
Date: Tue, 16 Aug 2005 22:10:33 +0000
Subject: [PATCH] Bug fix in grades

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

diff --git a/perl/schedproc b/perl/schedproc
index b1f9d17..fbb2737 100755
--- a/perl/schedproc
+++ b/perl/schedproc
@@ -131,7 +131,7 @@ sub get_grades {
 	die $response->status_line unless $response->is_success;
 	$content = $response->content;
     } else {
-	open(F,$schedurl) || die "$!";
+	open(F,$gradeurl) || die "$!";
 	$content = join ("", <F>);
 	close F;
     }
-- 
2.30.2