version 1.23, 2004/05/10 14:10:03
|
version 1.28, 2005/02/17 08:29:42
|
Line 42 sub handler {
|
Line 42 sub handler {
|
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
my $target=$ENV{'form.grade_target'}; |
my $target=$ENV{'form.grade_target'}; |
&Apache::lonnet::logthis("MY TARGET IS DEFINED AS $target"); |
|
|
|
|
|
# &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['previous']); |
|
# ------------------------------------------------------------ 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 81 ENDDOCUMENT
|
Line 79 ENDDOCUMENT
|
|
|
# ------------------------------------------------------------ Get Query String |
# ------------------------------------------------------------ Get Query String |
&Apache::loncommon::get_unprocessed_cgi |
&Apache::loncommon::get_unprocessed_cgi |
($ENV{'QUERY_STRING'},['forcestudent','forceedit','register']); |
($ENV{'QUERY_STRING'},['forcestudent','forceedit','register','origpage']); |
# ----------------------------------------------------- Force menu registration |
# ----------------------------------------------------- Force menu registration |
my $addentries=''; |
my $addentries=''; |
if ($ENV{'form.register'}) { |
if ($ENV{'form.register'}) { |
$addentries=' onLoad="'.&Apache::lonmenu::loadevents(). |
$addentries=' onLoad="'.&Apache::lonmenu::loadevents(); |
'" onUnload="'.&Apache::lonmenu::unloadevents().'"'; |
if ($ENV{'form.origpage'}) { |
|
$addentries .= "document.location='#newpost';"; |
|
} |
|
$addentries .= '" onUnload="'.&Apache::lonmenu::unloadevents().'"'; |
$r->print(&Apache::lonmenu::registerurl(1)); |
$r->print(&Apache::lonmenu::registerurl(1)); |
|
} elsif ($ENV{'form.origpage'}) { |
|
$addentries = "onLoad=\"document.location='#newpost';\""; |
} |
} |
# --------------------------------------------------------------- Force Student |
# --------------------------------------------------------------- Force Student |
my $forcestudent=''; |
my $forcestudent=''; |
Line 110 ENDDOCUMENT
|
Line 113 ENDDOCUMENT
|
if (($syllabus{'uploaded.lastmodified'}) && (!$forceedit)) { |
if (($syllabus{'uploaded.lastmodified'}) && (!$forceedit)) { |
$forcestudent='student'; |
$forcestudent='student'; |
} |
} |
|
if ($target ne 'tex') { $r->print('<table><tr><td>'); } |
if ($forcestudent or $target eq 'tex') { $allowed=0; } |
if ($forcestudent or $target eq 'tex') { $allowed=0; } |
|
|
if ($allowed) { |
if ($allowed) { |
Line 170 ENDDOCUMENT
|
Line 173 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); |
unless ($_ eq 'aaa_title') { |
if ($allowed) { |
|
$message=&Apache::lonspeller::markeduptext($message); |
|
} |
|
unless ($_ eq 'aaa_title') { |
if (($_ ne 'bbb_content') || ($allowed)) { |
if (($_ ne 'bbb_content') || ($allowed)) { |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$r->print('<h3>'.$syllabusfields{$_}.'</h3>'); |
$r->print('<h3>'.$syllabusfields{$_}.'</h3>'); |
Line 211 ENDDOCUMENT
|
Line 217 ENDDOCUMENT
|
} else { |
} else { |
$r->print('<p>'.&mt('No page information provided.').'</p>'); |
$r->print('<p>'.&mt('No page information provided.').'</p>'); |
} |
} |
|
if ($target ne 'tex') { $r->print('</td></tr></table>'); } |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$r->print(&Apache::lonfeedback::list_discussion |
$r->print(&Apache::lonfeedback::list_discussion |
('board','OPEN','bulletin___'.$marker.'___'. |
('board','OPEN','bulletin___'.$marker.'___'. |