loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.146, 2010/04/29 10:51:37	version 1.147, 2011/02/08 12:53:39
Line 911 sub convert_figure {	Line 911 sub convert_figure {
$not_eps =~ s/^\s+//;	$not_eps =~ s/^\s+//;
$not_eps =~ s/\s+$//;	$not_eps =~ s/\s+$//;
$not_eps =~ s/ /\\ /g;	$not_eps =~ s/ /\\ /g;
	my $prettyname=$not_eps;
if ($advanced_role) {	if ($advanced_role) {
my $prettyname=$not_eps;
$prettyname=~s\|/home/([^/]+)/public_html\|/priv/$1\|;	$prettyname=~s\|/home/([^/]+)/public_html\|/priv/$1\|;
$prettyname=~s\|$perlvar{'lonDocRoot'}/\|/\|;	$prettyname=~s\|$perlvar{'lonDocRoot'}/\|/\|;
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,	&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,
Line 935 sub convert_figure {	Line 935 sub convert_figure {
system("pdftops $not_eps $eps_f");	system("pdftops $not_eps $eps_f");
} else {	} else {
system("convert $not_eps $eps_f");	system("convert $not_eps $eps_f");
	if($? and $advanced_role){
	print "<p class=\"LC_warning\">"
	.mt("An error occured during the conversion of [_1].[_2]"
	."If possible try to save this image using different settings and republish it.",
	"<span class=\"LC_filename\">".$prettyname."</span>", "<br/>")
	."</p>";
	}
}	}

if (not -e $eps_f) {	if (not -e $eps_f) {