--- loncom/xml/londefdef.pm 2002/10/08 15:35:22 1.91
+++ loncom/xml/londefdef.pm 2002/11/07 19:33:52 1.99
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Tags Default Definition Module
#
-# $Id: londefdef.pm,v 1.91 2002/10/08 15:35:22 sakharuk Exp $
+# $Id: londefdef.pm,v 1.99 2002/11/07 19:33:52 albertel Exp $
#
#
# Copyright Michigan State University Board of Trustees
@@ -330,7 +330,6 @@ 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) {
@@ -846,7 +845,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 .= '\\';
@@ -1413,7 +1412,8 @@ sub start_table {
if ($signature) {
my $NumberEmptyLength = $how_many_columns - $filled_columns;
my $SpacePerColumn = '(\textwidth '.$available_space.')/'.$NumberEmptyLength;
- $output =~ s/\$SpacePerColumn/$SpacePerColumn/g;
+ my $shorthand = ($NumberEmptyLength+1)*4;
+ $output =~ s/\$SpacePerColumn/$SpacePerColumn - $shorthand mm/g;
}
$Apache::londefdef::table[-1]{'output'} .= $header_of_table.$output.$Apache::londefdef::table[-1]{'hinc'}.'\end{tabular}\vskip 0 mm ';
if ($#Apache::londefdef::table > 0) {
@@ -1543,17 +1543,18 @@ sub start_table {
#--
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;
if ($target eq 'web') {
- $currentstring = $token->[4];
+ $currentstring = $token->[4];
} elsif ($target eq 'tex') {
- my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval);
+ &image_replication($src);
$src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);
#if original gif/jpg file exist do following:
if (-e $src) {
@@ -1591,7 +1592,7 @@ sub start_table {
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.'}}\fbox{\includegraphics[width='.$width_param.' mm]{'.$file.'}} ';
}
} else {
#there is no eps counterpart for image - check for ps one
@@ -1600,7 +1601,7 @@ sub start_table {
#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.'}}\fbox{\includegraphics[width='.$width_param.' mm]{'.$file.'}} ';
}
} else {
#there aren't eps or ps - so create eps
@@ -1608,7 +1609,7 @@ sub start_table {
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/}}\fbox{\includegraphics[width='.$width_param.' mm]{'.$file.'}} ';
}
}
} else {
@@ -1617,8 +1618,7 @@ sub start_table {
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
}
}
}
@@ -1715,27 +1715,30 @@ sub start_embed {
return $currentstring;
}
#-- tag
- sub start_allow {
- 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);
- if (not -e '/home/httpd/html'.$src) {
- #replicates image itself
- &Apache::lonnet::repcopy($src);
- #replicates eps or ps
- my $newsrc = $src;
- $newsrc =~ s/(.gif|.jpg)$/.eps/;
- if (not-e $newsrc && &Apache::lonnet::repcopy($newsrc) ne 'OK') {
- $newsrc =~ s/\.ps$/\.eps/;
- &Apache::lonnet::repcopy($newsrc);
- }
- }
- return '';
- }
- sub end_allow {
- return '';
- }
+sub start_allow {
+ 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);
+ &image_replication($src);
+ my $result;
+ if ($target eq 'edit') {
+ $result .=&Apache::edit::tag_start($target,$token);
+ $result .=&Apache::edit::text_arg('File Spec:','src',$token,70);
+ $result .=&Apache::edit::end_row();#.&Apache::edit::start_spanning_row();
+ } elsif ($target eq 'modified') {
+ my $constructtag=&Apache::edit::get_new_args($token,$parstack,
+ $safeeval,'src');
+ if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
+ }
+ return $result;
+}
+
+sub end_allow {
+ my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
+ if ( $target eq 'edit') { return (&Apache::edit::end_table()); }
+ return '';
+}
#-- Frames
sub start_frameset {
my ($target,$token) = @_;
@@ -2529,5 +2532,22 @@ sub start_embed {
}
return $currentstring;
}
+
+sub image_replication {
+ my $src = shift;
+ if (not -e '/home/httpd/html'.$src) {
+ #replicates image itself
+ &Apache::lonnet::repcopy('/home/httpd/html'.$src);
+ #replicates eps or ps
+ my $newsrc = $src;
+ $newsrc =~ s/(.gif|.jpg)$/.eps/;
+ if (not-e $newsrc && &Apache::lonnet::repcopy('/home/httpd/html'.$newsrc) ne 'OK') {
+ $newsrc =~ s/\.ps$/\.eps/;
+ &Apache::lonnet::repcopy('/home/httpd/html'.$newsrc);
+ }
+ }
+ return '';
+}
+
1;
__END__