|
version 1.155, 2003/07/25 10:44:36
|
version 1.157, 2003/07/31 21:00:55
|
|
Line 25
|
Line 25
|
| # /home/httpd/html/adm/gpl.txt |
# /home/httpd/html/adm/gpl.txt |
| # |
# |
| # http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
| # |
## Copyright for TtHfunc and TtMfunc by Ian Hutchinson. |
| # Copyright for TtHfunc and TtMfunc by Ian Hutchinson. |
|
| # TtHfunc and TtMfunc (the "Code") may be compiled and linked into |
# TtHfunc and TtMfunc (the "Code") may be compiled and linked into |
| # binary executable programs or libraries distributed by the |
# binary executable programs or libraries distributed by the |
| # Michigan State University (the "Licensee"), but any binaries so |
# Michigan State University (the "Licensee"), but any binaries so |
|
Line 1079 sub end_q {
|
Line 1078 sub end_q {
|
| |
|
| #-- <p> tag |
#-- <p> tag |
| sub start_p { |
sub start_p { |
| my ($target,$token) = @_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; |
| my $currentstring = ''; |
my $currentstring = ''; |
| if ($target eq 'web') { |
if ($target eq 'web') { |
| $currentstring .= $token->[4]; |
$currentstring .= $token->[4]; |
| } elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
| $currentstring .= '\par '; |
my $signal=1; |
| |
foreach my $tag (@$tagstack) {if ($tag eq 'b') {$signal=0;}} |
| |
if ($signal) {$currentstring .= '\par ';} |
| } |
} |
| return $currentstring; |
return $currentstring; |
| } |
} |
|
Line 2011 sub start_img {
|
Line 2012 sub start_img {
|
| } elsif ($width ne '') { |
} elsif ($width ne '') { |
| $width_param = $width*$scaling; |
$width_param = $width*$scaling; |
| } |
} |
| |
if ($width_param > $ENV{'form.textwidth'}) {$width_param =0.95*$ENV{'form.textwidth'}} |
| my $file; |
my $file; |
| my $path; |
my $path; |
| if ($src =~ m!(.*)/([^/]*)$!) { |
if ($src =~ m!(.*)/([^/]*)$!) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to londefdef.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml