loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.137, 2003/06/03 13:15:02	version 1.139, 2003/06/19 14:58:39
Line 1703 sub start_table {	Line 1703 sub start_table {
my $textwidth;	my $textwidth;
if (not defined @Apache::londefdef::table) {	if (not defined @Apache::londefdef::table) {
$textwidth=&recalc($ENV{'form.textwidth'});	$textwidth=&recalc($ENV{'form.textwidth'});
$textwidth=~/(\d+)/;	$textwidth=~/(\d+\.?\d*)/;
$textwidth=$1;	$textwidth=0.95*$1;
} else {	} else {
$textwidth=&Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval,undef,0);	$textwidth=&Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval,undef,0);
}	}
Line 2198 sub start_allow {	Line 2198 sub start_allow {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval,undef,1);	my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval,undef,1);
$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);	$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=$src;	$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
	&Apache::lonnet::clutter($src);
&image_replication($src);	&image_replication($src);
my $result;	my $result;
if ($target eq 'edit') {	if ($target eq 'edit') {