loncom/interface/lonsimplepage.pm - diff

Return to lonsimplepage.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.21, 2004/06/03 14:28:39	version 1.23, 2005/02/17 08:29:43
Line 46 sub handler {	Line 46 sub handler {
my $target=$ENV{'form.grade_target'};	my $target=$ENV{'form.grade_target'};
# ------------------------------------------------------------ Print the screen	# ------------------------------------------------------------ Print the screen
if ($target ne 'tex') {	if ($target ne 'tex') {
	my $html=&Apache::lonxml::xmlbegin();
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
<html>	$html
<head>	<head>
<title>The LearningOnline Network with CAPA</title>	<title>The LearningOnline Network with CAPA</title>
ENDDOCUMENT	ENDDOCUMENT
Line 179 ENDDOCUMENT	Line 180 ENDDOCUMENT
$message	$message
=~s/(https*\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g;	=~s/(https*\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g;
$message=&Apache::lontexconvert::msgtexconverted($message);	$message=&Apache::lontexconvert::msgtexconverted($message);
	if ($allowed) {
	$message=&Apache::lonspeller::markeduptext($message);
	}
unless ($_ eq 'aaa_title') {	unless ($_ eq 'aaa_title') {
if (($_ ne 'bbb_content') \|\| ($allowed)) {	if (($_ ne 'bbb_content') \|\| ($allowed)) {
if ($target ne 'tex') {	if ($target ne 'tex') {