--- loncom/homework/grades.pm	2019/02/03 20:47:11	1.596.2.12.2.41.2.3
+++ loncom/homework/grades.pm	2019/02/06 05:55:25	1.596.2.12.2.41.2.5
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.596.2.12.2.41.2.3 2019/02/03 20:47:11 raeburn Exp $
+# $Id: grades.pm,v 1.596.2.12.2.41.2.5 2019/02/06 05:55:25 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5815,7 +5815,6 @@ sub scantron_selectphase {
 
         $r->print('
     <br />');
-    my $default_form_data=&defaultFormData($symb);
     my $cdom= $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $cnum= $env{'course.'.$env{'request.course.id'}.'.num'};
     my $alertmsg = &mt('Please use the browse button to select a file from your local directory.');
@@ -5864,6 +5863,8 @@ sub scantron_selectphase {
              </form>'
     );
 
+    }
+
     # Chunk of form to prompt for a file to grade and how:
 
     $result.= '
@@ -9180,7 +9181,7 @@ sub validate_uploaded_scantron_file {
             $idmap{$lckey} = $idmap{$key};
         }
         my %unique_formats;
-        my @formatlines = &get_scantronformat_file();
+        my @formatlines = &Apache::lonnet::get_scantronformat_file();
         foreach my $line (@formatlines) {
             chomp($line);
             my @config = split(/:/,$line);