loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.333, 2006/04/13 19:07:11	version 1.335, 2006/04/13 21:02:25
Line 61 use POSIX qw(strftime mktime);	Line 61 use POSIX qw(strftime mktime);
use Apache::lonmenu();	use Apache::lonmenu();
use Apache::lonlocal;	use Apache::lonlocal;
use HTML::Entities;	use HTML::Entities;
	use Apache::lonhtmlcommon();
	use Apache::loncoursedata();

my $readit;	my $readit;

Line 3184 sub end_page {	Line 3186 sub end_page {
#&Apache::lonnet::logthis("end_page ".join(':',caller(0)));	#&Apache::lonnet::logthis("end_page ".join(':',caller(0)));
$env{'internal.end_page'}++;	$env{'internal.end_page'}++;
my $result;	my $result;
	if ($args->{'discussion'}) {
	my ($target,$parser);
	if (ref($args->{'discussion'})) {
	($target,$parser) =($args->{'discussion'}{'target'},
	$args->{'discussion'}{'parser'});
	}
	$result .= &Apache::lonxml::xmlend($target,$parser);
	}

if ($args->{'frameset'}) {	if ($args->{'frameset'}) {
$result .= '</frameset>';	$result .= '</frameset>';
} else {	} else {
Line 3194 sub end_page {	Line 3205 sub end_page {
if ($args->{'js_ready'}) {	if ($args->{'js_ready'}) {
$result = &js_ready($result);	$result = &js_ready($result);
}	}

if ($args->{'html_encode'}) {	if ($args->{'html_encode'}) {
$result = &html_encode($result);	$result = &html_encode($result);
}	}

return $result;	return $result;
}	}