version 1.36, 2004/06/11 16:28:14
|
version 1.39, 2005/02/17 08:29:43
|
Line 37 use Apache::lonfeedback;
|
Line 37 use Apache::lonfeedback;
|
use Apache::lonannounce; |
use Apache::lonannounce; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonhtmlcommon; |
use Apache::lonhtmlcommon; |
|
use Apache::lonspeller(); |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 47 sub handler {
|
Line 48 sub handler {
|
# ------------------------------------------------------------ Print the screen |
# ------------------------------------------------------------ Print the screen |
my $target=$ENV{'form.grade_target'}; |
my $target=$ENV{'form.grade_target'}; |
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 122 ENDDOCUMENT
|
Line 124 ENDDOCUMENT
|
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$r->print('<table border="2">'); |
$r->print('<table border="2">'); |
} else { |
} else { |
$r->print('\begin{tabular}{|c|c|}\hline'); |
$r->print('\begin{tabular}{|p{0.45\textwidth}|p{0.45\textwidth}|}\hline'); |
} |
} |
foreach my $element (sort keys %coursepersonnel) { |
foreach my $element (sort keys %coursepersonnel) { |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
Line 286 ENDDOCUMENT
|
Line 288 ENDDOCUMENT
|
$message=~s/\n/\<br \/\>/g; |
$message=~s/\n/\<br \/\>/g; |
$message |
$message |
=~s/(https*\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g; |
=~s/(https*\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g; |
|
if ($allowed) { |
|
$message=&Apache::lonspeller::markeduptext($message); |
|
} |
$message=&Apache::lontexconvert::msgtexconverted($message); |
$message=&Apache::lontexconvert::msgtexconverted($message); |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$r->print('<h3>'.$syllabusfields{$_}.'</h3><blockquote>'. |
$r->print('<h3>'.$syllabusfields{$_}.'</h3><blockquote>'. |