version 1.68, 2003/11/07 16:37:23
|
version 1.73, 2003/11/27 09:43:42
|
Line 70 sub list_discussion {
|
Line 70 sub list_discussion {
|
my $seeid=&Apache::lonnet::allowed('rin',$crs); |
my $seeid=&Apache::lonnet::allowed('rin',$crs); |
my $viewgrades=&Apache::lonnet::allowed('vgr',$crs); |
my $viewgrades=&Apache::lonnet::allowed('vgr',$crs); |
my @discussionitems=(); |
my @discussionitems=(); |
my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'}, |
# backward compatability (bulltein boards used to be 'wrapped') |
|
my $ressymb=$symb; |
|
if ($mode eq 'board') { |
|
$ressymb=~s|(bulletin___\d+___)|$1adm/wrapper|; |
|
} |
|
my %contrib=&Apache::lonnet::restore($ressymb,$ENV{'request.course.id'}, |
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}); |
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}); |
my $visible=0; |
my $visible=0; |
Line 81 sub list_discussion {
|
Line 86 sub list_discussion {
|
my %alldiscussion=(); |
my %alldiscussion=(); |
my $maxdepth=0; |
my $maxdepth=0; |
|
|
|
my $target=''; |
|
unless ($ENV{'browser.interface'} eq 'textual' || |
|
$ENV{'environment.remote'} eq 'off' ) { |
|
$target='target="LONcom"'; |
|
} |
if ($contrib{'version'}) { |
if ($contrib{'version'}) { |
for (my $id=1;$id<=$contrib{'version'};$id++) { |
for (my $id=1;$id<=$contrib{'version'};$id++) { |
my $idx=$id; |
my $idx=$id; |
my $hidden=($contrib{'hidden'}=~/\.$idx\./); |
my $hidden=($contrib{'hidden'}=~/\.$idx\./); |
my $deleted=($contrib{'deleted'}=~/\.$idx\./); |
my $deleted=($contrib{'deleted'}=~/\.$idx\./); |
my $origindex='0.'; |
my $origindex='0.'; |
if ($contrib{$idx.':replyto'}) { |
if (($contrib{$idx.':replyto'}) && ($ENV{'environment.threadeddiscussion'})) { |
# this is a follow-up message |
# this is a follow-up message |
$original[$idx]=$original[$contrib{$idx.':replyto'}]; |
$original[$idx]=$original[$contrib{$idx.':replyto'}]; |
$depth[$idx]=$depth[$contrib{$idx.':replyto'}]+1; |
$depth[$idx]=$depth[$contrib{$idx.':replyto'}]+1; |
Line 154 sub list_discussion {
|
Line 164 sub list_discussion {
|
$ENV{'request.course.id'}. |
$ENV{'request.course.id'}. |
($ENV{'request.course.sec'}?'/'.$ENV{'request.course.sec'}:''))) { |
($ENV{'request.course.sec'}?'/'.$ENV{'request.course.sec'}:''))) { |
$sender.=' <a href="/adm/feedback?replydisc='. |
$sender.=' <a href="/adm/feedback?replydisc='. |
$symb.':::'.$idx.'">'.&mt('Reply').'</a>'; |
$symb.':::'.$idx.'" '.$target.'>'.&mt('Reply').'</a>'; |
} |
} |
} else { |
} else { |
if ($screenname) { |
if ($screenname) { |
Line 168 sub list_discussion {
|
Line 178 sub list_discussion {
|
} |
} |
#figure out at what position this needs to print |
#figure out at what position this needs to print |
my $thisindex=$idx; |
my $thisindex=$idx; |
# if ($ENV{'request.discussions.threaded'}) { |
if ($ENV{'environment.threadeddiscussion'}) { |
if (1) { |
|
$thisindex=$origindex.substr('00'.$replies[$depth[$idx]],-2,2); |
$thisindex=$origindex.substr('00'.$replies[$depth[$idx]],-2,2); |
} |
} |
$alldiscussion{$thisindex}=$idx; |
$alldiscussion{$thisindex}=$idx; |
Line 184 sub list_discussion {
|
Line 193 sub list_discussion {
|
} |
} |
my $discussion=''; |
my $discussion=''; |
if ($visible) { |
if ($visible) { |
|
# Print a the discusssion |
$discussion.='<table bgcolor="#AAAAAA" cellpadding="2" cellspacing="2" border="0">'; |
$discussion.='<table bgcolor="#AAAAAA" cellpadding="2" cellspacing="2" border="0">'; |
|
if ($visible>2) { |
|
my $colspan=$maxdepth+1; |
|
$discussion.='<tr><td bgcolor="DDDDBB" colspan="'.$colspan.'">'. |
|
'<a href="/adm/feedback?threadedon='.$symb.'">'.&mt('Threaded View').'</a> '. |
|
'<a href="/adm/feedback?threadedoff='.$symb.'">'.&mt('Chronological View').'</a>'. |
|
'</td></tr>'; |
|
} |
|
|
foreach (sort { $a <=> $b } keys %alldiscussion) { |
foreach (sort { $a <=> $b } keys %alldiscussion) { |
$discussion.="\n<tr bgcolor='#CCCCCC'><td>".$discussionitems[$alldiscussion{$_}]. |
$discussion.="\n<tr>"; |
|
my $thisdepth=$depth[$alldiscussion{$_}]; |
|
for (1..$thisdepth) { |
|
$discussion.='<td> </td>'; |
|
} |
|
my $colspan=$maxdepth-$thisdepth+1; |
|
$discussion.="<td bgcolor='#CCCCCC' colspan='".$colspan."'>".$discussionitems[$alldiscussion{$_}]. |
"</td></tr>"; |
"</td></tr>"; |
} |
} |
$discussion.='</table>'; |
$discussion.='</table>'; |
Line 196 sub list_discussion {
|
Line 220 sub list_discussion {
|
<form action="/adm/feedback" method="post" name="mailform" enctype="multipart/form-data"> |
<form action="/adm/feedback" method="post" name="mailform" enctype="multipart/form-data"> |
<input type="submit" name="discuss" value="Post Discussion" /> |
<input type="submit" name="discuss" value="Post Discussion" /> |
<input type="submit" name="anondiscuss" value="Post Anonymous Discussion" /> |
<input type="submit" name="anondiscuss" value="Post Anonymous Discussion" /> |
<input type="hidden" name="symb" value="$symb" /> |
<input type="hidden" name="symb" value="$ressymb" /> |
<input type="hidden" name="sendit" value="true" /> |
<input type="hidden" name="sendit" value="true" /> |
<br /> |
<br /> |
<font size="1">Note: in anonymous discussion, your name is visible only to |
<font size="1">Note: in anonymous discussion, your name is visible only to |
Line 218 sub mail_screen {
|
Line 242 sub mail_screen {
|
'','onLoad="window.focus();"'); |
'','onLoad="window.focus();"'); |
my $title=&Apache::lonnet::gettitle($feedurl); |
my $title=&Apache::lonnet::gettitle($feedurl); |
if (!$title) { $title = $feedurl; } |
if (!$title) { $title = $feedurl; } |
|
my $quote=''; |
|
if ($ENV{'form.replydisc'}) { |
|
my ($symb,$idx)=split(/\:\:\:/,$ENV{'form.replydisc'}); |
|
my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'}, |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}); |
|
unless (($contrib{'hidden'}=~/\.$idx\./) || ($contrib{'deleted'}=~/\.$idx\./)) { |
|
my $message=$contrib{$idx.':message'}; |
|
$message=~s/\n/\<br \/\>/g; |
|
$quote='<blockquote>'.&Apache::lontexconvert::msgtexconverted($message).'</blockquote>'; |
|
} |
|
} |
my $latexHelp = Apache::loncommon::helpLatexCheatsheet(); |
my $latexHelp = Apache::loncommon::helpLatexCheatsheet(); |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
<html> |
<html> |
Line 276 enctype="multipart/form-data">
|
Line 312 enctype="multipart/form-data">
|
<input type="hidden" name="replydisc" value="$ENV{'form.replydisc'}" /> |
<input type="hidden" name="replydisc" value="$ENV{'form.replydisc'}" /> |
Please check at least one of the following feedback types: |
Please check at least one of the following feedback types: |
$options<hr /> |
$options<hr /> |
|
$quote |
<p>My question/comment/feedback:</p> |
<p>My question/comment/feedback:</p> |
<p> |
<p> |
$latexHelp |
$latexHelp |
Line 295 $r->print(&generate_preview_button().'</
|
Line 332 $r->print(&generate_preview_button().'</
|
|
|
sub fail_redirect { |
sub fail_redirect { |
my ($r,$feedurl) = @_; |
my ($r,$feedurl) = @_; |
|
if ($feedurl=~/^\/adm\//) { $feedurl.='?register=1' }; |
$r->print (<<ENDFAILREDIR); |
$r->print (<<ENDFAILREDIR); |
|
<html> |
<head><title>Feedback not sent</title> |
<head><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" /> |
</head> |
</head> |
<html> |
|
<body bgcolor="#FFFFFF"> |
<body bgcolor="#FFFFFF"> |
<img align="right" src="/adm/lonIcons/lonlogos.gif" /> |
<img align="right" src="/adm/lonIcons/lonlogos.gif" /> |
<b>Sorry, no recipients ...</b> |
<b>Sorry, no recipients ...</b> |
Line 311 ENDFAILREDIR
|
Line 349 ENDFAILREDIR
|
|
|
sub redirect_back { |
sub redirect_back { |
my ($r,$feedurl,$typestyle,$sendsomething,$sendposts,$status) = @_; |
my ($r,$feedurl,$typestyle,$sendsomething,$sendposts,$status) = @_; |
|
if ($feedurl=~/^\/adm\//) { $feedurl.='?register=1' }; |
$r->print (<<ENDREDIR); |
$r->print (<<ENDREDIR); |
|
<html> |
<head> |
<head> |
<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"> |
</head> |
</head> |
<html> |
|
<body bgcolor="#FFFFFF" onLoad='if (window.name!="loncapaclient") { this.document.reldt.submit(); self.close(); }'> |
<body bgcolor="#FFFFFF" onLoad='if (window.name!="loncapaclient") { this.document.reldt.submit(); self.close(); }'> |
<img align="right" src="/adm/lonIcons/lonlogos.gif" /> |
<img align="right" src="/adm/lonIcons/lonlogos.gif" /> |
$typestyle |
$typestyle |
Line 333 ENDREDIR
|
Line 372 ENDREDIR
|
sub no_redirect_back { |
sub no_redirect_back { |
my ($r,$feedurl) = @_; |
my ($r,$feedurl) = @_; |
$r->print (<<ENDNOREDIR); |
$r->print (<<ENDNOREDIR); |
|
<html> |
<head><title>Feedback not sent</title> |
<head><title>Feedback not sent</title> |
<meta http-equiv="pragma" content="no-cache" /> |
<meta http-equiv="pragma" content="no-cache" /> |
ENDNOREDIR |
ENDNOREDIR |
Line 343 ENDNOREDIR
|
Line 383 ENDNOREDIR
|
|
|
$r->print (<<ENDNOREDIRTWO); |
$r->print (<<ENDNOREDIRTWO); |
</head> |
</head> |
<html> |
|
<body bgcolor="#FFFFFF" onLoad='if (window.name!="loncapaclient") { self.close(); }'> |
<body bgcolor="#FFFFFF" onLoad='if (window.name!="loncapaclient") { self.close(); }'> |
<img align="right" src="/adm/lonIcons/lonlogos.gif" /> |
<img align="right" src="/adm/lonIcons/lonlogos.gif" /> |
<b>Sorry, no feedback possible on this resource ...</b> |
<b>Sorry, no feedback possible on this resource ...</b> |
Line 616 onClick="this.form.comment.value=documen
|
Line 655 onClick="this.form.comment.value=documen
|
</form> |
</form> |
ENDPREVIEW |
ENDPREVIEW |
} |
} |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
if ($r->header_only) { |
if ($r->header_only) { |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
return OK; |
return OK; |
} |
} |
Line 627 sub handler {
|
Line 667 sub handler {
|
# --------------------------- Get query string for limited number of parameters |
# --------------------------- Get query string for limited number of parameters |
|
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['hide','unhide','deldisc','postdata','preview','replydisc']); |
['hide','unhide','deldisc','postdata','preview','replydisc','threadedon','threadedoff']); |
|
|
if (($ENV{'form.hide'}) || ($ENV{'form.unhide'})) { |
if (($ENV{'form.hide'}) || ($ENV{'form.unhide'})) { |
# ----------------------------------------------------------------- Hide/unhide |
# ----------------------------------------------------------------- Hide/unhide |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
|
|
my $entry=$ENV{'form.hide'}?$ENV{'form.hide'}:$ENV{'form.unhide'}; |
my $entry=$ENV{'form.hide'}?$ENV{'form.hide'}:$ENV{'form.unhide'}; |
Line 659 sub handler {
|
Line 699 sub handler {
|
|
|
&redirect_back($r,&Apache::lonnet::clutter($url), |
&redirect_back($r,&Apache::lonnet::clutter($url), |
&mt('Changed discussion status').'<br />','0','0'); |
&mt('Changed discussion status').'<br />','0','0'); |
|
} elsif (($ENV{'form.threadedon'}) || ($ENV{'form.threadedoff'})) { |
|
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->send_http_header; |
|
if ($ENV{'form.threadedon'}) { |
|
&Apache::lonnet::put('environment',{'threadeddiscussion' => 'on'}); |
|
&Apache::lonnet::appenv('environment.threadeddiscussion' => 'on'); |
|
} else { |
|
&Apache::lonnet::del('environment',['threadeddiscussion']); |
|
&Apache::lonnet::delenv('environment\.threadeddiscussion'); |
|
} |
|
my $symb=$ENV{'form.threadedon'}?$ENV{'form.threadedon'}:$ENV{'form.threadedoff'}; |
|
my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb); |
|
&redirect_back($r,&Apache::lonnet::clutter($url), |
|
&mt('Changed discussion view mode').'<br />','0','0'); |
} elsif ($ENV{'form.deldisc'}) { |
} elsif ($ENV{'form.deldisc'}) { |
# --------------------------------------------------------------- Hide for good |
# --------------------------------------------------------------- Hide for good |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
|
|
my $entry=$ENV{'form.deldisc'}; |
my $entry=$ENV{'form.deldisc'}; |
Line 716 sub handler {
|
Line 770 sub handler {
|
if ($feedurl=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
if ($feedurl=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
unless ($symb) { $goahead=0; } |
unless ($symb) { $goahead=0; } |
} |
} |
|
# backward compatability (bulltein boards used to be 'wrapped') |
|
if ($feedurl=~m|^/adm/wrapper/adm/.*/bulletinboard$|) { |
|
$feedurl=~s|^/adm/wrapper||; |
|
} |
if ($goahead) { |
if ($goahead) { |
# Go ahead with feedback, no ambiguous reference |
# Go ahead with feedback, no ambiguous reference |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
|
|
if ( |
if ( |