From: Tim Pope <code@tpope.net>
Date: Tue, 16 Aug 2005 22:10:33 +0000 (+0000)
Subject: Bug fix in grades
X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=commitdiff_plain;h=f385d2be3b94ba34334e077ff2ec0d5a35cb5b21

Bug fix in grades
---

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;
     }