--- loncom/interface/lonpickcode.pm	2013/02/01 18:46:37	1.16
+++ loncom/interface/lonpickcode.pm	2019/01/31 16:08:06	1.17
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Pick a CODE from the list of possible CODEs
 #
-# $Id: lonpickcode.pm,v 1.16 2013/02/01 18:46:37 bisitz Exp $
+# $Id: lonpickcode.pm,v 1.17 2019/01/31 16:08:06 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -39,7 +39,7 @@ sub get_code_freq {
     my ($r)=@_;
     my %codes;
     my %scantron_config=
-	&Apache::grades::get_scantron_config($env{'form.scantron_format'});
+	&Apache::lonnet::get_scantron_config($env{'form.scantron_format'});
     $r->rflush();
     my ($scanlines,$scan_data)=&Apache::grades::scantron_getfile();
     for (my $i=0;$i<=$scanlines->{'count'};$i++) {