version 1.152, 2005/02/17 04:39:58
|
version 1.154, 2005/02/17 08:50:20
|
Line 1437 END
|
Line 1437 END
|
my $htmlheader=&Apache::lonhtmlcommon::htmlareaheaders(); |
my $htmlheader=&Apache::lonhtmlcommon::htmlareaheaders(); |
my $send=&mt('Send'); |
my $send=&mt('Send'); |
my $html=&Apache::lonxml::xmlbegin(); |
my $html=&Apache::lonxml::xmlbegin(); |
my $encoding=&Apache::lonxml::fontsettings(); |
|
$r->print(<<END); |
$r->print(<<END); |
$html |
$html |
<head> |
<head> |
$encoding |
|
<title>The LearningOnline Network with CAPA</title> |
<title>The LearningOnline Network with CAPA</title> |
<meta http-equiv="pragma" content="no-cache"></meta> |
<meta http-equiv="pragma" content="no-cache"></meta> |
$htmlheader |
$htmlheader |
Line 1665 sub print_display_options {
|
Line 1663 sub print_display_options {
|
$disctogg = 'toggon'; |
$disctogg = 'toggon'; |
} |
} |
my $html=&Apache::lonxml::xmlbegin(); |
my $html=&Apache::lonxml::xmlbegin(); |
my $encoding=&Apache::lonxml::fontsettings(); |
|
$r->print(<<END); |
$r->print(<<END); |
$html |
$html |
<head> |
<head> |
$encoding |
|
<title>$lt{'dido'}</title> |
<title>$lt{'dido'}</title> |
<meta http-equiv="pragma" content="no-cache" /> |
<meta http-equiv="pragma" content="no-cache" /> |
<script> |
<script> |
Line 1850 sub print_sortfilter_options {
|
Line 1846 sub print_sortfilter_options {
|
my %status_types = (); |
my %status_types = (); |
&sort_filter_names(\%sort_types,\%role_types,\%status_types); |
&sort_filter_names(\%sort_types,\%role_types,\%status_types); |
my $html=&Apache::lonxml::xmlbegin(); |
my $html=&Apache::lonxml::xmlbegin(); |
my $encoding=&Apache::lonxml::fontsettings(); |
|
$r->print(<<END); |
$r->print(<<END); |
$html |
$html |
<head> |
<head> |
$encoding |
|
<title>$lt{'diso'}</title> |
<title>$lt{'diso'}</title> |
<meta http-equiv="pragma" content="no-cache" /> |
<meta http-equiv="pragma" content="no-cache" /> |
<script type="text/javascript"> |
<script type="text/javascript"> |
Line 1956 END
|
Line 1950 END
|
sub print_showposters { |
sub print_showposters { |
my ($r,$symb,$previous,$feedurl,$sortposts) = @_; |
my ($r,$symb,$previous,$feedurl,$sortposts) = @_; |
|
|
|
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->send_http_header; |
|
|
&Apache::lonenc::check_encrypt(\$symb); |
&Apache::lonenc::check_encrypt(\$symb); |
my $crs='/'.$ENV{'request.course.id'}; |
my $crs='/'.$ENV{'request.course.id'}; |
if ($ENV{'request.course.sec'}) { |
if ($ENV{'request.course.sec'}) { |
Line 2005 sub print_showposters {
|
Line 2002 sub print_showposters {
|
} |
} |
} |
} |
my $html=&Apache::lonxml::xmlbegin(); |
my $html=&Apache::lonxml::xmlbegin(); |
my $encoding=&Apache::lonxml::fontsettings(); |
|
$r->print(<<END); |
$r->print(<<END); |
$html |
$html |
<head> |
<head> |
$encoding |
|
<title>$lt{'diso'}</title> |
<title>$lt{'diso'}</title> |
<meta http-equiv="pragma" content="no-cache" /> |
<meta http-equiv="pragma" content="no-cache" /> |
</head> |
</head> |
Line 2121 sub fail_redirect {
|
Line 2116 sub fail_redirect {
|
if ($feedurl=~/^\/adm\//) { $feedurl.='?register=1' }; |
if ($feedurl=~/^\/adm\//) { $feedurl.='?register=1' }; |
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif'); |
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif'); |
my $html=&Apache::lonxml::xmlbegin(); |
my $html=&Apache::lonxml::xmlbegin(); |
my $encoding=&Apache::lonxml::fontsettings(); |
|
$r->print (<<ENDFAILREDIR); |
$r->print (<<ENDFAILREDIR); |
$html |
$html |
<head> |
<head> |
$encoding |
|
<title>Feedback not sent</title> |
<title>Feedback not sent</title> |
<meta http-equiv="pragma" content="no-cache" /> |
<meta http-equiv="pragma" content="no-cache" /> |
<meta HTTP-EQUIV="Refresh" CONTENT="2; url=$feedurl" /> |
<meta HTTP-EQUIV="Refresh" CONTENT="2; url=$feedurl" /> |
Line 2211 sub redirect_back {
|
Line 2204 sub redirect_back {
|
$feedurl=&Apache::lonenc::check_encrypt($feedurl); |
$feedurl=&Apache::lonenc::check_encrypt($feedurl); |
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif'); |
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif'); |
my $html=&Apache::lonxml::xmlbegin(); |
my $html=&Apache::lonxml::xmlbegin(); |
my $encoding=&Apache::lonxml::fontsettings(); |
|
$r->print (<<ENDREDIR); |
$r->print (<<ENDREDIR); |
$html |
$html |
<head> |
<head> |
$encoding |
|
<title>Feedback sent</title> |
<title>Feedback sent</title> |
<meta http-equiv="pragma" content="no-cache" /> |
<meta http-equiv="pragma" content="no-cache" /> |
<meta HTTP-EQUIV="Refresh" CONTENT="2; url=$feedurl" /> |
<meta HTTP-EQUIV="Refresh" CONTENT="2; url=$feedurl" /> |
Line 2244 sub no_redirect_back {
|
Line 2235 sub no_redirect_back {
|
my $nofeed=&mt('Sorry, no feedback possible on this resource ...'); |
my $nofeed=&mt('Sorry, no feedback possible on this resource ...'); |
my $continue=&mt('Continue'); |
my $continue=&mt('Continue'); |
my $html=&Apache::lonxml::xmlbegin(); |
my $html=&Apache::lonxml::xmlbegin(); |
my $encoding=&Apache::lonxml::fontsettings(); |
|
$r->print (<<ENDNOREDIR); |
$r->print (<<ENDNOREDIR); |
$html |
$html |
<head> |
<head> |
$encoding |
|
<title>Feedback not sent</title> |
<title>Feedback not sent</title> |
<meta http-equiv="pragma" content="no-cache" /> |
<meta http-equiv="pragma" content="no-cache" /> |
ENDNOREDIR |
ENDNOREDIR |
Line 2594 sub show_preview {
|
Line 2583 sub show_preview {
|
my $subject=&clear_out_html($ENV{'form.subject'}); |
my $subject=&clear_out_html($ENV{'form.subject'}); |
$subject=~s/\n/\<br \/\>/g; |
$subject=~s/\n/\<br \/\>/g; |
$subject=&Apache::lontexconvert::msgtexconverted($subject); |
$subject=&Apache::lontexconvert::msgtexconverted($subject); |
$r->print('<table border="2"><tr><td>'. |
my $html=&Apache::lonxml::xmlbegin(); |
'<b>Subject:</b> '.$subject.'<br /><br />'. |
$r->print($html.'<head>'. |
$message.'</td></tr></table>'); |
'</head><body><table border="2"><tr><td>'. |
|
'<b>Subject:</b> '.$subject.'<br /><br />'. |
|
$message.'</td></tr></table></body></html>'); |
} |
} |
|
|
sub generate_preview_button { |
sub generate_preview_button { |
Line 2629 sub modify_attachments {
|
Line 2620 sub modify_attachments {
|
} |
} |
&Apache::lonenc::check_encrypt(\$symb); |
&Apache::lonenc::check_encrypt(\$symb); |
my $html=&Apache::lonxml::xmlbegin(); |
my $html=&Apache::lonxml::xmlbegin(); |
my $encoding=&Apache::lonxml::fontsettings(); |
|
$r->print(<<END); |
$r->print(<<END); |
$html |
$html |
<head> |
<head> |
$encoding |
|
<title>Managing Attachments</title> |
<title>Managing Attachments</title> |
<script> |
<script> |
function setAction () { |
function setAction () { |
Line 2983 sub handler {
|
Line 2972 sub handler {
|
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
my $html=&Apache::lonxml::xmlbegin(); |
my $html=&Apache::lonxml::xmlbegin(); |
my $encoding=&Apache::lonxml::fontsettings(); |
|
my $bodytag=&Apache::loncommon::bodytag('Discussion Post Versions'); |
my $bodytag=&Apache::loncommon::bodytag('Discussion Post Versions'); |
$r->print(<<END); |
$r->print(<<END); |
$html |
$html |
<head> |
<head> |
$encoding |
|
<title>Post Versions</title> |
<title>Post Versions</title> |
<meta http-equiv="pragma" content="no-cache" /> |
<meta http-equiv="pragma" content="no-cache" /> |
</head> |
</head> |
Line 3089 END
|
Line 3076 END
|
$r->send_http_header; |
$r->send_http_header; |
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif'); |
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif'); |
my $html=&Apache::lonxml::xmlbegin(); |
my $html=&Apache::lonxml::xmlbegin(); |
my $encoding=&Apache::lonxml::fontsettings(); |
|
$r->print (<<ENDREDIR); |
$r->print (<<ENDREDIR); |
$html |
$html |
<head> |
<head> |
$encoding |
|
<title>New posts marked as read</title> |
<title>New posts marked as read</title> |
<meta http-equiv="pragma" content="no-cache" /> |
<meta http-equiv="pragma" content="no-cache" /> |
<meta HTTP-EQUIV="Refresh" CONTENT="2; url=$feedurl" /> |
<meta HTTP-EQUIV="Refresh" CONTENT="2; url=$feedurl" /> |