version 1.375, 2005/06/09 02:12:26
|
version 1.379, 2005/06/29 19:02:14
|
Line 180 sub xmlend {
|
Line 180 sub xmlend {
|
$status=$Apache::inputtags::status[-1]; |
$status=$Apache::inputtags::status[-1]; |
} |
} |
my $discussion; |
my $discussion; |
&Apache::loncommon::get_unprocessed_cgi |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
($env{'query_string'},['LONCAPA_INTERNAL_no_discussion']); |
['LONCAPA_INTERNAL_no_discussion']); |
if (! exists($env{'form.LONCAPA_INTERNAL_no_discussion'}) || |
if (! exists($env{'form.LONCAPA_INTERNAL_no_discussion'}) || |
$env{'form.LONCAPA_INTERNAL_no_discussion'} ne 'true') { |
$env{'form.LONCAPA_INTERNAL_no_discussion'} ne 'true') { |
$discussion=&Apache::lonfeedback::list_discussion($mode,$status); |
$discussion=&Apache::lonfeedback::list_discussion($mode,$status); |
Line 397 sub latex_special_symbols {
|
Line 397 sub latex_special_symbols {
|
$string=~s/\\\%|\%/\\\%/g; |
$string=~s/\\\%|\%/\\\%/g; |
$string=~s/\\{|{/\\{/g; |
$string=~s/\\{|{/\\{/g; |
$string=~s/\\}|}/\\}/g; |
$string=~s/\\}|}/\\}/g; |
|
$string=~s/\\ensuremath\\{\\backslash\\}/\\ensuremath{\\backslash}/g; |
$string=~s/\\\$|\$/\\\$/g; |
$string=~s/\\\$|\$/\\\$/g; |
$string=~s/\\\_|\_/\\\_/g; |
$string=~s/\\\_|\_/\\\_/g; |
$string=~s/([^\\]|^)(\~|\^)/$1\\$2\\strut /g; |
$string=~s/([^\\]|^)(\~|\^)/$1\\$2\\strut /g; |
Line 1065 sub parstring {
|
Line 1066 sub parstring {
|
|
|
sub writeallows { |
sub writeallows { |
unless ($#extlinks>=0) { return; } |
unless ($#extlinks>=0) { return; } |
my $thisurl='/res/'.&Apache::lonnet::declutter(shift); |
my $thisurl = &Apache::lonnet::clutter(shift); |
if ($env{'httpref.'.$thisurl}) { |
if ($env{'httpref.'.$thisurl}) { |
$thisurl=$env{'httpref.'.$thisurl}; |
$thisurl=$env{'httpref.'.$thisurl}; |
} |
} |