--- loncom/xml/londefdef.pm 2002/09/16 17:40:09 1.88
+++ loncom/xml/londefdef.pm 2003/02/28 21:06:42 1.120
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Tags Default Definition Module
#
-# $Id: londefdef.pm,v 1.88 2002/09/16 17:40:09 sakharuk Exp $
+# $Id: londefdef.pm,v 1.120 2003/02/28 21:06:42 albertel Exp $
#
#
# Copyright Michigan State University Board of Trustees
@@ -44,15 +44,17 @@
package Apache::londefdef;
-use Apache::lonnet;
+use Apache::lonnet();
use strict;
-use Apache::lonxml;
+use Apache::lonxml();
use Apache::File();
use Image::Magick;
+use Apache::lonmenu();
+use Apache::lonmeta();
BEGIN {
- &Apache::lonxml::register('Apache::londefdef',('a','abbr','acronym','address','allow','applet','area','b','base','basefont','bgo','bgsound','big','blink','blockquote','blankspace','body','br','button','caption','center','cite','code','col','colgroup','dd','del','dfn','dir','div','dl','dt','em','embed','externallink','fieldset','font','form','frame','frameset','h1','h2','h3','h4','h5','h6','head','hr','html','i','iframe','img','input','ins','insert','isindex','kbd','keygen','label','layer','legend','li','link','m','map','marquee','menu','meta','multicol','nobr','noembed','noframes','nolayer','noscript','object','ol','optgroup','option','output','p','param','pre','q','s','samp','select','server','small','spacer','span','strike','strong','sub','sup','table','tbody','td','textarea','tfoot','th','thead','title','tr','tt','u','ul','var','wbr'));
+ &Apache::lonxml::register('Apache::londefdef',('a','abbr','acronym','address','allow','applet','area','b','base','basefont','bgo','bgsound','big','blink','blockquote','blankspace','body','br','button','caption','center','cite','code','col','colgroup','dd','del','dfn','dir','div','dl','dt','em','embed','externallink','fieldset','font','form','frame','frameset','h1','h2','h3','h4','h5','h6','head','hr','html','i','iframe','img','input','ins','insert','isindex','kbd','keygen','label','layer','legend','li','link','m','map','marquee','menu','meta','multicol','nobr','noembed','noframes','nolayer','noscript','object','ol','optgroup','option','output','p','param','pre','q','s','samp','select','server','small','spacer','span','strike','strong','sub','sup','table','tbody','td','textarea','tfoot','th','thead','title','tr','tt','tthoption','u','ul','var','wbr'));
}
@@ -108,29 +110,62 @@ sub end_m {
}
return $currentstring;
}
+
+sub start_tthoption {
+ my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
+ my $result;
+ if ($target eq 'web') {
+ my $inside = &Apache::lonxml::get_all_text("/tthoption",$parser);
+ $inside=~s/^\s*//;
+ if ($ENV{'browser.mathml'}) {
+ &tth::ttmoptions($inside);
+ } else {
+ &tth::tthoptions($inside);
+ }
+ }
+ return $result;
+}
+
+sub end_tthoption {
+ my ($target,$token) = @_;
+ my $result;
+ return $result;
+}
+
#-- tag
- sub start_html {
- my ($target,$token) = @_;
- my $currentstring = '';
- if ($ENV{'browser.mathml'}) {
- &tth::ttminit();
- } else {
- &tth::tthinit();
- }
- if ($target eq 'web') {
- $currentstring = &Apache::lonxml::xmlbegin().
- &Apache::lonxml::fontsettings();
- } elsif ($target eq 'tex') {
- @Apache::londefdef::table = ();
- $currentstring .= '\documentclass[letterpaper]{article}
- \newcommand{\keephidden}[1]{}
- \renewcommand{\deg}{$^{\circ}$}
- \usepackage[dvips]{graphicx}
- \usepackage{epsfig}\usepackage{calc}
- \newenvironment{choicelist}{\begin{enumerate}}{\end{enumerate}}';
- }
- return $currentstring;
+sub start_html {
+ my ($target,$token) = @_;
+ my $currentstring = '';
+ if ($ENV{'browser.mathml'}) {
+ &tth::ttminit();
+ if ($ENV{'browser.unicode'}) {
+ &tth::ttmoptions('-L -u1');
+ } else {
+ &tth::ttmoptions('-L -u0');
+ }
+ } else {
+ &tth::tthinit();
+ if ($ENV{'browser.unicode'}) {
+ &tth::tthoptions('-L -u1');
+ } else {
+ &tth::tthoptions('-L -u0');
}
+ }
+ if ($target eq 'web') {
+ $currentstring = &Apache::lonxml::xmlbegin().
+ &Apache::lonxml::fontsettings();
+ } elsif ($target eq 'tex') {
+ @Apache::londefdef::table = ();
+ $currentstring .= '\documentclass[letterpaper]{article}
+ \newcommand{\keephidden}[1]{}
+ \renewcommand{\deg}{$^{\circ}$}
+ \usepackage{textcomp}
+ \usepackage[dvips]{graphicx}
+ \usepackage{epsfig}\usepackage{calc}
+\newenvironment{choicelist}{\begin{list}{}{\setlength{\rightmargin}{0in}\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.05in}\setlength{\itemsep}{0.022in}\setlength{\parsep}{0in}\setlength{\belowdisplayskip}{0.04in}\setlength{\abovedisplayskip}{0.05in}\setlength{\abovedisplayshortskip}{-0.04in}\setlength{\belowdisplayshortskip}{0.04in}}}{\end{list}}';
+ }
+ return $currentstring;
+}
sub end_html {
my ($target,$token) = @_;
my $currentstring = '';
@@ -152,7 +187,7 @@ sub end_m {
my ($target,$token) = @_;
my $currentstring = '';
if ($target eq 'web') {
- $currentstring = &Apache::lonxml::registerurl(undef,$target).
+ $currentstring = &Apache::lonmenu::registerurl(undef,$target).
$token->[2];
}
return $currentstring;
@@ -290,25 +325,28 @@ sub end_m {
}
#-- tag
sub start_meta {
- my ($target,$token,$tagstack,$parstack,$parser) = @_;
+ my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';
if ($target eq 'web') {
my $args='';
if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
if ($args eq '') {
- &Apache::lonxml::get_all_text("/meta",$$parser[$#$parser]);
+ &Apache::lonxml::get_all_text("/meta",$parser);
} else {
$currentstring = $token->[4];
}
}
if ($target eq 'meta') {
- unless ($token->[2]->{'http-equiv'}) {
+ unless (&Apache::lonxml::get_param
+ ('http-equiv',$parstack,$safeeval,undef,1)) {
my $name=$token->[2]->{'name'};
$name=~tr/A-Z/a-z/;
- $name=~s/\s/\_/g;
+ $name=~s/\s/\_/gs;
+ $name=~s/\W//gs;
if ($name) {
$currentstring='<'.$name.'>'.
- $token->[2]->{'content'}.
+ &Apache::lonxml::get_param
+ ('content',$parstack,$safeeval,undef,1).
''.$name.'>';
}
}
@@ -330,12 +368,11 @@ sub end_m {
#--
tag
sub start_body {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
-# my ($target,$token) = @_;
my $currentstring = '';
if ($target eq 'web') {
if (!$Apache::lonxml::registered) {
$currentstring.=''.
- &Apache::lonxml::registerurl(undef,$target).'';
+ &Apache::lonmenu::registerurl(undef,$target).'';
}
my $onLoad='';
foreach my $key (keys(%{$token->[2]})) {
@@ -344,7 +381,7 @@ sub end_m {
delete($token->[2]->{$key});
}
}
- $token->[2]->{'onLoad'}=&Apache::lonxml::loadevents().
+ $token->[2]->{'onload'}=&Apache::lonmenu::loadevents().
';'.$onLoad;
my $onUnload='';
foreach my $key (keys(%{$token->[2]})) {
@@ -353,7 +390,7 @@ sub end_m {
delete($token->[2]->{$key});
}
}
- $token->[2]->{'onUnload'}=&Apache::lonxml::unloadevents().
+ $token->[2]->{'onunload'}=&Apache::lonmenu::unloadevents().
';'.$onUnload;
$currentstring .= '<'.$token->[1];
@@ -367,7 +404,9 @@ sub end_m {
EDITBUTTON
- }
+ } else {
+ $currentstring.=&Apache::lonmenu::menubuttons(undef,$target,1);
+ }
} elsif ($target eq 'tex') {
$currentstring = '\begin{document}';
}
@@ -846,7 +885,7 @@ EDITBUTTON
$currentstring .= $token->[4];
} elsif ($target eq 'tex') {
if ($$tagstack[-2] ne 'sub' && $$tagstack[-2] ne 'sup') {
- $currentstring .= '\vskip 0 mm';
+ $currentstring .= '\vskip 0.2 mm';
}
} elsif ($target eq 'latexsource') {
$currentstring .= '\\';
@@ -956,7 +995,7 @@ EDITBUTTON
if ($target eq 'web') {
$currentstring .= $token->[4];
} elsif ($target eq 'tex') {
- $currentstring .= '\underline{';
+ &Apache::lonxml::startredirection();
}
return $currentstring;
}
@@ -966,7 +1005,10 @@ EDITBUTTON
if ($target eq 'web') {
$currentstring .= $token->[2];
} elsif ($target eq 'tex') {
- $currentstring .= '}';
+ $currentstring=&Apache::lonxml::endredirection();
+ $currentstring=~s/(\S)(\s+)(\S)/$1}$2\\underline{$3/g;
+ $currentstring=~s/^\s*(\S)/\\underline{$1/;
+ $currentstring=~s/(\S)\s*$/$1}/;
}
return $currentstring;
}
@@ -977,7 +1019,7 @@ EDITBUTTON
if ($target eq 'web') {
$currentstring .= $token->[4];
} elsif ($target eq 'tex') {
- $currentstring .= '\underline{';
+ &Apache::lonxml::startredirection();
}
return $currentstring;
}
@@ -987,7 +1029,10 @@ EDITBUTTON
if ($target eq 'web') {
$currentstring .= $token->[2];
} elsif ($target eq 'tex') {
- $currentstring .= '}';
+ $currentstring=&Apache::lonxml::endredirection();
+ $currentstring=~s/(\S)(\s+)(\S)/$1}$2\\underline{$3/g;
+ $currentstring=~s/^\s*(\S)/\\underline{$1/;
+ $currentstring=~s/(\S)\s*$/$1}/;
}
return $currentstring;
}
@@ -1133,7 +1178,7 @@ EDITBUTTON
if ($target eq 'web') {
$currentstring .= $token->[4];
} elsif ($target eq 'tex') {
- $currentstring .= '\underline{';
+ &Apache::lonxml::startredirection();
}
return $currentstring;
}
@@ -1143,7 +1188,10 @@ EDITBUTTON
if ($target eq 'web') {
$currentstring .= $token->[2];
} elsif ($target eq 'tex') {
- $currentstring .= '}';
+ $currentstring=&Apache::lonxml::endredirection();
+ $currentstring=~s/(\S)(\s+)(\S)/$1}$2\\underline{$3/g;
+ $currentstring=~s/^\s*(\S)/\\underline{$1/;
+ $currentstring=~s/(\S)\s*$/$1}/;
}
return $currentstring;
}
@@ -1291,30 +1339,37 @@ EDITBUTTON
return $currentstring;
}
#-- tag
- sub start_table {
- my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
- my $currentstring = '';
- if ($target eq 'web') {
- $currentstring = $token->[4];
- } elsif ($target eq 'tex') {
- my $aa = {};
- push @Apache::londefdef::table, $aa;
- $Apache::londefdef::table[-1]{'row_number'} = -1;
- $Apache::londefdef::table[-1]{'output'} = ' \noindent \begin{tabular} ';
- my $border = &Apache::lonxml::get_param('border',$parstack,$safeeval);
- unless (defined $border) { $border = 0; }
- if ($border) {
- $Apache::londefdef::table[-1]{'hinc'} = '\hline ';
- $Apache::londefdef::table[-1]{'vinc'} = '&';
- $Apache::londefdef::table[-1]{'vvinc'} = '|';
- } else {
- $Apache::londefdef::table[-1]{'hinc'} = '';
- $Apache::londefdef::table[-1]{'vinc'} = '&';
- $Apache::londefdef::table[-1]{'vvinc'} = '';
- }
- }
- return $currentstring;
+sub start_table {
+ my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
+ my $currentstring = '';
+ if ($target eq 'web') {
+ $currentstring = $token->[4];
+ } elsif ($target eq 'tex') {
+ my $aa = {};
+ push @Apache::londefdef::table, $aa;
+ $Apache::londefdef::table[-1]{'row_number'} = -1;
+ $Apache::londefdef::table[-1]{'output'} = ' \noindent \begin{tabular} ';
+ my $border = &Apache::lonxml::get_param('border',$parstack,$safeeval,undef,1);
+ unless (defined $border) { $border = 0; }
+ if ($border) {
+ $Apache::londefdef::table[-1]{'hinc'} = '\hline ';
+ $Apache::londefdef::table[-1]{'vinc'} = '&';
+ $Apache::londefdef::table[-1]{'vvinc'} = '|';
+ } else {
+ $Apache::londefdef::table[-1]{'hinc'} = '';
+ $Apache::londefdef::table[-1]{'vinc'} = '&';
+ $Apache::londefdef::table[-1]{'vvinc'} = '';
+ }
+ my $width;
+ foreach my $key (keys(%{$token->[2]})) {
+ if ($key =~ /^width$/i) {
+ $width = &Apache::lonxml::get_param($key,$parstack,$safeeval,undef,1);
+ }
}
+ if (defined($width)) { $Apache::londefdef::table[-1]{'width'}=$width; }
+ }
+ return $currentstring;
+}
sub end_table {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';
@@ -1338,28 +1393,9 @@ EDITBUTTON
}
#define the length of the table cells
my @lengthforoutput = split(/,/,$Apache::londefdef::table[-1]{'lengthrow'}[0]);
- my $how_many_columns = $#lengthforoutput + 1;
- my $filled_columns = 0;
- foreach my $tempo_length (@{ $Apache::londefdef::table[-1]{'lengthrow'} }) {
- my @length = split(/,/,$tempo_length);
- my $nfilled_columns = 0;
- for (my $ico=0;$ico<$how_many_columns;$ico++) {
- if (not $lengthforoutput[$ico]=~m/\s*0\s*/) {$nfilled_columns++;}
- }
- if ($nfilled_columns > $filled_columns) {$filled_columns=$nfilled_columns;}
- }
- my $temp_file;
- my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.tbl";
- if (-e $filename) {
- $temp_file = Apache::File->new($filename);
- my @tbl_file_content = <$temp_file>;
- my ($one,$two) = split(/,/,$tbl_file_content[0]);
- $how_many_columns+=$one-1;
- $filled_columns+=$two;
- } else {
- $temp_file = Apache::File->new('>>'.$filename);
- }
- print $temp_file "$how_many_columns,$filled_columns\n";
+ my $how_many_columns = $#lengthforoutput + 1; #total number of columns in the table
+ my $filled_columns = 0; #number of columns with information about width
+ my $available_space = ' ';
foreach my $tempo_length (@{ $Apache::londefdef::table[-1]{'lengthrow'} }) {
my @length = split(/,/,$tempo_length);
for (my $ico=0;$ico<=$#lengthforoutput;$ico++) {
@@ -1396,30 +1432,46 @@ EDITBUTTON
}
}
}
- my $parboxlength = '(\textwidth';
- for (my $io=0; $io<=$#lengthforoutput;$io++) {
- $parboxlength .= ' - '.$lengthforoutput[$io].' ';
+ for (my $ico=0;$ico<=$#lengthforoutput;$ico++) {
+ if (not $lengthforoutput[$ico]=~m/^\s*0\s*\w*\s*$/) {
+ $filled_columns++;
+ $available_space = $available_space.' - '.$lengthforoutput[$ico];
+ }
}
- $parboxlength .= ')/($GLOBALnumberOFcolumns+1) - 3 mm';
- $output =~ s/\\parbox{}{}/\\parbox{1 mm}{}/g;
- $output =~ s/\\parbox{}{(\\textbf{\w?\.?})}/\\parbox{5 mm}{$1}/g; #for stupid tables with empty columns
- $output =~ s/\\parbox{}/\\parbox{$parboxlength}/g;
- my ($howmanyatall,$howmanyfilled) = (0,0);
-
+ my $temp_file;
+ my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.tbl";
+ if (-e $filename) {
+ $temp_file = Apache::File->new($filename);
+ my @tbl_file_content = <$temp_file>;
+ my ($one,$two,$three) = split(/,/,$tbl_file_content[0]);
+ $how_many_columns+=$one-1;
+ $filled_columns+=$two;
+ if($three=~/\S/) {$available_space = $available_space.' - '.$three;}
+ } else {
+ $temp_file = Apache::File->new('>>'.$filename);
+ }
+ print $temp_file "$how_many_columns,$filled_columns,$available_space\n";
+ $output =~ s/\\parbox{TOBECHANGEDONNUMBER}{}/\\parbox{1 mm}{}/g;
+ $output =~ s/\\parbox{TOBECHANGEDONNUMBER}/\\parbox{\$SpacePerColumn}/g;
my @tagar = @$tagstack;
my $signature = 1;
for (my $ico=0;$ico<$#tagar;$ico++) {
if ($tagar[$ico] eq 'table') { $signature = 0; }
}
if ($signature) {
- my $totalnumber = $how_many_columns-$filled_columns-1;
- $output =~ s/\$GLOBALnumberOFcolumns/$totalnumber/g;
- }
+ my $NumberEmptyLength = $how_many_columns - $filled_columns;
+ my $SpacePerColumn = '(\textwidth '.$available_space.')/'.$NumberEmptyLength;
+ my $shorthand = ($filled_columns+1)*4;
+ $output =~ s/\$SpacePerColumn/$SpacePerColumn - $shorthand mm/g;
+ }
+ if ($how_many_columns==1) { #start of block with width correction for one column table
+ $output=~s/^\s*\\parbox{([^}]*)}/\\parbox{\\textwidth - 1 cm}/;
+ } #end of block with width correction for one column table
$Apache::londefdef::table[-1]{'output'} .= $header_of_table.$output.$Apache::londefdef::table[-1]{'hinc'}.'\end{tabular}\vskip 0 mm ';
if ($#Apache::londefdef::table > 0) {
$inmemory = $Apache::londefdef::table[-1]{'output'};
pop @Apache::londefdef::table;
- $Apache::londefdef::table[-1]{'rowdata'}[$Apache::londefdef::table[-1]{'row_number'}] .= $inmemory;
+ $Apache::londefdef::table[-1]{'rowdata'}[$Apache::londefdef::table[-1]{'row_number'}] .= $inmemory
} else {
$currentstring = $Apache::londefdef::table[-1]{'output'};
$currentstring =~ s/\\\\\s+\\\\/\\\\/g;
@@ -1439,7 +1491,7 @@ EDITBUTTON
$currentstring = $token->[4];
} elsif ($target eq 'tex') {
$Apache::londefdef::table[-1]{'row_number'}++;
- my $alignchar = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval),0,1);
+ my $alignchar = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1),0,1);
if ($alignchar ne '') {
push @ {$Apache::londefdef::table[-1]{'rows'} }, $alignchar;
} else {
@@ -1457,7 +1509,6 @@ EDITBUTTON
if ($target eq 'web') {
$currentstring = $token->[2];
} elsif ($target eq 'tex') {
-# $currentstring .= ' START ROW '. $Apache::londefdef::table[-1]{'rowdata'}[$Apache::londefdef::table[-1]{'row_number'}].' END ROW ';
push @{ $Apache::londefdef::table[-1]{'lengthrow'} },$Apache::londefdef::table[-1]{'length'};
}
@@ -1470,14 +1521,13 @@ EDITBUTTON
if ($target eq 'web') {
$currentstring = $token->[4];
} elsif ($target eq 'tex') {
- my $what_to_push = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval),0,1);
+ my $what_to_push = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1),0,1);
if ($what_to_push eq '') {
$what_to_push = substr($Apache::londefdef::table[-1]{'rows'}[0],0,1);;
}
push @{ $Apache::londefdef::table[-1]{'columns'} }, $what_to_push;
$Apache::londefdef::table[-1]{'counter_columns'}++;
&Apache::lonxml::startredirection();
-;
}
return $currentstring;
}
@@ -1490,16 +1540,16 @@ EDITBUTTON
} elsif ($target eq 'tex') {
my $current_row = $Apache::londefdef::table[-1]{'row_number'};
my $data=&Apache::lonxml::endredirection();
- if ($data=~m/width\s*=\s*(\d+\.*\d*\s*(mm|cm|in|pc|pt))/) {
+ if ($data=~m/width\s*=\s*(\d+\.?\d*\s*(mm|cm|in|pc|pt))/) {
$Apache::londefdef::table[-1]{'length'} .= $1.',';
$tempolen = $1;
} else {
if (length($data)<5) {
- $Apache::londefdef::table[-1]{'length'} .= '7 mm,';
- $tempolen = '5 mm';
+ $Apache::londefdef::table[-1]{'length'} .= '0 mm,';
+ $tempolen = '6 mm';
} else {
$Apache::londefdef::table[-1]{'length'} .= '0 mm,';
- $tempolen = '';
+ $tempolen = 'TOBECHANGEDONNUMBER';
}
}
@{ $Apache::londefdef::table[-1]{'rowdata'} }[$current_row] .= '\parbox{'.$tempolen.'}{'.$data.'} '.$Apache::londefdef::table[-1]{'vinc'};
@@ -1513,7 +1563,7 @@ EDITBUTTON
if ($target eq 'web') {
$currentstring = $token->[4];
} elsif ($target eq 'tex') {
- my $what_to_push = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval),0,1);
+ my $what_to_push = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1),0,1);
if ($what_to_push eq '') {
$what_to_push = substr($Apache::londefdef::table[-1]{'rows'}[0],0,1);;
}
@@ -1544,19 +1594,31 @@ EDITBUTTON
#--
tag
sub start_img {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
- $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
- $token->[2]->{'src'};
+ my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval,
+ undef,1);
+ $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=$src;
my $currentstring = '';
my $width_param = '';
my $height_param = '';
- my $scaling = .3;
+ my $scaling = .3;
if ($target eq 'web') {
- $currentstring = $token->[4];
+ if ($ENV{'browser.imagesuppress'} ne 'on') {
+ $currentstring = $token->[4];
+ } else {
+ my $alttag= &Apache::lonxml::get_param
+ ('alt',$parstack,$safeeval,undef,1);
+ unless ($alttag) {
+ $alttag=&Apache::lonmeta::alttag
+ ($Apache::lonxml::pwd[-1],$src);
+ }
+ $currentstring='[IMAGE: '.$alttag.']';
+ }
} elsif ($target eq 'tex') {
- my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval);
- $src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);
- #if original gif/jpg file exist do following:
+ $src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);
+ &image_replication($src);
+
+ #if original gif/jpg/png file exist do following:
if (-e $src) {
#defines the default size of image
my $image = Image::Magick->new;
@@ -1565,13 +1627,18 @@ EDITBUTTON
$height_param = $image->Get('height') * $scaling;;
undef $image;
#do we have any specified size of the picture?
- my $TeXwidth = &Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval);
- my $TeXheight = &Apache::lonxml::get_param('TeXheight',$parstack,$safeeval);
- my $width = &Apache::lonxml::get_param('width',$parstack,$safeeval);
- if ($TeXwidth ne '') {
- $width_param = $TeXwidth;
- } elsif ($TeXheight ne '') {
- $width_param = $TeXheight/$height_param*$width_param;
+ my $TeXwidth = &Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval);
+ my $TeXheight = &Apache::lonxml::get_param('TeXheight',$parstack,$safeeval);
+ my $width = &Apache::lonxml::get_param('width',$parstack,$safeeval,
+ undef,1);
+ if ($TeXwidth ne '') {
+ if ($TeXwidth=~/(\d+)\s*\%/) {
+ $width_param = $1*$ENV{'form.textwidth'}/100;
+ } else {
+ $width_param = $TeXwidth;
+ }
+ } elsif ($TeXheight ne '') {
+ $width_param = $TeXheight/$height_param*$width_param;
} elsif ($width ne '') {
$width_param = $width*$scaling;
}
@@ -1582,13 +1649,13 @@ EDITBUTTON
$path = $1.'/';
}
my $newsrc = $src;
- $newsrc =~ s/(\.gif|\.jpg)$/\.eps/i;
- $file=~s/(\.gif|\.jpg)$/\.eps/i;
+ $newsrc =~ s/\.(gif|jpg|png)$/.eps/i;
+ $file=~s/\.(gif|jpg|png)$/.eps/i;
#where can we find the picture?
if (-e $newsrc) {
#eps counterpart for image exist
if ($path) {
- $currentstring .= '\noindent\graphicspath{{'.$path.'}}\fbox{\includegraphics[width='.$width_param.' mm]{'.$file.'}} ';
+ $currentstring .= '\vskip 1 mm \noindent\graphicspath{{'.$path.'}}\includegraphics[width='.$width_param.' mm]{'.$file.'} ';
}
} else {
#there is no eps counterpart for image - check for ps one
@@ -1597,7 +1664,7 @@ EDITBUTTON
#ps counterpart for image exist
$file =~ s/\.eps$/\.ps/;
if ($path) {
- $currentstring .= '\noindent\graphicspath{{'.$path.'}}\fbox{\includegraphics[width='.$width_param.' mm]{'.$file.'}} ';
+ $currentstring .= '\vskip 1 mm \noindent\graphicspath{{'.$path.'}}\includegraphics[width='.$width_param.' mm]{'.$file.'} ';
}
} else {
#there aren't eps or ps - so create eps
@@ -1605,22 +1672,28 @@ EDITBUTTON
my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.dat";
$temp_file = Apache::File->new('>>'.$filename);
print $temp_file "$src\n";
- $currentstring .= '\graphicspath{{/home/httpd/prtspool/}}\fbox{\includegraphics[width='.$width_param.' mm]{'.$file.'}} ';
+ $currentstring .= '\vskip 1 mm \graphicspath{{/home/httpd/prtspool/}}\includegraphics[width='.$width_param.' mm]{'.$file.'} ';
}
}
} else {
#original image file doesn't exist so check the alt attribute
- my $alt = &Apache::lonxml::get_param('alt',$parstack,$safeeval);
+ my $alt =
+ &Apache::lonxml::get_param('alt',$parstack,$safeeval,undef,1);
+ unless ($alt) {
+ $alt=&Apache::lonmeta::alttag
+ ($Apache::lonxml::pwd[-1],$src);
+ }
+
if ($alt) {
$currentstring .= ' '.$alt.' ';
} else {
- #there are no image and alt attribute
- $currentstring .= ' THE ORIGINAL PROBLEM CONTAINS EMPTY IMG TAG WITHOUT IMAGE AND ALT ATTRIBUTE ';
+ # tag will care about replication
}
}
}
return $currentstring;
}
+
sub end_img {
my ($target,$token) = @_;
my $currentstring = '';
@@ -1634,19 +1707,35 @@ EDITBUTTON
#--