version 1.264, 2003/06/16 21:32:43
|
version 1.267, 2003/08/04 14:30:34
|
Line 70 use Math::Cephes();
|
Line 70 use Math::Cephes();
|
use Math::Random(); |
use Math::Random(); |
use Opcode(); |
use Opcode(); |
|
|
|
|
sub register { |
sub register { |
my ($space,@taglist) = @_; |
my ($space,@taglist) = @_; |
foreach my $temptag (@taglist) { |
foreach my $temptag (@taglist) { |
Line 95 use Apache::run();
|
Line 96 use Apache::run();
|
use Apache::londefdef(); |
use Apache::londefdef(); |
use Apache::scripttag(); |
use Apache::scripttag(); |
use Apache::edit(); |
use Apache::edit(); |
|
use Apache::inputtags(); |
|
use Apache::outputtags(); |
use Apache::lonnet(); |
use Apache::lonnet(); |
use Apache::File(); |
use Apache::File(); |
use Apache::loncommon(); |
use Apache::loncommon(); |
Line 489 sub latex_special_symbols {
|
Line 492 sub latex_special_symbols {
|
$current_token=~s/(>|<)/\$$1\$/g; #more or less |
$current_token=~s/(>|<)/\$$1\$/g; #more or less |
if ($current_token=~m/\d%/) {$current_token =~ s/(\d)%/$1\\%/g;} #percent after digit |
if ($current_token=~m/\d%/) {$current_token =~ s/(\d)%/$1\\%/g;} #percent after digit |
if ($current_token=~m/\s%/) {$current_token =~ s/(\s)%/$1\\%/g;} #persent after space |
if ($current_token=~m/\s%/) {$current_token =~ s/(\s)%/$1\\%/g;} #persent after space |
|
if ($current_token eq '%.') {$current_token = '\%.';} #persent at the end of statement |
} |
} |
return $current_token; |
return $current_token; |
} |
} |
Line 1046 sub parstring {
|
Line 1050 sub parstring {
|
my $val=$token->[2]->{$_}; |
my $val=$token->[2]->{$_}; |
$val =~ s/([\%\@\\\"\'])/\\$1/g; |
$val =~ s/([\%\@\\\"\'])/\\$1/g; |
#if ($val =~ m/^[\%\@]/) { $val="\\".$val; } |
#if ($val =~ m/^[\%\@]/) { $val="\\".$val; } |
$temp .= "my \$$_=\"$val\";" |
$temp .= "my \$$_=\"$val\";"; |
} |
} |
} |
} |
return $temp; |
return $temp; |
Line 1139 sub inserteditinfo {
|
Line 1143 sub inserteditinfo {
|
my ($result,$filecontents)=@_; |
my ($result,$filecontents)=@_; |
$filecontents = &HTML::Entities::encode($filecontents); |
$filecontents = &HTML::Entities::encode($filecontents); |
# my $editheader='<a href="#editsection">Edit below</a><hr />'; |
# my $editheader='<a href="#editsection">Edit below</a><hr />'; |
my $xml_help = '<table><tr><td>'. |
my $xml_help = Apache::loncommon::helpLatexCheatsheet(); |
&Apache::loncommon::help_open_topic("Greek_Symbols",'Greek Symbols', |
|
undef,undef,600) |
|
.'</td><td>'. |
|
&Apache::loncommon::help_open_topic("Other_Symbols",'Other Symbols', |
|
undef,undef,600) |
|
.'</td></tr></table>'; |
|
my $titledisplay=&display_title(); |
my $titledisplay=&display_title(); |
my $buttons=(<<BUTTONS); |
my $buttons=(<<BUTTONS); |
<input type="submit" name="attemptclean" |
<input type="submit" name="attemptclean" |