loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.669, 2019/02/17 03:42:24	version 1.670, 2020/02/17 13:40:16
Line 2076 sub unsupported {	Line 2076 sub unsupported {
my $result.= &print_latex_header($mode);	my $result.= &print_latex_header($mode);
if ($currentURL=~m\|^(/adm/wrapper/)?ext/\|) {	if ($currentURL=~m\|^(/adm/wrapper/)?ext/\|) {
$currentURL=~s\|^(/adm/wrapper/)?ext/\|http://\|;	$currentURL=~s\|^(/adm/wrapper/)?ext/\|http://\|;
$currentURL=~s\|^http://https://\|https://\|;	$currentURL=~s\|^http://https://?\|https://\|;
my $title=&Apache::lonnet::gettitle($symb);	my $title=&Apache::lonnet::gettitle($symb);
$title = &Apache::lonxml::latex_special_symbols($title);	$title = &Apache::lonxml::latex_special_symbols($title);
$result.=' \strut \\\\ '.$title.' \strut \\\\ '.$currentURL.' ';	my $url = &Apache::lonxml::latex_special_symbols($currentURL);
	$result.=' \strut \\\\ '.$title.' \strut \\\\ '.$url.' ';
} else {	} else {
$result.=$currentURL;	$result.= &Apache::lonxml::latex_special_symbols($currentURL);
}	}
$result.= '\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill} \end{document}';	$result.= '\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill} \end{document}';
return $result;	return $result;