version 1.152, 2005/02/17 04:39:58
|
version 1.156, 2005/03/23 22:14:01
|
Line 322 sub list_discussion {
|
Line 322 sub list_discussion {
|
if ($visible) { |
if ($visible) { |
# Print the discusssion |
# Print the discusssion |
if ($outputtarget eq 'tex') { |
if ($outputtarget eq 'tex') { |
$discussion.='<tex>\vskip 0 mm\noindent\makebox[2 cm][b]{\hrulefill}'. |
$discussion.='<tex>{\tiny \vskip 0 mm\noindent\makebox[2 cm][b]{\hrulefill}'. |
'\textbf{DISCUSSIONS}\makebox[2 cm][b]{\hrulefill}'. |
'\textbf{DISCUSSIONS}\makebox[2 cm][b]{\hrulefill}'. |
'\vskip 0 mm\noindent\textbf{'.$lt{'cuse'}.'}:\vskip 0 mm'. |
'\vskip 0 mm\noindent\textbf{'.$lt{'cuse'}.'}:\vskip 0 mm'. |
'\noindent\textbf{'.$lt{'disa'}.'}: \textit{'.$currdisp.'}\vskip 0 mm'. |
'\noindent\textbf{'.$lt{'disa'}.'}: \textit{'.$currdisp.'}\vskip 0 mm'. |
'\noindent\textbf{'.$lt{'npce'}.'}: \textit{'.$currmark.'}</tex>'; |
'\noindent\textbf{'.$lt{'npce'}.'}: \textit{'.$currmark.'}}</tex>'; |
} elsif ($outputtarget eq 'export') { |
} elsif ($outputtarget eq 'export') { |
# Create temporary directory if this is an export |
# Create temporary directory if this is an export |
my $now = time; |
my $now = time; |
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 2344 sub clear_out_html {
|
Line 2333 sub clear_out_html {
|
# <SUP> |
# <SUP> |
%html=(B=>1, I=>1, P=>1, A=>1, LI=>1, OL=>1, UL=>1, EM=>1, |
%html=(B=>1, I=>1, P=>1, A=>1, LI=>1, OL=>1, UL=>1, EM=>1, |
BR=>1, TT=>1, STRONG=>1, BLOCKQUOTE=>1, DIV=>1, IMG=>1, |
BR=>1, TT=>1, STRONG=>1, BLOCKQUOTE=>1, DIV=>1, IMG=>1, |
M=>1, SUB=>1, SUP=>1, SPAN=>1, |
M=>1, ALGEBRA=>1, SUB=>1, SUP=>1, SPAN=>1, |
H1=>1, H2=>1, H3=>1, H4=>1, H5=>1); |
H1=>1, H2=>1, H3=>1, H4=>1, H5=>1); |
} |
} |
# Do the substitution of everything that is not explicitly allowed |
# Do the substitution of everything that is not explicitly allowed |
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" /> |