loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.285.2.1, 2011/05/15 23:57:32	version 1.286, 2011/01/13 17:44:30
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, '<>&"');
	}

	sub direct_parm_link {
	my ($linktext,$symb,$filter,$part,$target)=@_;
	$symb=&entity_encode($symb);
	$filter=&entity_encode($filter);
	$part=&entity_encode($part);
	if (($symb) && (&Apache::lonnet::allowed('opa')) && ($target ne 'tex')) {
	return "<a href='/adm/parmset?symb=$symb&filter=$filter&part=$part'>$linktext</a>";
	} else {
	return $linktext;
	}
	}
##############################################	##############################################
##############################################	##############################################

Line 1611 returns: nothing	Line 1628 returns: nothing
@html = grep {defined $_ && $_ ne ''} @html;	@html = grep {defined $_ && $_ ne ''} @html;
for (@html) {	for (@html) {
s/align="(right\|left)"//;	s/align="(right\|left)"//;
if (($category ne 'advtools') && ($category ne 'tools')) {	s/<span.*?\/span>// if $category ne 'advtools';
s/<span.*?\/span>//;
}
}	}

push @{$tools{$category}}, @html;	push @{$tools{$category}}, @html;