loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.285, 2011/01/03 13:10:12	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;
	}
	}
##############################################	##############################################
##############################################	##############################################