loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.214, 2004/05/12 18:29:57	version 1.216, 2004/05/21 21:06:59
Line 1110 sub start_p {	Line 1110 sub start_p {
$currentstring='\makebox['.$ENV{'form.textwidth'}.']{\hfill\llap{';	$currentstring='\makebox['.$ENV{'form.textwidth'}.']{\hfill\llap{';
} elsif ($align eq 'left') {	} elsif ($align eq 'left') {
$currentstring='\noindent\makebox['.$ENV{'form.textwidth'}.']{\rlap{';	$currentstring='\noindent\makebox['.$ENV{'form.textwidth'}.']{\rlap{';
}	} else {
	$currentstring='\par ';
	}
my $signal=1;#<p> does not work inside <b>...</b>	my $signal=1;#<p> does not work inside <b>...</b>
foreach my $tag (@$tagstack) {if (lc($tag) eq 'b') {$signal=0;}	foreach my $tag (@$tagstack) {if (lc($tag) eq 'b') {$signal=0;}
if (!$signal) {$currentstring = '';}	if (!$signal) {$currentstring = '';}
Line 2271 sub start_img {	Line 2273 sub start_img {
#if uploaded restore the path	#if uploaded restore the path
if ($src=~/^\/uploaded\/([^\/]+)\/([^\/]+)\/simplepage\/([^\/]+)$/) {	if ($src=~/^\/uploaded\/([^\/]+)\/([^\/]+)\/simplepage\/([^\/]+)$/) {
$src=&Apache::loncommon::propath($1,$2).'/userfiles/simplepage/'.$3;	$src=&Apache::loncommon::propath($1,$2).'/userfiles/simplepage/'.$3;
	} elsif ($src=~/^\/uploaded\/([^\/]+)\/([^\/]+)\/aboutme\/([^\/]+)$/) {
	$src=&Apache::loncommon::propath($1,$2).'/userfiles/aboutme/'.$3;
}	}
#if original gif/jpg/png file exist do following:	#if original gif/jpg/png file exist do following:
if (-e $src) {	if (-e $src) {