--- loncom/interface/lonpickcode.pm 2007/11/13 01:14:11 1.14 +++ 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.14 2007/11/13 01:14:11 albertel 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++) { @@ -69,7 +69,7 @@ sub handler { if (!($env{'request.course.id'}) && (&Apache::lonnet::allowed('usc',$env{'request.course.id'}))) { $r->print(&Apache::loncommon::start_page(). - &mt('Access not allowed.'). + '
'.&mt('Access not allowed.').'
'. &Apache::loncommon::end_page()); return OK; } @@ -92,32 +92,34 @@ sub code_list { # $context = 1 No page header, print enclosing table # $context = 2 No page header, no enclosing table my $table_head; - my $enc_table_start; - my $enc_table_close; - + my $extra_css; if (!$context) { $r->print(&Apache::loncommon::start_page("View CODEs",undef, {'no_nav_bar' => 1})); - $table_head = (''.&mt('Select a set of saved CODEs to view.').""); + $table_head = &mt('Select a set of saved CODEs to view.'); } elsif ($context eq 1) { - $table_head = (''.&mt('Select another set of saved CODEs to view.').""); - $enc_table_start = ''; - $enc_table_close = ' |