loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.635, 2013/07/24 18:21:39	version 1.637, 2014/01/20 01:26:50
Line 4055 sub printHelper {	Line 4055 sub printHelper {
&Apache::lonenc::check_encrypt(&Apache::lonnet::clutter($url));	&Apache::lonenc::check_encrypt(&Apache::lonnet::clutter($url));
my $navmap = Apache::lonnavmaps::navmap->new();	my $navmap = Apache::lonnavmaps::navmap->new();
my $res = $navmap->getBySymb($symb);	my $res = $navmap->getBySymb($symb);
$res_printable = $res->resprintable() \| $userCanPrint; #printability in course context	$res_printable = $res->resprintable() \|\| $userCanPrint; #printability in course context
($res_printstartdate, $res_printenddate) = &get_print_dates($res);	($res_printstartdate, $res_printenddate) = &get_print_dates($res);
($course_open, $course_close) = &course_print_dates($res);	($course_open, $course_close) = &course_print_dates($res);
($map_open, $map_close) = &map_print_dates($res);	($map_open, $map_close) = &map_print_dates($res);
Line 4449 ALL_PROBLEMS	Line 4449 ALL_PROBLEMS
my @lines = &Apache::grades::get_scantronformat_file();	my @lines = &Apache::grades::get_scantronformat_file();
my $codechoice='';	my $codechoice='';
foreach my $line (@lines) {	foreach my $line (@lines) {
	next if (($line =~ /^\#/) \|\| ($line eq ''));
my ($name,$description,$code_type,$code_length)=	my ($name,$description,$code_type,$code_length)=
(split(/:/,$line))[0,1,2,4];	(split(/:/,$line))[0,1,2,4];
if ($code_length > 0 &&	if ($code_length > 0 &&