version 1.128, 2004/10/04 21:35:52
|
version 1.131, 2004/11/12 16:22:48
|
Line 37 use Apache::lontexconvert();
|
Line 37 use Apache::lontexconvert();
|
use Apache::lonlocal; # must not have () |
use Apache::lonlocal; # must not have () |
use Apache::lonhtmlcommon(); |
use Apache::lonhtmlcommon(); |
use Apache::lonnavmaps; |
use Apache::lonnavmaps; |
|
use Apache::lonenc(); |
use HTML::LCParser(); |
use HTML::LCParser(); |
use Apache::lonspeller(); |
use Apache::lonspeller(); |
use Cwd; |
use Cwd; |
Line 99 sub list_discussion {
|
Line 100 sub list_discussion {
|
$ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|; |
$ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|; |
} |
} |
} |
} |
|
$ressymb=&Apache::lonenc::check_encrypt($ressymb); |
# Get discussion display settings for this discussion |
# Get discussion display settings for this discussion |
my $lastkey = $ressymb.'_lastread'; |
my $lastkey = $ressymb.'_lastread'; |
my $showkey = $ressymb.'_showonlyunread'; |
my $showkey = $ressymb.'_showonlyunread'; |
Line 360 imscp_v1p1.xsd http://www.imsglobal.org/
|
Line 361 imscp_v1p1.xsd http://www.imsglobal.org/
|
} |
} |
</script> |
</script> |
|; |
|; |
$discussion.='<form name="readchoices" method="post" action="/adm/feedback?chgreads='.$symb.'"><table bgcolor="#AAAAAA" cellpadding="2" cellspacing="2" border="0">'; |
$discussion.='<form name="readchoices" method="post" action="/adm/feedback?chgreads='.$ressymb.'"><table bgcolor="#AAAAAA" cellpadding="2" cellspacing="2" border="0">'; |
$discussion .='<tr><td bgcolor="#DDDDBB" colspan="'.$colspan.'">'. |
$discussion .='<tr><td bgcolor="#DDDDBB" colspan="'.$colspan.'">'. |
'<table border="0" width="100%" bgcolor="#DDDDBB"><tr>'; |
'<table border="0" width="100%" bgcolor="#DDDDBB"><tr>'; |
if ($visible>2) { |
if ($visible>2) { |
Line 678 ENDDISCUSS
|
Line 679 ENDDISCUSS
|
($ENV{'request.course.sec'}?'/'.$ENV{'request.course.sec'}:''))) { |
($ENV{'request.course.sec'}?'/'.$ENV{'request.course.sec'}:''))) { |
if ($outputtarget ne 'tex') { |
if ($outputtarget ne 'tex') { |
$discussion.='<table bgcolor="#BBBBBB"><tr><td><a href="/adm/feedback?replydisc='. |
$discussion.='<table bgcolor="#BBBBBB"><tr><td><a href="/adm/feedback?replydisc='. |
$symb.':::" '.$target.'>'. |
$ressymb.':::" '.$target.'>'. |
'<img src="/adm/lonMisc/chat.gif" border="0" />'. |
'<img src="/adm/lonMisc/chat.gif" border="0" />'. |
&mt('Post Discussion').'</a></td></tr></table>'; |
&mt('Post Discussion').'</a></td></tr></table>'; |
} |
} |
Line 2049 sub redirect_back {
|
Line 2050 sub redirect_back {
|
$sectag = '<input type="hidden" name="sectionpick" value="'.$secpick.'" />'; |
$sectag = '<input type="hidden" name="sectionpick" value="'.$secpick.'" />'; |
} |
} |
} |
} |
|
$feedurl=&Apache::lonenc::check_encrypt($feedurl); |
$r->print (<<ENDREDIR); |
$r->print (<<ENDREDIR); |
<html> |
<html> |
<head> |
<head> |
Line 2086 sub no_redirect_back {
|
Line 2088 sub no_redirect_back {
|
ENDNOREDIR |
ENDNOREDIR |
|
|
if ($feedurl!~/^\/adm\/feedback/) { |
if ($feedurl!~/^\/adm\/feedback/) { |
$r->print('<meta HTTP-EQUIV="Refresh" CONTENT="2; url='.$feedurl.'">'); |
$r->print('<meta HTTP-EQUIV="Refresh" CONTENT="2; url='. |
|
&Apache::lonenc::check_encrypt($feedurl).'">'); |
} |
} |
|
$feedurl=&Apache::lonenc::check_encrypt($feedurl); |
$r->print (<<ENDNOREDIRTWO); |
$r->print (<<ENDNOREDIRTWO); |
</head> |
</head> |
<body bgcolor="#FFFFFF" onLoad='if (window.name!="loncapaclient") { self.close(); }'> |
<body bgcolor="#FFFFFF" onLoad='if (window.name!="loncapaclient") { self.close(); }'> |
Line 2186 sub clear_out_html {
|
Line 2189 sub clear_out_html {
|
sub assemble_email { |
sub assemble_email { |
my ($feedurl,$message,$prevattempts,$usersaw,$useranswer)=@_; |
my ($feedurl,$message,$prevattempts,$usersaw,$useranswer)=@_; |
my $email=<<"ENDEMAIL"; |
my $email=<<"ENDEMAIL"; |
Refers to <a href="$feedurl">$feedurl</a> |
|
|
|
$message |
$message |
ENDEMAIL |
ENDEMAIL |
my $citations=<<"ENDCITE"; |
my $citations=<<"ENDCITE"; |