loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.78, 2003/02/12 17:57:27	version 1.79, 2003/02/13 18:11:26
Line 518 sub help_open_topic {	Line 518 sub help_open_topic {
my ($topic, $text, $stayOnPage, $width, $height) = @_;	my ($topic, $text, $stayOnPage, $width, $height) = @_;
$text = "" if (not defined $text);	$text = "" if (not defined $text);
$stayOnPage = 0 if (not defined $stayOnPage);	$stayOnPage = 0 if (not defined $stayOnPage);
	if ($ENV{'browser.interface'} eq 'textual') {
	$stayOnPage=1;
	}
$width = 350 if (not defined $width);	$width = 350 if (not defined $width);
$height = 400 if (not defined $height);	$height = 400 if (not defined $height);
my $filename = $topic;	my $filename = $topic;
Line 1444 $addentries>	Line 1447 $addentries>
END	END
if ($bodyonly) {	if ($bodyonly) {
return $bodytag;	return $bodytag;
	} elsif ($ENV{'browser.interface'} eq 'textual') {
	return $bodytag.'<h1>LON-CAPA: '.$title.
	'</h1><a href="/adm/menu">Main Menu</a><hr />';
} else {	} else {
return(<<ENDBODY);	return(<<ENDBODY);
$bodytag	$bodytag