loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.166, 2017/11/12 16:23:03	version 1.168, 2021/01/25 18:06:55
Line 211 if ($student_names=~/_END_/) {	Line 211 if ($student_names=~/_END_/) {
@names_pack=split(/_ENDPERSON_/,$student_names);	@names_pack=split(/_ENDPERSON_/,$student_names);
}	}
if ($backref) {	if ($backref) {
	if ($backref =~ m{^(/uploaded/$LONCAPA::match_domain/$LONCAPA::match_courseid/default_\d+.page)}) {
	$backref = $1;
	}
print('<p>'.&mt("[_1]Return[_2] to resource.",	print('<p>'.&mt("[_1]Return[_2] to resource.",
"<a href=\"$backref\"><b>","</b></a>").'</p>');	"<a href=\"$backref\"><b>","</b></a>").'</p>');
print('<p><a href="javascript:gopost(\'/adm/printout\',\''.$backref.'\');">'.	print('<p><a href="javascript:gopost(\'/adm/printout\',\''.$backref.'\');">'.
Line 981 sub convert_figure {	Line 984 sub convert_figure {
&File::Path::mkpath($path,0,0777);	&File::Path::mkpath($path,0,0777);
$not_eps =~ s/^\s+//;	$not_eps =~ s/^\s+//;
$not_eps =~ s/\s+$//;	$not_eps =~ s/\s+$//;
$not_eps =~ s/ /\\ /g;
my $prettyname=$not_eps;	my $prettyname=$not_eps;
if ($advanced_role) {	if ($advanced_role) {
$prettyname=~s\|$perlvar{'lonDocRoot'}/\|/\|;	$prettyname=~s\|$perlvar{'lonDocRoot'}/\|/\|;