loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1031, 2011/12/08 01:34:50	version 1.1032, 2011/12/08 02:59:37
Line 6739 sub headtag {	Line 6739 sub headtag {
&& !$args->{'only_body'}	&& !$args->{'only_body'}
&& !$args->{'frameset'}) {	&& !$args->{'frameset'}) {
$result .= &help_menu_js();	$result .= &help_menu_js();
	$result.=&modal_window();
}	}
$result.=&modal_window();
if (ref($args->{'redirect'})) {	if (ref($args->{'redirect'})) {
my ($time,$url,$inhibit_continue) = @{$args->{'redirect'}};	my ($time,$url,$inhibit_continue) = @{$args->{'redirect'}};
$url = &Apache::lonenc::check_encrypt($url);	$url = &Apache::lonenc::check_encrypt($url);
Line 7008 sub modal_link {	Line 7008 sub modal_link {
$linktext.'</a>';	$linktext.'</a>';
}	}

	sub modal_adhoc_script {
	my ($funcname,$width,$height,$content)=@_;
	return (<<ENDADHOC);
	<script type="text/javascript" lang="javascript">
	// <![CDATA[
	var $funcname = function()
	{
	modalWindow.windowId = "myModal";
	modalWindow.width = $width;
	modalWindow.height = $height;
	modalWindow.content = '$content';
	modalWindow.open();
	};
	// ]]>
	</script>
	ENDADHOC
	}

sub html_encode {	sub html_encode {
my ($result) = @_;	my ($result) = @_;