loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.285.2.2, 2011/10/11 13:12:23	version 1.286, 2011/01/13 17:44:30
Line 89 sub entity_encode {	Line 89 sub entity_encode {
return &HTML::Entities::encode($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 1617 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;