loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.627.2.19, 2016/12/06 03:46:09	version 1.627.2.20, 2017/01/30 19:47:54
Line 3454 ENDPART	Line 3454 ENDPART
$URLback=$helper->{'VARS'}->{'filename'};	$URLback=$helper->{'VARS'}->{'filename'};
} elsif ($helper->{VARS}{'symb'}) {	} elsif ($helper->{VARS}{'symb'}) {
my ($map, $id, $url) = &Apache::lonnet::decode_symb($helper->{VARS}{'symb'});	my ($map, $id, $url) = &Apache::lonnet::decode_symb($helper->{VARS}{'symb'});
$URLback = &Apache::lonnet::clutter($url);	$url = &Apache::lonnet::clutter($url);
	if ($env{'request.enc'}) {
	$url = &Apache::lonenc::encrypted($url);
	}
	$URLback = $url.($url =~ /\?/) ? '&':'?'.'symb='.$helper->{VARS}{'symb'};
}	}
#	#
# Final adjustment of the font size:	# Final adjustment of the font size:
Line 3538 ENDPART	Line 3542 ENDPART
'cgi.'.$identifier.'.role' => $perm{'pav'},	'cgi.'.$identifier.'.role' => $perm{'pav'},
'cgi.'.$identifier.'.numberoffiles' => $#print_array,	'cgi.'.$identifier.'.numberoffiles' => $#print_array,
'cgi.'.$identifier.'.studentnames' => $student_names,	'cgi.'.$identifier.'.studentnames' => $student_names,
'cgi.'.$identifier.'.backref' => $URLback,});	'cgi.'.$identifier.'.backref' => &escape($URLback),});
&Apache::lonnet::appenv({"cgi.$identifier.user" => $env{'user.name'},	&Apache::lonnet::appenv({"cgi.$identifier.user" => $env{'user.name'},
"cgi.$identifier.domain" => $env{'user.domain'},	"cgi.$identifier.domain" => $env{'user.domain'},
"cgi.$identifier.courseid" => $cnum,	"cgi.$identifier.courseid" => $cnum,