version 1.285, 2011/01/03 13:10:12
|
version 1.285.2.2, 2011/10/11 13:12:23
|
Line 60 use Time::Local;
|
Line 60 use Time::Local;
|
use Time::HiRes; |
use Time::HiRes; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonnet; |
use Apache::lonnet; |
|
use HTML::Entities(); |
use LONCAPA; |
use LONCAPA; |
|
|
sub java_not_enabled { |
sub java_not_enabled { |
Line 83 sub raw_href_to_link {
|
Line 84 sub raw_href_to_link {
|
return $message; |
return $message; |
} |
} |
|
|
|
sub entity_encode { |
|
my ($text)=@_; |
|
return &HTML::Entities::encode($text, '<>&"'); |
|
} |
|
|
############################################## |
############################################## |
############################################## |
############################################## |
|
|
Line 1611 returns: nothing
|
Line 1617 returns: nothing
|
@html = grep {defined $_ && $_ ne ''} @html; |
@html = grep {defined $_ && $_ ne ''} @html; |
for (@html) { |
for (@html) { |
s/align="(right|left)"//; |
s/align="(right|left)"//; |
s/<span.*?\/span>// if $category ne 'advtools'; |
if (($category ne 'advtools') && ($category ne 'tools')) { |
|
s/<span.*?\/span>//; |
|
} |
} |
} |
|
|
push @{$tools{$category}}, @html; |
push @{$tools{$category}}, @html; |