Bug fix in grades

[tpope-extra.git] / perl / schedproc

diff --git a/perl/schedproc b/perl/schedproc
index eaaa024664b168e2619163128ed1dd4b76b41dcc..fbb2737b2c278c9bc459d49243545e91b3d7e411 100755 (executable)
--- 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;
     }
@@ -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(@_);