version 1.325, 2012/01/06 19:18:11
|
version 1.370.2.6, 2022/01/19 01:35:58
|
Line 44 use HTML::LCParser();
|
Line 44 use HTML::LCParser();
|
#use HTML::Tidy::libXML; |
#use HTML::Tidy::libXML; |
use Apache::lonspeller(); |
use Apache::lonspeller(); |
use Apache::longroup; |
use Apache::longroup; |
use Cwd; |
use Archive::Zip qw( :ERROR_CODES ); |
use LONCAPA; |
use LONCAPA qw(:DEFAULT :match); |
|
|
sub discussion_open { |
sub discussion_open { |
my ($status,$symb)=@_; |
my ($status,$symb)=@_; |
Line 82 sub discussion_visible {
|
Line 82 sub discussion_visible {
|
return 1; |
return 1; |
} |
} |
|
|
|
sub discussion_vote_available { |
|
my ($status,$symb)=@_; |
|
my $canvote=&Apache::lonnet::EXT('resource.0.discussvote',$symb); |
|
if ((lc($canvote) eq 'yes') || |
|
((lc($canvote) eq 'notended') && (&discussion_open($status,$symb)))) { |
|
return 1; |
|
} |
|
} |
|
|
|
sub get_realsymb { |
|
my ($symb) = @_; |
|
my $realsymb = $symb; |
|
if ($symb=~/^bulletin___/) { |
|
my $filename=(&Apache::lonnet::decode_symb($symb))[2]; |
|
$filename=~s{^adm/wrapper/}{}; |
|
$realsymb=&Apache::lonnet::symbread($filename); |
|
} |
|
return $realsymb; |
|
} |
|
|
sub list_discussion { |
sub list_discussion { |
my ($mode,$status,$ressymb,$imsextras,$group)=@_; |
my ($mode,$status,$ressymb,$imsextras,$group)=@_; |
unless ($ressymb) { $ressymb=&Apache::lonnet::symbread(); } |
unless ($ressymb) { $ressymb=&Apache::lonnet::symbread(); } |
Line 257 sub list_discussion {
|
Line 277 sub list_discussion {
|
$visit ++; |
$visit ++; |
|
|
my $seeid; |
my $seeid; |
if (($group ne '') && ($mode eq 'board') && |
if (&Apache::lonnet::allowed('rin',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) { |
($ressymb =~ m|^bulletin___\d+___adm/wrapper/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard$|)) { |
$seeid = 1; |
if (&check_group_priv($group,'dgp') eq 'ok') { |
|
$seeid = 1; |
|
} |
|
} else { |
|
$seeid=&Apache::lonnet::allowed('rin',$crs); |
|
} |
} |
|
my $seehidden = &can_see_hidden($mode,$ressymb,undef,$group,$cdom,$cnum,$crs); |
|
|
|
# Is voting on discussions available |
|
my $realsymb = &get_realsymb($ressymb); |
|
my $canvote = &discussion_vote_available($status,$realsymb); |
|
|
my @discussionitems=(); |
my @discussionitems=(); |
my %shown = (); |
my %shown = (); |
my @posteridentity=(); |
my @posteridentity=(); |
Line 286 sub list_discussion {
|
Line 307 sub list_discussion {
|
$discinfo{$visitkey} = $visit; |
$discinfo{$visitkey} = $visit; |
|
|
&Apache::lonnet::put('nohist_'.$cid.'_discuss',\%discinfo,$env{'user.domain'},$env{'user.name'}); |
&Apache::lonnet::put('nohist_'.$cid.'_discuss',\%discinfo,$env{'user.domain'},$env{'user.name'}); |
&build_posting_display(\%usernamesort,\%subjectsort,\%namesort,\%notshown,\%newitem,\%dischash,\%shown,\%alldiscussion,\%imsitems,\%imsfiles,\%roleinfo,\@discussionitems,\@replies,\@depth,\@posters,\$maxdepth,\$visible,\$newpostsflag,\$current,$status,$viewgrades,$seeid,$prevread,$sortposts,$encsymb,$readkey,$showunmark,$showonlyunread,$totposters,\@rolefilter,\@sectionpick,\@grouppick,$classgroups,$statusfilter,$toggkey,$outputtarget,\%anonhash,$anoncnt,$group); |
&build_posting_display(\%usernamesort,\%subjectsort,\%namesort,\%notshown,\%newitem,\%dischash,\%shown,\%alldiscussion,\%imsitems,\%imsfiles,\%roleinfo,\@discussionitems,\@replies,\@depth,\@posters,\$maxdepth,\$visible,\$newpostsflag,\$current,$status,$viewgrades,$seeid,$seehidden,$canvote,$prevread,$sortposts,$encsymb,$readkey,$showunmark,$showonlyunread,$totposters,\@rolefilter,\@sectionpick,\@grouppick,$classgroups,$statusfilter,$toggkey,$outputtarget,\%anonhash,$anoncnt,$group); |
|
|
my $discussion=''; |
my $discussion=''; |
my $manifestfile; |
my $manifestfile; |
Line 315 sub list_discussion {
|
Line 336 sub list_discussion {
|
'aner' => 'An error occurred opening the manifest file.', |
'aner' => 'An error occurred opening the manifest file.', |
'difo' => 'Discussion for', |
'difo' => 'Discussion for', |
'aerr' => 'An error occurred opening the export file for posting', |
'aerr' => 'An error occurred opening the export file for posting', |
|
'discussions' => 'DISCUSSIONS' |
|
); |
|
my %js_lt = &Apache::lonlocal::texthash( |
'aysu' => 'Are you sure you want to delete this post?', |
'aysu' => 'Are you sure you want to delete this post?', |
'dpwn' => 'Deleted posts will no longer be visible to you and other students', |
'dpwn' => 'Deleted posts will no longer be visible to you and other students', |
'bwco' => 'but will continue to be visible to your instructor', |
'bwco' => 'but will continue to be visible to your instructor', |
'depo' => 'Deleted posts will no longer be visible to you or anyone else.', |
'depo' => 'Deleted posts will no longer be visible to you or anyone else.', |
'discussions' => 'DISCUSSIONS' |
|
); |
); |
|
&js_escape(\%js_lt); |
|
|
my $currdisp = $lt{'allposts'}; |
my $currdisp = $lt{'allposts'}; |
my $currmark = $lt{'onmark'}; |
my $currmark = $lt{'onmark'}; |
Line 426 imscp_v1p1.xsd http://www.imsglobal.org/
|
Line 450 imscp_v1p1.xsd http://www.imsglobal.org/
|
prevparm = "&previous="+previous |
prevparm = "&previous="+previous |
} |
} |
if (caller == 'studentdelete') { |
if (caller == 'studentdelete') { |
if (confirm("$lt{'aysu'}\\n$lt{'dpwn'},\\n$lt{'bwco'}")) { |
if (confirm("$js_lt{'aysu'}\\n$js_lt{'dpwn'},\\n$js_lt{'bwco'}")) { |
document.location.href = "/adm/feedback?hide="+symbparm+prevparm+groupparm |
document.location.href = "/adm/feedback?hide="+symbparm+prevparm+groupparm |
} |
} |
} else { |
} else { |
if (caller == 'seeiddelete') { |
if (caller == 'seeiddelete') { |
if (confirm("$lt{'aysu'}\\n$lt{'depo'}")) { |
if (confirm("$js_lt{'aysu'}\\n$js_lt{'depo'}")) { |
document.location.href = "/adm/feedback?deldisc="+symbparm+prevparm+groupparm |
document.location.href = "/adm/feedback?deldisc="+symbparm+prevparm+groupparm |
} |
} |
} |
} |
Line 442 imscp_v1p1.xsd http://www.imsglobal.org/
|
Line 466 imscp_v1p1.xsd http://www.imsglobal.org/
|
"\n".'<table width="100%" class="LC_discussion">'; |
"\n".'<table width="100%" class="LC_discussion">'; |
$discussion .= &action_links_bar($colspan,$ressymb,$visible, |
$discussion .= &action_links_bar($colspan,$ressymb,$visible, |
$newpostsflag,$group, |
$newpostsflag,$group, |
$prevread,$markondisp); |
$prevread,$markondisp,$seehidden); |
my $escsymb=&escape($ressymb); |
my $escsymb=&escape($ressymb); |
my $numhidden = keys(%notshown); |
my $numhidden = keys(%notshown); |
if ($numhidden > 0) { |
if ($numhidden > 0) { |
my $colspan = $maxdepth+1; |
my $colspan = $maxdepth+1; |
$discussion.="\n".'<tr><td bgcolor="#CCCCCC" colspan="'.$colspan.'">'. |
$discussion.="\n".'<tr><td bgcolor="#CCCCCC" colspan="'.$colspan.'">'; |
'<a href="/adm/feedback?allposts=1&symb='.$escsymb; |
my $href = '/adm/feedback?allposts=1&symb='.$escsymb; |
if ($newpostsflag) { |
if ($newpostsflag) { |
$discussion .= '&previous='.$prevread; |
$href .= '&previous='.$prevread; |
} |
} |
$discussion .= &group_args($group); |
$href .= &group_args($group); |
$discussion .= '">'.&mt('Show all posts').'</a> '.&mt('to display').' '. |
|
$numhidden.' '; |
|
if ($showunmark) { |
if ($showunmark) { |
$discussion .= &mt('posts previously marked read'); |
$discussion .= &mt('[_1]Show all posts[_2] to display [quant,_3,post] previously marked read', |
|
'<a href="'.$href.'">','</a>',$numhidden); |
} else { |
} else { |
$discussion .= &mt('previously viewed posts'); |
$discussion .= &mt('[_1]Show all posts[_2] to display [quant,_3,post] previously viewed', |
|
'<a href="'.$href.'">','</a>',$numhidden); |
} |
} |
$discussion .= '<br/></td></tr>'; |
$discussion .= '<br/></td></tr>'; |
} |
} |
Line 492 imscp_v1p1.xsd http://www.imsglobal.org/
|
Line 516 imscp_v1p1.xsd http://www.imsglobal.org/
|
my $currdepth = 0; |
my $currdepth = 0; |
my $firstidx = $alldiscussion{$showposts[0]}; |
my $firstidx = $alldiscussion{$showposts[0]}; |
foreach my $post (@showposts) { |
foreach my $post (@showposts) { |
unless (($sortposts eq 'thread') || (($sortposts eq '') && ($env{'environment.threadeddiscussion'})) || ($outputtarget eq 'export')) { |
unless (($sortposts eq 'thread') || |
|
(($sortposts eq '') && (!$env{'environment.unthreadeddiscussion'})) || |
|
($outputtarget eq 'export')) { |
$alldiscussion{$post} = $post; |
$alldiscussion{$post} = $post; |
} |
} |
unless ( ($notshown{$alldiscussion{$post}} eq '1') || ($shown{$alldiscussion{$post}} == 0) ) { |
unless ( ($notshown{$alldiscussion{$post}} eq '1') || ($shown{$alldiscussion{$post}} == 0) ) { |
Line 539 imscp_v1p1.xsd http://www.imsglobal.org/
|
Line 565 imscp_v1p1.xsd http://www.imsglobal.org/
|
my $postingfile; |
my $postingfile; |
my $postingfilename = $tempexport.'/'.$postfilename; |
my $postingfilename = $tempexport.'/'.$postfilename; |
if ($postingfile = Apache::File->new('>'.$postingfilename)) { |
if ($postingfile = Apache::File->new('>'.$postingfilename)) { |
print $postingfile '<html><head><title>Discussion Post</title></head><body>'. |
print $postingfile '<html><head><title>'.&mt('Discussion Post').'</title></head><body>'. |
$imsitems{$alldiscussion{$post}}{'title'}.' '. |
$imsitems{$alldiscussion{$post}}{'title'}.' '. |
$imsitems{$alldiscussion{$post}}{'sender'}. |
$imsitems{$alldiscussion{$post}}{'sender'}. |
$imsitems{$alldiscussion{$post}}{'timestamp'}.'<br /><br />'. |
$imsitems{$alldiscussion{$post}}{'timestamp'}.'<br /><br />'. |
Line 646 END
|
Line 672 END
|
END |
END |
$discussion .= &action_links_bar($colspan,$ressymb,$visible, |
$discussion .= &action_links_bar($colspan,$ressymb,$visible, |
$newpostsflag,$group, |
$newpostsflag,$group, |
$prevread,$markondisp); |
$prevread,$markondisp,$seehidden); |
$discussion .= "</table></form>\n"; |
$discussion .= "</table></form>\n"; |
} |
} |
if ($outputtarget eq 'export') { |
if ($outputtarget eq 'export') { |
Line 670 END
|
Line 696 END
|
|
|
#Create zip file in prtspool |
#Create zip file in prtspool |
|
|
my $imszipfile = '/prtspool/'. |
if (($env{'user.name'} =~ /^$match_username$/) |
$env{'user.name'}.'_'.$env{'user.domain'}.'_'. |
&& ($env{'user.domain'} =~ /^$match_domain$/)) { |
time.'_'.rand(1000000000).'.zip'; |
my $now = time(); |
my $cwd = &getcwd(); |
my $imszipfile = '/prtspool/'. |
my $imszip = '/home/httpd/'.$imszipfile; |
join('_',$env{'user.name'},$env{'user.domain'},$now). |
chdir $tempexport; |
'_'.rand(1000000000).'.zip'; |
open(OUTPUT, "zip -r $imszip * 2> /dev/null |"); |
my $zip = Archive::Zip->new(); |
close(OUTPUT); |
$zip->addTree($tempexport); |
chdir $cwd; |
my $imszip = '/home/httpd/'.$imszipfile; |
$discussion .= &mt('Download the zip file from [_1]Discussion Posting Archive','<a href="'.$imszipfile.'">').'</a><br />'; |
if ($zip->writeToFileNamed($imszip) == AZ_OK) { |
if ($copyresult) { |
$discussion .= &mt('Download the zip file from [_1]Discussion Posting Archive[_2]', |
$discussion .= &mt('The following errors occurred during export').' - <br />'.$copyresult; |
'<a href="'.$imszipfile.'">','</a>').'<br />'; |
|
} else { |
|
$discussion .= &mt('Failed to create zip file').'<br />'; |
|
} |
|
if ($copyresult) { |
|
$discussion .= '<span class="LC_error">'. |
|
&mt('The following errors occurred during export:'). |
|
'</span><br />'.$copyresult; |
|
} |
|
} else { |
|
$discussion .= '<p class="LC_error">'. |
|
&mt('Unfortunately you will not be able to retrieve an archive of the discussion posts at this time, because there was a problem creating the zip file.').'</p>'; |
} |
} |
} |
} |
} else { |
} else { |
$discussion .= '<br />'.&mt('Unfortunately you will not be able to retrieve an archive of the discussion posts at this time, because there was a problem creating a manifest file.').'<br />'; |
$discussion .= '<p class="LC_error">'. |
|
&mt('Unfortunately you will not be able to retrieve an archive of the discussion posts at this time, because there was a problem creating a manifest file.').'</p>'; |
} |
} |
return $discussion; |
return $discussion; |
} |
} |
Line 744 END
|
Line 782 END
|
$discussion.= &send_feedback_link($ressymb); |
$discussion.= &send_feedback_link($ressymb); |
if ($env{'request.role.adv'}) { |
if ($env{'request.role.adv'}) { |
my $close = &Apache::lonnet::EXT('resource.0.discussend',$ressymb); |
my $close = &Apache::lonnet::EXT('resource.0.discussend',$ressymb); |
|
my $canvote = &Apache::lonnet::EXT('resource.0.discussvote',$ressymb); |
if (defined($close) && $close ne '' && $close < time) { |
if (defined($close) && $close ne '' && $close < time) { |
$discussion .= ' '.&mt('(Closed for [_1] roles)', |
if ($canvote eq 'notended') { |
&Apache::lonnet::plaintext('st',$crstype)); |
$discussion .= ' '.&mt('(Posting and voting closed for [_1] roles)', |
|
&Apache::lonnet::plaintext('st',$crstype)); |
|
} else { |
|
$discussion .= ' '.&mt('(Closed for [_1] roles)', |
|
&Apache::lonnet::plaintext('st',$crstype)); |
|
} |
} |
} |
} |
} |
} else { |
} else { |
Line 757 END
|
Line 801 END
|
return $discussion; |
return $discussion; |
} |
} |
|
|
|
sub can_see_hidden { |
|
my ($mode,$ressymb,$feedurl,$group,$cdom,$cnum,$crs) = @_; |
|
my $seehidden; |
|
if ($env{'request.course.id'}) { |
|
unless ($cdom ne '' && $cnum ne '') { |
|
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
$cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
} |
|
if ($crs eq '') { |
|
$crs = '/'.$env{'request.course.id'}; |
|
if ($env{'request.course.sec'}) { |
|
$crs.='_'.$env{'request.course.sec'}; |
|
} |
|
$crs=~s{_}{/}g; |
|
} |
|
if ($mode eq '') { |
|
$mode='board'; |
|
if ($feedurl =~ /$LONCAPA::assess_re/) { |
|
$mode='problem'; |
|
} |
|
} |
|
if (($group ne '') && ($mode eq 'board') && |
|
($ressymb =~ m{^bulletin___\d+\Q___adm/wrapper/adm/$cdom/$cnum/\E\d+/bulletinboard$})) { |
|
if (&check_group_priv($group,'dgp') eq 'ok') { |
|
$seehidden = 1; |
|
} |
|
} else { |
|
$seehidden=&Apache::lonnet::allowed('rin',$crs); |
|
} |
|
} |
|
return $seehidden; |
|
} |
|
|
sub discussion_link { |
sub discussion_link { |
my ($ressymb,$linktext,$cmd,$item,$flag,$prev,$adds)=@_; |
my ($ressymb,$linktext,$cmd,$item,$flag,$prev,$adds,$title)=@_; |
my $link='/adm/feedback?inhibitmenu=yes&modal=yes&'.$cmd.'='.&escape($ressymb).':::'.$item; |
my $link='/adm/feedback?inhibitmenu=yes&modal=yes&'.$cmd.'='.&escape($ressymb).':::'.$item; |
if ($flag) { $link .= '&previous='.$prev; } |
if ($flag) { $link .= '&previous='.$prev; } |
if ($adds) { $link .= $adds; } |
if ($adds) { $link .= $adds; } |
my $width=600; |
my $width=600; |
Line 769 sub discussion_link {
|
Line 845 sub discussion_link {
|
$width=300; |
$width=300; |
$height=200; |
$height=200; |
} |
} |
return &Apache::loncommon::modal_link($link,$linktext,$width,$height); |
return &Apache::loncommon::modal_link($link,$linktext,$width,$height,undef,undef,$title); |
} |
} |
|
|
|
|
Line 779 sub send_feedback_link {
|
Line 855 sub send_feedback_link {
|
&discussion_link($ressymb, |
&discussion_link($ressymb, |
'<img alt="" class="LC_noBorder" src="'. |
'<img alt="" class="LC_noBorder" src="'. |
&Apache::loncommon::lonhttpdurl('/adm/lonMisc/chat.gif'). |
&Apache::loncommon::lonhttpdurl('/adm/lonMisc/chat.gif'). |
'" border="0" /><span class="LC_menubuttons_inline_text">'.&mt('Post Discussion').'</span>', |
'" /><span class="LC_menubuttons_inline_text">'.&mt('Post Discussion').'</span>', |
'replydisc'). |
'replydisc'). |
'</span>'; |
'</span>'; |
} |
} |
Line 787 sub send_feedback_link {
|
Line 863 sub send_feedback_link {
|
sub send_message_link { |
sub send_message_link { |
my ($ressymb) = @_; |
my ($ressymb) = @_; |
my $output = '<span class="LC_message_link">'. |
my $output = '<span class="LC_message_link">'. |
' <a href="/adm/feedback?sendmessageonly=1&symb='. |
&discussion_link($ressymb, |
&escape($ressymb).'"><img alt="" class="LC_noBorder" src="'. |
'<img alt="" class="LC_noBorder" src="'. |
&Apache::loncommon::lonhttpdurl('/res/adm/pages/feedback.png'). |
&Apache::loncommon::lonhttpdurl('/res/adm/pages/feedback.png'). |
'" border="0" /><span class="LC_menubuttons_inline_text">'.&mt('Send Feedback').'</span></a></span>'; |
'" /><span class="LC_menubuttons_inline_text">'.&mt('Send Feedback').'</span>', |
|
'sendmessageonly'). |
|
'</span>'; |
return $output; |
return $output; |
} |
} |
|
|
sub action_links_bar { |
sub action_links_bar { |
my ($colspan,$ressymb,$visible,$newpostsflag,$group,$prevread,$markondisp) = @_; |
my ($colspan,$ressymb,$visible,$newpostsflag,$group,$prevread,$markondisp, |
|
$seehidden) = @_; |
my $discussion = '<tr><td colspan="'.$colspan.'">'. |
my $discussion = '<tr><td colspan="'.$colspan.'">'. |
'<table width="100%"><tr>'. |
'<table width="100%"><tr>'. |
'<td class="LC_disc_action_left">'; |
'<td class="LC_disc_action_left">'; |
Line 827 sub action_links_bar {
|
Line 906 sub action_links_bar {
|
$discussion .= '&previous='.$prevread; |
$discussion .= '&previous='.$prevread; |
} |
} |
$discussion .= &group_args($group); |
$discussion .= &group_args($group); |
$discussion .= '">'.&mt('Export').'</a></td>'; |
$discussion .= '">'.&mt('Export').'</a>'; |
|
if ($seehidden) { |
|
$discussion .= ' '; |
|
$discussion .='<a href="/adm/feedback?undeleteall='.$escsymb; |
|
if ($newpostsflag) { |
|
$discussion .= '&previous='.$prevread; |
|
} |
|
$discussion .= &group_args($group); |
|
$discussion .= '">'.&mt('Undelete all deleted entries').'</a>'; |
|
} |
|
$discussion.='</td>'; |
if ($newpostsflag) { |
if ($newpostsflag) { |
if (!$markondisp) { |
if (!$markondisp) { |
$discussion .='<td class="LC_disc_action_right"><a href="/adm/preferences?action=changediscussions'; |
$discussion .='<td class="LC_disc_action_right"><a href="/adm/preferences?action=changediscussions'; |
Line 852 sub postingform_display {
|
Line 941 sub postingform_display {
|
$currnewattach,$currdelold,$group,$crstype) = @_; |
$currnewattach,$currdelold,$group,$crstype) = @_; |
my $newattachmsg; |
my $newattachmsg; |
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
'note' => 'Note: in anonymous discussion, your name is visible only to course faculty', |
'note' => 'Note: in anonymous discussion, your name is visible only to course faculty', |
'title' => 'Title', |
'title' => 'Title', |
'podi' => 'Post Discussion', |
'podi' => 'Post Discussion', |
'poan' => 'Post Anonymous Discussion', |
'poan' => 'Post Anonymous Discussion', |
Line 876 sub postingform_display {
|
Line 965 sub postingform_display {
|
<input type="submit" name="anondiscuss" value="$lt{'poan'}" /> <input type="hidden" name="symb" value="$ressymb" /> |
<input type="submit" name="anondiscuss" value="$lt{'poan'}" /> <input type="hidden" name="symb" value="$ressymb" /> |
<input type="hidden" name="sendit" value="true" /> |
<input type="hidden" name="sendit" value="true" /> |
<input type="hidden" name="timestamp" value="$now" /> |
<input type="hidden" name="timestamp" value="$now" /> |
<br /><a name="newpost"></a> |
<a name="newpost"></a> |
<font size="1">$lt{'note'}</font><br /> |
<font size="1">$lt{'note'}</font><br /> |
<b>$lt{'title'}:</b> <input type="text" name="subject" value="$subject" size="30" /><br /><br /> |
<b>$lt{'title'}:</b> <input type="text" name="subject" value="$subject" size="30" /><br /> |
<textarea name="comment" cols="80" rows="14" id="comment" $textareaclass>$comment</textarea> |
<textarea name="comment" cols="80" rows="14" id="comment" $textareaclass>$comment</textarea> |
ENDDISCUSS |
ENDDISCUSS |
if ($env{'form.origpage'}) { |
if ($env{'form.origpage'}) { |
Line 925 ENDDISCUSS
|
Line 1014 ENDDISCUSS
|
} |
} |
|
|
sub build_posting_display { |
sub build_posting_display { |
my ($usernamesort,$subjectsort,$namesort,$notshown,$newitem,$dischash,$shown,$alldiscussion,$imsitems,$imsfiles,$roleinfo,$discussionitems,$replies,$depth,$posters,$maxdepth,$visible,$newpostsflag,$current,$status,$viewgrades,$seeid,$prevread,$sortposts,$ressymb,$readkey,$showunmark,$showonlyunread,$totposters,$rolefilter,$sectionpick,$grouppick,$classgroups,$statusfilter,$toggkey,$outputtarget,$anonhash,$anoncnt,$group) = @_; |
my ($usernamesort,$subjectsort,$namesort,$notshown,$newitem,$dischash,$shown,$alldiscussion,$imsitems,$imsfiles,$roleinfo,$discussionitems,$replies,$depth,$posters,$maxdepth,$visible,$newpostsflag,$current,$status,$viewgrades,$seeid,$seehidden,$canvote,$prevread,$sortposts,$ressymb,$readkey,$showunmark,$showonlyunread,$totposters,$rolefilter,$sectionpick,$grouppick,$classgroups,$statusfilter,$toggkey,$outputtarget,$anonhash,$anoncnt,$group) = @_; |
my @original=(); |
my @original=(); |
my @index=(); |
my @index=(); |
my $skip_group_check = 0; |
my $skip_group_check = 0; |
Line 935 sub build_posting_display {
|
Line 1024 sub build_posting_display {
|
my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'}, |
my %contrib=&Apache::lonnet::restore($symb,$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 (%likes,%userlikes,%userunlikes,@theselikes,$oneplus,$twoplus,$oneminus,$twominus); |
|
my $thisuser=$env{'user.name'}.':'.$env{'user.domain'}; |
|
if ($seeid || $canvote) { |
# And these are the likes/unlikes |
# And these are the likes/unlikes |
my %likes=&Apache::lonnet::dump('disclikes', |
%likes=&Apache::lonnet::dump('disclikes', |
$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'}, |
'^'.$symb.':'); |
'^'.$symb.':'); |
my $thisuser=$env{'user.name'}.':'.$env{'user.domain'}; |
|
# Array with likes to figure out averages, etc. |
# Array with likes to figure out averages, etc. |
my @theselikes=(); |
@theselikes=(); |
|
# Hashes containing likes and unlikes for this user. |
|
%userlikes=(); |
|
%userunlikes=(); |
|
} |
# Is the user allowed to see the real name behind anonymous postings? |
# Is the user allowed to see the real name behind anonymous postings? |
my $see_anonymous = |
my $see_anonymous = |
&Apache::lonnet::allowed('rin',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')); |
&Apache::lonnet::allowed('rin',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')); |
Line 976 sub build_posting_display {
|
Line 1071 sub build_posting_display {
|
&filter_regexp($rolefilter,$sectionpick,$statusfilter); |
&filter_regexp($rolefilter,$sectionpick,$statusfilter); |
$rolematch = $roleregexp.':'.$secregexp.':'.$statusregexp; |
$rolematch = $roleregexp.':'.$secregexp.':'.$statusregexp; |
} |
} |
|
my %votestyle; |
|
if ($seeid || $canvote) { |
# We need to go through this twice, first to get the likes/dislikes, then to actually build the display |
# We need to go through this twice, first to get the likes/dislikes, then to actually build the display |
for (my $id=1;$id<=$contrib{'version'};$id++) { |
for (my $id=1;$id<=$contrib{'version'};$id++) { |
my $idx=$id; |
my $idx=$id; |
next if ($contrib{$idx.':deleted'}); |
next if ($contrib{$idx.':deleted'}); |
next if ($contrib{$idx.':hidden'}); |
next if ($contrib{$idx.':hidden'}); |
unless ((($hiddens{$idx}) && (!$seeid)) || ($deletions{$idx}) || (!$contrib{$idx.':message'})) { |
unless ((($hiddens{$idx}) && (!$seehidden)) || ($deletions{$idx}) || (!$contrib{$idx.':message'})) { |
push(@theselikes,$likes{$symb.':'.$idx.':likes'}); |
push(@theselikes,$likes{$symb.':'.$idx.':likes'}); |
|
if ($likes{$symb.':'.$idx.':likes'} ne '') { |
|
if (ref($likes{$symb.':'.$idx.':likers'}) eq 'HASH') { |
|
if (exists($likes{$symb.':'.$idx.':likers'}{$thisuser})) { |
|
$userlikes{$idx} = 1; |
|
} |
|
} |
|
if (ref($likes{$symb.':'.$idx.':unlikers'}) eq 'HASH') { |
|
if (exists($likes{$symb.':'.$idx.':unlikers'}{$thisuser})) { |
|
$userunlikes{$idx} = 1; |
|
} |
|
} |
|
} |
|
} |
} |
} |
} |
# Figure out average likes and standard deviation if there are enough |
# Figure out average likes and standard deviation if there are enough discussions to warrant that |
# discussions to warrant that |
my $ave=0; |
my $ave=0; |
my $stddev=10000; |
my $stddev=10000; |
if ($#theselikes>1) { |
if ($#theselikes>1) { |
my $sum=0; |
my $sum=0; |
my $num=$#theselikes+1; |
my $num=$#theselikes+1; |
foreach my $thislike (@theselikes) { |
foreach my $thislike (@theselikes) { |
$sum+=$thislike; |
$sum+=$thislike; |
} |
} |
$ave=$sum/$num; |
$ave=$sum/$num; |
my $sumsq=0; |
my $sumsq=0; |
foreach my $thislike (@theselikes) { |
foreach my $thislike (@theselikes) { |
$sumsq+=($thislike-$ave)*($thislike-$ave); |
$sumsq+=($thislike-$ave)*($thislike-$ave); |
|
} |
|
$stddev=sqrt($sumsq/$num); |
} |
} |
$stddev=sqrt($sumsq/$num); |
|
} |
|
# Now we know the average likes $ave and the standard deviation $stddev |
# Now we know the average likes $ave and the standard deviation $stddev |
# &Apache::lonnet::logthis(join(',',@theselikes)." Ave $ave StdDev $stddev"); |
# Get the boundaries for markup |
|
$oneplus=$ave+$stddev; |
|
$twoplus=$ave+2.*$stddev; |
|
$oneminus=$ave-$stddev; |
|
$twominus=$ave-2.*$stddev; |
|
if ($#theselikes>1) { |
|
foreach my $class ('twoplus','oneplus','zero','oneminus','twominus') { |
|
my $fontstyle = $env{'course.'.$env{'request.course.id'}.'.discussion_post_fonts_'.$class}; |
|
if ($fontstyle ne '') { |
|
my ($size,$weight,$style,$other) = split(/,/,$fontstyle); |
|
if ($size ne '') { |
|
$votestyle{$class} .= 'font-size: '.$size.';'; |
|
} |
|
if ($weight ne '') { |
|
$votestyle{$class} .= 'font-weight: '.$weight.';'; |
|
} |
|
if ($style ne '') { |
|
$votestyle{$class} .= 'font-style: '.$style.';'; |
|
} |
|
if ($other ne '') { |
|
$votestyle{$class} .= $other; |
|
} |
|
if ($votestyle{$class} ne '') { |
|
$votestyle{$class} = 'style="'.$votestyle{$class}.'"'; |
|
} |
|
} |
|
} |
|
} |
|
} |
# |
# |
# This is now the real loop. Go through all entries, pick up what we need |
# This is now the real loop. Go through all entries, pick up what we need |
# |
# |
for (my $id=1;$id<=$contrib{'version'};$id++) { |
for (my $id=1;$id<=$contrib{'version'};$id++) { |
my $idx=$id; |
my $idx=$id; |
next if ($contrib{$idx.':deleted'}); |
next if ($contrib{$idx.':deleted'}); |
Line 1020 sub build_posting_display {
|
Line 1158 sub build_posting_display {
|
my $origindex='0.'; |
my $origindex='0.'; |
my $numoldver=0; |
my $numoldver=0; |
if ($contrib{$idx.':replyto'}) { |
if ($contrib{$idx.':replyto'}) { |
if ( (($env{'environment.threadeddiscussion'}) && ($sortposts eq '')) || ($sortposts eq 'thread') || ($outputtarget eq 'export')) { |
if ( ((!$env{'environment.unthreadeddiscussion'}) && ($sortposts eq '')) || |
|
($sortposts eq 'thread') || ($outputtarget eq 'export')) { |
# 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 1040 sub build_posting_display {
|
Line 1179 sub build_posting_display {
|
} else { |
} else { |
$$replies[$$depth[$idx]]=1; |
$$replies[$$depth[$idx]]=1; |
} |
} |
unless ((($hiddens{$idx}) && (!$seeid)) || ($deletions{$idx})) { |
unless ((($hiddens{$idx}) && (!$seehidden)) || ($deletions{$idx})) { |
$$visible++; |
$$visible++; |
if ($contrib{$idx.':history'}) { |
if ($contrib{$idx.':history'}) { |
if ($contrib{$idx.':history'} =~ /:/) { |
if ($contrib{$idx.':history'} =~ /:/) { |
Line 1055 sub build_posting_display {
|
Line 1194 sub build_posting_display {
|
my %subjects = (); |
my %subjects = (); |
my %attachtxt = (); |
my %attachtxt = (); |
my %allattachments = (); |
my %allattachments = (); |
my ($screenname,$plainname); |
my ($screenname,$plainname,$showaboutme); |
my $sender = &mt('Anonymous'); |
my $sender = &mt('Anonymous'); |
# Anonymous users getting number within a discussion |
# Anonymous users getting number within a discussion |
# Since idx is in static order, this should give the same sequence every time. |
# Since idx is in static order, this should give the same sequence every time. |
Line 1065 sub build_posting_display {
|
Line 1204 sub build_posting_display {
|
$$anonhash{$key}=&mt('Anonymous').' '.$anoncnt; |
$$anonhash{$key}=&mt('Anonymous').' '.$anoncnt; |
} |
} |
my ($message,$subject,$vgrlink,$ctlink); |
my ($message,$subject,$vgrlink,$ctlink); |
&get_post_contents(\%contrib,$idx,$seeid,$outputtarget,\%messages,\%subjects,\%allattachments,\%attachtxt,$imsfiles,\$screenname,\$plainname,$numoldver); |
&get_post_contents(\%contrib,$idx,$seeid,$seehidden,$outputtarget,\%messages,\%subjects,\%allattachments,\%attachtxt,$imsfiles,\$screenname,\$plainname,\$showaboutme,$numoldver); |
|
|
|
|
# Set up for sorting by subject |
# Set up for sorting by subject |
Line 1095 sub build_posting_display {
|
Line 1234 sub build_posting_display {
|
} |
} |
} |
} |
if (!$contrib{$idx.':anonymous'} || $see_anonymous) { |
if (!$contrib{$idx.':anonymous'} || $see_anonymous) { |
$sender=&Apache::loncommon::aboutmewrapper( |
if ($showaboutme) { |
$plainname, |
$sender = &Apache::loncommon::aboutmewrapper( |
$contrib{$idx.':sendername'}, |
$plainname, |
$contrib{$idx.':senderdomain'}).' ('. |
$contrib{$idx.':sendername'}, |
$contrib{$idx.':sendername'}.':'. |
$contrib{$idx.':senderdomain'}); |
$contrib{$idx.':senderdomain'}.')'; |
} else { |
|
$sender = $plainname; |
|
} |
|
if ($see_anonymous) { |
|
$sender .= ' ('.$contrib{$idx.':sendername'}.':'. |
|
$contrib{$idx.':senderdomain'}.')'; |
|
} |
$sender = '<b>'.$sender.'</b>'; |
$sender = '<b>'.$sender.'</b>'; |
if ($contrib{$idx.':anonymous'}) { |
if ($contrib{$idx.':anonymous'}) { |
$sender.=' <font color="red"><b>['.$$anonhash{$key}.']</b></font> '. |
$sender.=' <font color="red"><b>['.$$anonhash{$key}.']</b></font> '. |
Line 1139 sub build_posting_display {
|
Line 1284 sub build_posting_display {
|
@{$$namesort{$lastname}{$firstname}} = ("$idx"); |
@{$$namesort{$lastname}{$firstname}} = ("$idx"); |
} |
} |
if ($outputtarget ne 'tex') { |
if ($outputtarget ne 'tex') { |
unless ($likes{$symb.':'.$idx.':likers'}=~/\,\Q$thisuser\E\,/) { |
# Add karma stars |
$sender.=' '.&discussion_link($symb,&mt('Like'),'like',$idx,$$newpostsflag,$prevread,&group_args($group)); |
my $karma=&userkarma($contrib{$idx.':sendername'},$contrib{$idx.':senderdomain'}); |
} |
for (my $i=1;$i<=$karma;$i++) { |
unless ($likes{$symb.':'.$idx.':unlikers'}=~/\,\Q$thisuser\E\,/) { |
$sender.='<img border="0" src="/res/adm/pages/star.gif" alt="'.&mt('Contributor Kudos').'" />'; |
$sender.=' '.&discussion_link($symb,&mt('Unlike'),'unlike',$idx,$$newpostsflag,$prevread,&group_args($group)); |
|
} |
|
my $thislikes=$likes{$symb.':'.$idx.':likes'}; |
|
if ($thislikes>0) { |
|
$sender.=' ('.&mt("[_1] likes",$thislikes).')'; |
|
} elsif ($thislikes<0) { |
|
$sender.=' ('.&mt("[_1] unlikes",abs($thislikes)).')'; |
|
} |
} |
|
# Can people edit this? |
if (&editing_allowed($escsymb.':::'.$idx,$group)) { |
if (&editing_allowed($escsymb.':::'.$idx,$group)) { |
if (($env{'user.domain'} eq $contrib{$idx.':senderdomain'}) && ($env{'user.name'} eq $contrib{$idx.':sendername'})) { |
if (($env{'user.domain'} eq $contrib{$idx.':senderdomain'}) && ($env{'user.name'} eq $contrib{$idx.':sendername'})) { |
$sender.=' '. |
$sender.=' '. |
&discussion_link($symb,&mt('Edit'),'editdisc',$idx,$$newpostsflag,$prevread,&group_args($group)); |
&discussion_link($ressymb,&mt('Edit'),'editdisc',$idx,$$newpostsflag,$prevread,&group_args($group)); |
unless ($seeid) { |
unless ($seehidden) { |
my $grpargs = &group_args($group); |
my $grpargs = &group_args($group); |
$sender.=" <a href=\"javascript:verifydelete('studentdelete','$escsymb','$idx','$$newpostsflag','$prevread','$grpargs')"; |
$sender.=" <a href=\"javascript:verifydelete('studentdelete','$escsymb','$idx','$$newpostsflag','$prevread','$grpargs')"; |
$sender .= '">'.&mt('Delete').'</a>'; |
$sender .= '">'.&mt('Delete').'</a>'; |
} |
} |
} |
} |
} |
} |
if ($seeid) { |
if ($seehidden) { |
if ($hiddens{$idx}) { |
if ($hiddens{$idx}) { |
unless ($studenthidden) { |
unless ($studenthidden) { |
$sender.=' '. |
$sender.=' '. |
&discussion_link($symb,&mt('Make Visible'),'unhide',$idx,$$newpostsflag,$prevread,&group_args($group)); |
&discussion_link($ressymb,&mt('Make Visible'),'unhide',$idx,$$newpostsflag,$prevread,&group_args($group)); |
} |
} |
} else { |
} else { |
$sender.=' '. |
$sender.=' '. |
&discussion_link($symb,&mt('Hide'),'hide',$idx,$$newpostsflag,$prevread,&group_args($group)); |
&discussion_link($ressymb,&mt('Hide'),'hide',$idx,$$newpostsflag,$prevread,&group_args($group)); |
} |
} |
my $grpargs = &group_args($group); |
my $grpargs = &group_args($group); |
$sender.= |
$sender.= |
Line 1209 sub build_posting_display {
|
Line 1348 sub build_posting_display {
|
if (($group ne '') && |
if (($group ne '') && |
(&check_group_priv($group,'pgd') eq 'ok')) { |
(&check_group_priv($group,'pgd') eq 'ok')) { |
$sender.=' '. |
$sender.=' '. |
&discussion_link($symb,&mt('Reply'),'replydisc',$idx,$$newpostsflag,$prevread,&group_args($group)); |
&discussion_link($ressymb,&mt('Reply'),'replydisc',$idx,$$newpostsflag,$prevread,&group_args($group)); |
} elsif (&Apache::lonnet::allowed('pch', |
} elsif (&Apache::lonnet::allowed('pch', |
$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.=' '. |
$sender.=' '. |
&discussion_link($symb,&mt('Reply'),'replydisc',$idx,$$newpostsflag,$prevread); |
&discussion_link($ressymb,&mt('Reply'),'replydisc',$idx,$$newpostsflag,$prevread); |
} |
} |
} |
} |
if ($viewgrades) { |
if ($viewgrades) { |
Line 1233 sub build_posting_display {
|
Line 1372 sub build_posting_display {
|
} |
} |
if ($outputtarget eq 'export' || $message) { |
if ($outputtarget eq 'export' || $message) { |
my $thisindex=$idx; |
my $thisindex=$idx; |
if ( (($env{'environment.threadeddiscussion'}) && ($sortposts eq '')) || ($sortposts eq 'thread') || ($outputtarget eq 'export')) { |
if ( ((!$env{'environment.unthreadeddiscussion'}) && ($sortposts eq '')) || |
|
($sortposts eq 'thread') || ($outputtarget eq 'export')) { |
$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 1265 sub build_posting_display {
|
Line 1405 sub build_posting_display {
|
} else { |
} else { |
if ($message) { |
if ($message) { |
my $spansize = 2; |
my $spansize = 2; |
|
my ($uname,$udom); |
if ($showonlyunread && $prevread > $posttime) { |
if ($showonlyunread && $prevread > $posttime) { |
$$notshown{$idx} = 1; |
$$notshown{$idx} = 1; |
} elsif ($showunmark && $$dischash{$readkey}=~/\.$idx\./) { |
} elsif ($showunmark && $$dischash{$readkey}=~/\.$idx\./) { |
$$notshown{$idx} = 1; |
$$notshown{$idx} = 1; |
} else { |
} else { |
# apply filters |
# apply filters |
my $uname = $contrib{$idx.':sendername'}; |
$uname = $contrib{$idx.':sendername'}; |
my $udom = $contrib{$idx.':senderdomain'}; |
$udom = $contrib{$idx.':senderdomain'}; |
my $poster = $uname.':'.$udom; |
my $poster = $uname.':'.$udom; |
if ($env{'form.totposters'} ne '') { |
if ($env{'form.totposters'} ne '') { |
if ($totposters == 0) { |
if ($totposters == 0) { |
Line 1333 sub build_posting_display {
|
Line 1474 sub build_posting_display {
|
if ($$dischash{$toggkey}) { |
if ($$dischash{$toggkey}) { |
$$discussionitems[$idx].=' '.$ctlink; |
$$discussionitems[$idx].=' '.$ctlink; |
} |
} |
|
my $thislikes=$likes{$symb.':'.$idx.':likes'}; |
|
my $likestyle; |
|
if ($seeid || $canvote) { |
|
# Figure out size based on likes |
|
my $class = 'zero'; |
|
my $thislikes=$likes{$symb.':'.$idx.':likes'}; |
|
if ($thislikes>$twoplus) { |
|
$class = 'twoplus'; |
|
} elsif ($thislikes>$oneplus) { |
|
$class = 'oneplus'; |
|
} |
|
if ($thislikes<$twominus) { |
|
$class = 'twominus'; |
|
} elsif ($thislikes<$oneminus) { |
|
$class = 'oneminus'; |
|
} |
|
$likestyle = $votestyle{$class}; |
|
} |
|
# Actually glue in the message itself |
$$discussionitems[$idx].= '<br /><blockquote>'. |
$$discussionitems[$idx].= '<br /><blockquote>'. |
$message.'</blockquote>'; |
"<div $likestyle>". |
|
$message. |
|
'</div></blockquote>'; |
|
if ($canvote) { |
|
my $ownpost; |
|
if (($uname eq $env{'user.name'}) && |
|
($udom eq $env{'user.domain'})) { |
|
$ownpost = 1; |
|
} |
|
# Put in the like and unlike buttons |
|
if ($ownpost || (($hiddens{$idx}) && ($seehidden))) { |
|
my $novote; |
|
if ($ownpost) { |
|
$novote = &mt('No voting for your own posts.'); |
|
} else { |
|
$novote = &mt('No voting for hidden posts.'); |
|
} |
|
&html_escape(\$novote); |
|
$$discussionitems[$idx].= |
|
'<a href="javascript:alert('."'$novote'".');" style="text-decoration: none;">'. |
|
'<img border="0" src="/res/adm/pages/thumbsup_novote.png" alt="'.$novote.'" /> '. |
|
'<img border="0" src="/res/adm/pages/thumbsdown_novote.png" alt="'.$novote.'" /></a>'; |
|
|
|
} else { |
|
if ($userlikes{$idx}) { |
|
$$discussionitems[$idx].='<img border="0" src="/res/adm/pages/thumbsup_gray.png" alt="'.&mt('You like this posting').'" />'; |
|
} else { |
|
$$discussionitems[$idx].=' '.&discussion_link($ressymb,'<img border="0" src="/res/adm/pages/thumbsup.png" alt="'.&mt('Like').'" />','like',$idx,$$newpostsflag,$prevread,&group_args($group),&mt("Like this posting")); |
|
} |
|
if ($userunlikes{$idx}) { |
|
$$discussionitems[$idx].='<img border="0" src="/res/adm/pages/thumbsdown_gray.png" alt="'.&mt('You unlike this posting').'" />'; |
|
} else { |
|
$$discussionitems[$idx].=' '.&discussion_link($ressymb,'<img border="0" src="/res/adm/pages/thumbsdown.png" alt="'.&mt('Unlike').'" />','unlike',$idx,$$newpostsflag,$prevread,&group_args($group),&mt("Unlike this posting")); |
|
} |
|
} |
|
} |
|
if ($seeid || $canvote) { |
|
my $thislikes=$likes{$symb.':'.$idx.':likes'}; |
|
if ($thislikes>0) { |
|
$$discussionitems[$idx].=' ('.&mt("[_1] likes",$thislikes).')'; |
|
} elsif ($thislikes<0) { |
|
$$discussionitems[$idx].=' ('.&mt("[_1] unlikes",abs($thislikes)).')'; |
|
} |
|
} |
|
# If there is any history to this post, inform the reader |
if ($contrib{$idx.':history'}) { |
if ($contrib{$idx.':history'}) { |
my @postversions = (); |
my @postversions = (); |
$$discussionitems[$idx] .= &mt('This post has been edited by the author.'); |
$$discussionitems[$idx] .= ' '.&mt('This post has been edited by the author.'); |
if ($seeid) { |
if ($seehidden) { |
$$discussionitems[$idx] .= ' '. |
$$discussionitems[$idx] .= ' '. |
&discussion_link($symb,&mt('Display all versions'),'allversions',$idx,$$newpostsflag,$prevread,&group_args($group)); |
&discussion_link($ressymb,&mt('Display all versions'),'allversions',$idx,$$newpostsflag,$prevread,&group_args($group)); |
} |
} |
$$discussionitems[$idx].='<br/>'.&mt('Earlier version(s) were posted on: '); |
$$discussionitems[$idx].='<br/>'.&mt('Earlier version(s) were posted on: '); |
if ($contrib{$idx.':history'} =~ m/:/) { |
if ($contrib{$idx.':history'} =~ m/:/) { |
Line 1424 sub filter_regexp {
|
Line 1628 sub filter_regexp {
|
|
|
|
|
sub get_post_contents { |
sub get_post_contents { |
my ($contrib,$idx,$seeid,$type,$messages,$subjects,$allattachments,$attachtxt,$imsfiles,$screenname,$plainname,$numver) = @_; |
my ($contrib,$idx,$seeid,$seehidden,$type,$messages,$subjects,$allattachments,$attachtxt,$imsfiles,$screenname,$plainname,$showaboutme,$numver) = @_; |
my $discussion = ''; |
my $discussion = ''; |
my $start=$numver; |
my $start=$numver; |
my $end=$numver + 1; |
my $end=$numver + 1; |
%{$$imsfiles{$idx}}=(); |
%{$$imsfiles{$idx}}=(); |
if ($type eq 'allversions') { |
if ($type eq 'allversions') { |
unless($seeid) { |
unless($seehidden) { |
$discussion=&mt('You do not have privileges to view all versions of posts.').' '.&mt('Please select a different role.'); |
$discussion=&mt('You do not have privileges to view all versions of posts.').' '.&mt('Please select a different role.'); |
return $discussion; |
return $discussion; |
} |
} |
Line 1442 sub get_post_contents {
|
Line 1646 sub get_post_contents {
|
$$contrib{$idx.':sendername'}, |
$$contrib{$idx.':sendername'}, |
$$contrib{$idx.':senderdomain'}); |
$$contrib{$idx.':senderdomain'}); |
$$screenname=$$contrib{$idx.':screenname'}; |
$$screenname=$$contrib{$idx.':screenname'}; |
|
$$showaboutme = &Apache::lonnet::usertools_access($$contrib{$idx.':sendername'}, |
my $sender=&Apache::loncommon::aboutmewrapper( |
$$contrib{$idx.':senderdomain'}, |
|
'aboutme'); |
|
my $sender = $$plainname; |
|
if ($$showaboutme) { |
|
$sender = &Apache::loncommon::aboutmewrapper( |
$$plainname, |
$$plainname, |
$$contrib{$idx.':sendername'}, |
$$contrib{$idx.':sendername'}, |
$$contrib{$idx.':senderdomain'}).' ('. |
$$contrib{$idx.':senderdomain'}); |
$$contrib{$idx.':sendername'}.':'. |
} |
$$contrib{$idx.':senderdomain'}.')'; |
if ($seeid) { |
|
$sender .= ' ('.$$contrib{$idx.':sendername'}.':'. |
|
$$contrib{$idx.':senderdomain'}.')'; |
|
} |
my $attachmenturls = $$contrib{$idx.':attachmenturl'}; |
my $attachmenturls = $$contrib{$idx.':attachmenturl'}; |
my @postversions = (); |
my @postversions = (); |
if ($type eq 'allversions' || $type eq 'export') { |
if ($type eq 'allversions' || $type eq 'export') { |
Line 1564 sub mail_screen {
|
Line 1775 sub mail_screen {
|
} |
} |
|
|
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
'myqu' => 'My question/comment/feedback:', |
'myqu' => 'Question/comment/feedback:', |
'title' => 'Title', |
|
'reta' => 'Retained attachments', |
'reta' => 'Retained attachments', |
'atta' => 'Attachment', |
'atta' => 'Attachment', |
); |
); |
|
if ($env{'form.editdisc'} || $env{'form.replydisc'}){ |
|
$lt{'myqu'} = &mt('Post Discussion'); |
|
} |
my $restitle = &get_resource_title($caller_symb,$feedurl); |
my $restitle = &get_resource_title($caller_symb,$feedurl); |
my $quote=''; |
my $quote=''; |
my $subject = ''; |
my $subject = ''; |
Line 1633 END
|
Line 1846 END
|
$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'}); |
unless (($contrib{'hidden'}=~/\.$idx\./) || ($contrib{'deleted'}=~/\.$idx\./)) { |
unless (($contrib{'hidden'}=~/\.$idx\./) || ($contrib{'deleted'}=~/\.$idx\./)) { |
|
my $numoldver = 0; |
if ($contrib{$idx.':history'}) { |
if ($contrib{$idx.':history'}) { |
if ($contrib{$idx.':history'} =~ /:/) { |
if ($contrib{$idx.':history'} =~ /:/) { |
my @oldversions = split(/:/,$contrib{$idx.':history'}); |
my @oldversions = split(/:/,$contrib{$idx.':history'}); |
Line 1641 END
|
Line 1855 END
|
$numoldver = 1; |
$numoldver = 1; |
} |
} |
} |
} |
if ($env{'form.replydisc'}) { |
if ($idx > 0) { |
if ($contrib{$idx.':history'}) { |
my (%msgversions,%subversions,$htmldecode); |
if ($contrib{$idx.':history'} =~ /:/) { |
$htmldecode = 0; |
my @oldversions = split(/:/,$contrib{$idx.':history'}); |
if ($env{'form.replydisc'}) { |
$numoldver = @oldversions; |
$htmldecode = 1; |
} else { |
|
$numoldver = 1; |
|
} |
|
} |
} |
if ($idx > 0) { |
&get_post_versions(\%msgversions,$contrib{$idx.':message'},0,$numoldver); |
my %msgversions = (); |
&get_post_versions(\%subversions,$contrib{$idx.':subject'},$htmldecode, |
&get_post_versions(\%msgversions,$contrib{$idx.':message'},0,$numoldver); |
$numoldver); |
|
$subject = $subversions{$numoldver}; |
|
if ($env{'form.replydisc'}) { |
$quote = $msgversions{$numoldver}; |
$quote = $msgversions{$numoldver}; |
} |
$subject = &HTML::Entities::encode(&mt('Re: ').$subject,'<>&"'); |
if ($idx > 0) { |
} else { |
my %subversions = (); |
|
&get_post_versions(\%subversions,$contrib{$idx.':subject'},1,$numoldver); |
|
$subject = &mt('Re: ').$subversions{$numoldver}; |
|
} |
|
$subject = &HTML::Entities::encode($subject,'<>&"'); |
|
} else { |
|
$attachmenturls = $contrib{$idx.':attachmenturl'}; |
|
if ($idx > 0) { |
|
my %msgversions = (); |
|
&get_post_versions(\%msgversions,$contrib{$idx.':message'},0,$numoldver); |
|
$comment = $msgversions{$numoldver}; |
$comment = $msgversions{$numoldver}; |
my %subversions = (); |
|
&get_post_versions(\%subversions,$contrib{$idx.':subject'},0,$numoldver); |
|
$subject = $subversions{$numoldver}; |
|
} |
} |
|
} |
|
if ($env{'form.editdisc'}) { |
|
$attachmenturls = $contrib{$idx.':attachmenturl'}; |
if (defined($contrib{$idx.':replyto'})) { |
if (defined($contrib{$idx.':replyto'})) { |
$parentmsg = $contrib{$idx.':replyto'}; |
$parentmsg = $contrib{$idx.':replyto'}; |
} |
} |
Line 1706 END
|
Line 1909 END
|
my $latexHelp=&Apache::loncommon::helpLatexCheatsheet(undef,undef,1,($env{'form.modal'}?'popup':0)); |
my $latexHelp=&Apache::loncommon::helpLatexCheatsheet(undef,undef,1,($env{'form.modal'}?'popup':0)); |
my $send=&mt('Send'); |
my $send=&mt('Send'); |
my $alert = &mt('Please select a feedback type.'); |
my $alert = &mt('Please select a feedback type.'); |
|
&js_escape(\$alert); |
my $js= <<END; |
my $js= <<END; |
<script type="text/javascript"> |
<script type="text/javascript"> |
//<!-- |
//<!-- |
Line 1743 END
|
Line 1947 END
|
$anonscript |
$anonscript |
//--> |
//--> |
</script> |
</script> |
|
<script type="text/javascript" src="/res/adm/includes/file_upload.js"></script> |
END |
END |
|
|
my ($textareaheader,$textareaclass); |
my ($textareaheader,$textareaclass); |
Line 1762 END
|
Line 1967 END
|
|
|
my %onload = ('onload' => 'window.focus();setposttype();'); |
my %onload = ('onload' => 'window.focus();setposttype();'); |
my %parms=('add_entries' => \%onload); |
my %parms=('add_entries' => \%onload); |
if ($env{'form.modal'} ne 'yes') { 'bread_crumbs' => $brcrum } |
if ($env{'form.modal'} ne 'yes') { $parms{'bread_crumbs'} = $brcrum; } |
my $start_page= |
my $start_page= |
&Apache::loncommon::start_page('Resource Feedback and Discussion',$js,\%parms); |
&Apache::loncommon::start_page('Resource Feedback and Discussion',$js,\%parms); |
|
|
Line 1771 END
|
Line 1976 END
|
unless (&contains_block_html($quote)) { |
unless (&contains_block_html($quote)) { |
&newline_to_br(\$quote); |
&newline_to_br(\$quote); |
} |
} |
$quote='<blockquote>'.&Apache::lontexconvert::msgtexconverted($quote).'</blockquote>'; |
$quote=&Apache::lonhtmlcommon::start_pick_box(). |
|
&Apache::lonhtmlcommon::row_title(&mt('Quote')). |
|
&Apache::lontexconvert::msgtexconverted($quote). |
|
&Apache::lonhtmlcommon::row_closure(1). |
|
&Apache::lonhtmlcommon::end_pick_box(); |
} |
} |
my $header=''; |
my $header=''; |
unless ($env{'form.modal'}) { |
unless ($env{'form.modal'}) { |
Line 1779 END
|
Line 1988 END
|
} |
} |
$r->print(<<END); |
$r->print(<<END); |
$start_page |
$start_page |
|
<h1>$lt{'myqu'}</h1> |
$header |
$header |
<form action="/adm/feedback" method="post" name="mailform" |
<form action="/adm/feedback" method="post" name="mailform" |
enctype="multipart/form-data"> |
enctype="multipart/form-data"> |
Line 1798 END
|
Line 2008 END
|
} |
} |
$r->print(<<END); |
$r->print(<<END); |
$options |
$options |
|
<br /> |
|
END |
|
$r->print(&Apache::lonhtmlcommon::start_pick_box()); |
|
$r->print(<<END); |
$quote |
$quote |
<p>$lt{'myqu'} |
<p> |
$textareaheader |
$textareaheader |
</p> |
</p> |
<p> |
<p> |
$latexHelp |
$latexHelp |
</p> |
</p> |
<p> |
<p> |
$lt{'title'}: <input type="text" name="subject" size="30" value="$subject" /></p> |
|
<p> |
|
<textarea name="comment" id="comment" cols="60" rows="10" $textareaclass>$comment |
|
</textarea></p> |
|
END |
END |
|
|
|
|
|
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Subject'))); |
|
$r->print('<input type="text" name="subject" size="30" value="'. |
|
$subject.'" /></p>'); |
|
$r->print(&Apache::lonhtmlcommon::row_closure()); |
|
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Message'))); |
|
$r->print('<textarea name="comment" id="comment" cols="55" rows="10" '. |
|
$textareaclass.'>'.$comment. |
|
'</textarea>'); |
|
$r->print(&Apache::lonhtmlcommon::row_closure(1)); |
|
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
|
|
if ( ($env{'form.editdisc'}) || ($env{'form.replydisc'}) ) { |
if ( ($env{'form.editdisc'}) || ($env{'form.replydisc'}) ) { |
if ($env{'form.origpage'}) { |
if ($env{'form.origpage'}) { |
foreach my $attach (@currnewattach) { |
foreach my $attach (@currnewattach) { |
Line 1832 END
|
Line 2055 END
|
} else { |
} else { |
$r->print(<<END); |
$r->print(<<END); |
<p> |
<p> |
$lt{'atta'} $attachmaxtext: <input type="file" name="attachment" /> |
$lt{'atta'} $attachmaxtext: <input type="file" name="attachment" class="LC_flUpload" /> |
|
<input type="hidden" id="LC_free_space" value="131072" /> |
</p> |
</p> |
END |
END |
} |
} |
Line 1843 END
|
Line 2067 END
|
$r->print('<input type="hidden" name="ref" value="'.$env{'form.ref'}.'" />'); |
$r->print('<input type="hidden" name="ref" value="'.$env{'form.ref'}.'" />'); |
} |
} |
$r->print(<<END); |
$r->print(<<END); |
<p> |
|
<input type="hidden" name="sendit" value="1" /> |
<input type="hidden" name="sendit" value="1" /> |
<input type="button" value="$send" onclick='gosubmit();' /> |
<input type="button" value="$send" onclick='gosubmit();' /> |
</p> |
|
</form> |
</form> |
END |
END |
if ($env{'form.editdisc'} || $env{'form.replydisc'}) { |
if ($env{'form.editdisc'} || $env{'form.replydisc'}) { |
Line 1861 END
|
Line 2083 END
|
$attachnum += @currnewattach; |
$attachnum += @currnewattach; |
} |
} |
my $blockblog = &Apache::loncommon::blocking_status('blogs'); |
my $blockblog = &Apache::loncommon::blocking_status('blogs'); |
$r->print(&generate_attachments_button($postidx,$attachnum,$ressymb,$now,\@currnewattach,\@currdelold,$numoldver,'',$blockblog)); |
|
if ($attachnum > 0) { |
if ($attachnum > 0) { |
if (@currnewattach > 0) { |
if (@currnewattach > 0) { |
$newattachmsg .= '<br /><b>'.&mt('New attachments').'</b><br />'; |
$newattachmsg .= '<br /><b>'.&mt('New attachments').'</b><br />'; |
Line 1881 END
|
Line 2102 END
|
$r->print("<br /><b>$lt{'reta'}</b>:$attachmsg<br />\n"); |
$r->print("<br /><b>$lt{'reta'}</b>:$attachmsg<br />\n"); |
} |
} |
if ($newattachmsg) { |
if ($newattachmsg) { |
$r->print("$newattachmsg<br />"); |
$r->print("$newattachmsg"); |
} |
} |
} |
} |
|
$r->print(&generate_attachments_button($postidx,$attachnum,$ressymb,$now,\@currnewattach,\@currdelold,$numoldver,'',$blockblog)); |
} |
} |
$r->print(&generate_preview_button(). |
$r->print(&generate_preview_button(). |
&Apache::loncommon::end_page()); |
&Apache::loncommon::end_page()); |
Line 1923 sub print_display_options {
|
Line 2145 sub print_display_options {
|
'yhni' => 'You have not indicated that you wish to change any of the discussion settings', |
'yhni' => 'You have not indicated that you wish to change any of the discussion settings', |
'ywbr' => 'You will be returned to the previous page if you click OK.' |
'ywbr' => 'You will be returned to the previous page if you click OK.' |
); |
); |
|
my %js_lt = &Apache::lonlocal::texthash( |
|
'yhni' => 'You have not indicated that you wish to change any of the discussion settings', |
|
'ywbr' => 'You will be returned to the previous page if you click OK.' |
|
); |
|
&js_escape(\%js_lt); |
|
|
my $dispchangeA = $lt{'unread'}; |
my $dispchangeA = $lt{'unread'}; |
my $dispchangeB = $lt{'unmark'}; |
my $dispchangeB = $lt{'unmark'}; |
Line 2016 function setDisp() {
|
Line 2243 function setDisp() {
|
if (chktotal > 0) { |
if (chktotal > 0) { |
document.modifydisp.submit() |
document.modifydisp.submit() |
} else { |
} else { |
if(confirm("$lt{'yhni'}. \\n$lt{'ywbr'}")) { |
if(confirm("$js_lt{'yhni'}. \\n$js_lt{'ywbr'}")) { |
if (prev > 0) { |
if (prev > 0) { |
location.href = "$feedurl?previous=$previous" |
location.href = "$feedurl?previous=$previous" |
} else { |
} else { |
Line 2324 sub print_showposters {
|
Line 2551 sub print_showposters {
|
$r->send_http_header; |
$r->send_http_header; |
|
|
&Apache::lonenc::check_encrypt(\$symb); |
&Apache::lonenc::check_encrypt(\$symb); |
my $crs='/'.$env{'request.course.id'}; |
|
if ($env{'request.course.sec'}) { |
|
$crs.='_'.$env{'request.course.sec'}; |
|
} |
|
$crs=~s/\_/\//g; |
|
my $seeid; |
|
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $group = $env{'form.group'}; |
my $group = $env{'form.group'}; |
my $ressymb = &wrap_symb($symb); |
my $ressymb = &wrap_symb($symb); |
if (($group ne '') && |
my $seehidden = &can_see_hidden('',$ressymb,$feedurl,$group,$cdom,$cnum); |
($ressymb =~ m|^bulletin___\d+___adm/wrapper/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard$|)) { |
|
if (&check_group_priv($group,'dgp') eq 'ok') { |
|
$seeid = 1; |
|
} |
|
} else { |
|
$seeid=&Apache::lonnet::allowed('rin',$crs); |
|
} |
|
my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'}, |
my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'}, |
$cdom,$cnum); |
$cdom,$cnum); |
my %namesort = (); |
my %namesort = (); |
Line 2357 sub print_showposters {
|
Line 2571 sub print_showposters {
|
for (my $idx=1;$idx<=$contrib{'version'};$idx++) { |
for (my $idx=1;$idx<=$contrib{'version'};$idx++) { |
my $hidden=($contrib{'hidden'}=~/\.$idx\./); |
my $hidden=($contrib{'hidden'}=~/\.$idx\./); |
my $deleted=($contrib{'deleted'}=~/\.$idx\./); |
my $deleted=($contrib{'deleted'}=~/\.$idx\./); |
unless ((($hidden) && (!$seeid)) || ($deleted)) { |
unless ((($hidden) && (!$seehidden)) || ($deleted)) { |
if ((!$contrib{$idx.':anonymous'}) || (&Apache::lonnet::allowed('rin',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')))) { |
if ((!$contrib{$idx.':anonymous'}) || (&Apache::lonnet::allowed('rin',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')))) { |
my %names = &Apache::lonnet::get('environment',['firstname','lastname'],$contrib{$idx.':senderdomain'},$contrib{$idx.':sendername'}); |
my %names = &Apache::lonnet::get('environment',['firstname','lastname'],$contrib{$idx.':senderdomain'},$contrib{$idx.':sendername'}); |
my $lastname = $names{'lastname'}; |
my $lastname = $names{'lastname'}; |
Line 2382 sub print_showposters {
|
Line 2596 sub print_showposters {
|
} |
} |
} |
} |
} |
} |
} |
} |
} |
} |
|
|
my $start_page = &Apache::loncommon::start_page('Discussion options'); |
my $start_page = &Apache::loncommon::start_page('Discussion options'); |
my $table_start =&Apache::loncommon::start_data_table(); |
my $table_start =&Apache::loncommon::start_data_table(); |
$r->print(<<END); |
$r->print(<<END); |
$start_page |
$start_page |
<form name="pickpostersform" method="post"> |
<form name="pickpostersform" method="post" action=""> |
<br /> |
<br /> |
$table_start |
$table_start |
<tr> |
<tr> |
Line 2489 sub get_post_attachments {
|
Line 2703 sub get_post_attachments {
|
$$attachments{'0'}{'filename'} = $attachmenturls; |
$$attachments{'0'}{'filename'} = $attachmenturls; |
$$attachments{'0'}{'0'} = 'n'; |
$$attachments{'0'}{'0'} = 'n'; |
} |
} |
|
|
return; |
return; |
} |
} |
|
|
sub fail_redirect { |
sub fail_redirect { |
my ($r,$feedurl) = @_; |
my ($r,$feedurl,$delay) = @_; |
if ($feedurl=~/^\/adm\//) { $feedurl.='?register=1' }; |
if ($feedurl=~/^\/adm\//) { $feedurl.='?register=1' }; |
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
'sorr' => 'Sorry, no recipients ...', |
'sorr' => 'Sorry, no recipients ...', |
); |
); |
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif'); |
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif'); |
$r->print(&Apache::loncommon::start_page('Feedback not sent',undef, |
my %parms=('only_body' => 1); |
{'redirect' => [2,$feedurl], |
if ($delay !~ /^\d+(|\.\d+)$/) { |
'only_body' => 1,})); |
$delay = 2; |
|
} |
|
if ($env{'form.modal'}) { |
|
my $onload = 'document.forms.reldt.submit()'; |
|
if ($delay) { |
|
my $js_delay = int(1000 * $delay); |
|
$onload = "setTimeout(function(){ |
|
document.forms.reldt.submit(); |
|
},$js_delay);"; |
|
} |
|
$parms{'add_entries'}={'onload' => $onload}; |
|
} else { |
|
$parms{'redirect'}=[$delay,$feedurl]; |
|
} |
|
$r->print(&Apache::loncommon::start_page('Feedback not sent',undef,\%parms)); |
|
my $windowname = 'loncapaclient'; |
$r->print(<<ENDFAILREDIR); |
$r->print(<<ENDFAILREDIR); |
<img align="right" src="$logo" /> |
<img align="right" src="$logo" /> |
<b>$lt{'sorr'}</b> |
<p class="LC_warning">$lt{'sorr'}</p> |
|
<form name="reldt" action="$feedurl" target="$windowname"> |
|
</form> |
ENDFAILREDIR |
ENDFAILREDIR |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
} |
} |
|
|
sub redirect_back { |
sub redirect_back { |
my ($r,$feedurl,$typestyle,$sendsomething,$sendposts,$blog,$status,$previous,$sort,$rolefilter,$statusfilter,$sectionpick,$grouppick,$numpicks,$group,$toolarge) = @_; |
my ($r,$feedurl,$typestyle,$sendsomething,$sendposts,$blog,$status,$previous,$sort, |
|
$rolefilter,$statusfilter,$sectionpick,$grouppick,$numpicks,$group,$toolarge,$delay) = @_; |
my $sorttag = ''; |
my $sorttag = ''; |
my $roletag = ''; |
my $roletag = ''; |
my $statustag = ''; |
my $statustag = ''; |
Line 2610 sub redirect_back {
|
Line 2841 sub redirect_back {
|
&Apache::lonenc::check_encrypt(\$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 %parms=('only_body' => 1); |
my %parms=('only_body' => 1); |
|
if ($delay !~ /^\d+(|\.\d+)$/) { |
|
$delay = 0; |
|
} |
if ($env{'form.modal'}) { |
if ($env{'form.modal'}) { |
$parms{'add_entries'}={'onLoad' => 'document.forms.reldt.submit()'}; |
my $onload = 'document.forms.reldt.submit()'; |
|
if ($delay) { |
|
my $js_delay = int(1000 * $delay); |
|
$onload = "setTimeout(function(){ |
|
document.forms.reldt.submit(); |
|
},$js_delay);"; |
|
} |
|
$parms{'add_entries'}={'onload' => $onload}; |
} else { |
} else { |
$parms{'redirect'}=[0,$feedurl]; |
$parms{'redirect'}=[$delay,$feedurl]; |
} |
} |
my $start_page= |
my $start_page= |
&Apache::loncommon::start_page('Feedback sent',undef,\%parms); |
&Apache::loncommon::start_page('Feedback sent',undef,\%parms); |
Line 2641 ENDREDIR
|
Line 2882 ENDREDIR
|
} |
} |
|
|
sub no_redirect_back { |
sub no_redirect_back { |
my ($r,$feedurl) = @_; |
my ($r,$feedurl,$delay) = @_; |
my $nofeed=&mt('Sorry, no feedback possible on this resource ...'); |
my $nofeed=&mt('Sorry, no feedback possible on this resource ...'); |
|
my $form_for_modal; |
my %onload; |
my %parms=('only_body' => 1, |
|
'bgcolor' => '#FFFFFF',); |
my %body_options = ('only_body' => 1, |
if ($delay !~ /^\d+(|\.\d+)$/) { |
'bgcolor' => '#FFFFFF', |
$delay = 0; |
'add_entries' => \%onload,); |
} |
|
if ($env{'form.modal'}) { |
if ($feedurl !~ m{^/adm/feedback}) { |
if (($feedurl !~ m{^/adm/feedback}) && ($feedurl ne '')) { |
$body_options{'rediect'} = [2,$feedurl]; |
my $onload = 'document.forms.reldt.submit()'; |
|
if ($delay) { |
|
my $js_delay = int(1000 * $delay); |
|
$onload = "setTimeout(function(){ |
|
document.forms.reldt.submit(); |
|
},$js_delay);"; |
|
} |
|
$parms{'add_entries'}={'onload' => $onload}; |
|
my $windowname = 'loncapaclient'; |
|
$form_for_modal = <<ENDFORM; |
|
<form name="reldt" action="$feedurl" target="$windowname"> |
|
</form> |
|
ENDFORM |
|
} |
|
} else { |
|
if (($feedurl !~ m{^/adm/feedback}) && ($feedurl ne '')) { |
|
$parms{'redirect'}=[$delay,$feedurl]; |
|
} |
} |
} |
my $start_page= |
my $start_page= |
&Apache::loncommon::start_page('Feedback not sent',undef, |
&Apache::loncommon::start_page('Feedback not sent',undef, |
\%body_options); |
\%parms); |
|
|
my $end_page = &Apache::loncommon::end_page(); |
my $end_page = &Apache::loncommon::end_page(); |
|
|
&Apache::lonenc::check_encrypt(\$feedurl); |
|
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif'); |
my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif'); |
$r->print (<<ENDNOREDIRTWO); |
$r->print (<<ENDNOREDIRTWO); |
$start_page |
$start_page |
<img align="right" src="$logo" /> |
<img align="right" src="$logo" /> |
<b>$nofeed</b> |
<b>$nofeed</b> |
<br /> |
<br /> |
|
$form_for_modal |
$end_page |
$end_page |
ENDNOREDIRTWO |
ENDNOREDIRTWO |
} |
} |
|
|
sub screen_header { |
sub screen_header { |
my ($feedurl,$symb,$group) = @_; |
my ($feedurl,$symb,$group) = @_; |
my $crscontent = &mt('Question/Comment/Feedback about course content'); |
my %default = &Apache::lonlocal::texthash ( |
my $crspolicy = &mt('Question/Comment/Feedback about course policy'); |
question => 'Question about resource content', |
|
comment => 'Question/Comment/Feedback about course content', |
|
policy => 'Question/Comment/Feedback about course policy', |
|
); |
my $contribdisc = &mt('Contribution to course discussion of resource'); |
my $contribdisc = &mt('Contribution to course discussion of resource'); |
my $anoncontrib = &mt('Anonymous contribution to course discussion of resource'); |
my $anoncontrib = &mt('Anonymous contribution to course discussion of resource'); |
my $namevis = &mt('name only visible to course faculty'); |
my $namevis = &mt('name only visible to course faculty'); |
Line 2681 sub screen_header {
|
Line 2942 sub screen_header {
|
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
$crstype = &Apache::loncommon::course_type(); |
$crstype = &Apache::loncommon::course_type(); |
if ($crstype eq 'Community') { |
if ($crstype eq 'Community') { |
$crscontent = &mt('Question/Comment/Feedback about community content'); |
$default{'comment'} = &mt('Question/Comment/Feedback about community content'); |
$crspolicy = &mt('Question/Comment/Feedback about community policy'); |
$default{'policy'} = &mt('Question/Comment/Feedback about community policy'); |
$contribdisc = &mt('Contribution to community discussion of resource'); |
$contribdisc = &mt('Contribution to community discussion of resource'); |
$anoncontrib = &mt('Anonymous contribution to community discussion of resource'); |
$anoncontrib = &mt('Anonymous contribution to community discussion of resource'); |
$namevis = &mt('name only visible to community facilitators'); |
$namevis = &mt('name only visible to community facilitators'); |
Line 2690 sub screen_header {
|
Line 2951 sub screen_header {
|
} |
} |
my $msgoptions=''; |
my $msgoptions=''; |
my $discussoptions=''; |
my $discussoptions=''; |
|
my $checkradio = ''; |
|
my $blockblog; |
|
my (%fdbkoptions,%discoptions); |
unless (($env{'form.replydisc'}) || ($env{'form.editdisc'})) { |
unless (($env{'form.replydisc'}) || ($env{'form.editdisc'})) { |
if (($feedurl=~/^\/res\//) && ($feedurl!~/^\/res\/adm/) && ($env{'user.adv'})) { |
if (($feedurl=~/^\/res\//) && ($feedurl!~/^\/res\/adm/) && ($env{'user.adv'})) { |
$msgoptions= |
$fdbkoptions{'author'} = 1; |
'<p><label><input type="radio" name="discuss" value="author" /> '. |
} |
&mt('Feedback to resource author').'</label></p>'; |
if (&feedback_available(1)) { |
} |
$fdbkoptions{'question'} = 1; |
my %optionhash=(); |
} |
foreach my $type ('question','comment','policy') { |
if (&feedback_available(0,1)) { |
$optionhash{$type}=$env{'course.'.$env{'request.course.id'}.'.'.$type.'.email.text'}; |
$fdbkoptions{'course'} = 1; |
} |
} |
if (&feedback_available(1)) { |
if (&feedback_available(0,0,1)) { |
$msgoptions.= |
$fdbkoptions{'policy'} = 1; |
'<p><label><input type="radio" name="discuss" value="question" /> '. |
} |
($optionhash{'question'}?$optionhash{'question'}:&mt('Question about resource content')).'</label></p>'; |
|
} |
|
if (&feedback_available(0,1)) { |
|
$msgoptions.= |
|
'<p><label><input type="radio" name="discuss" value="course" /> '. |
|
($optionhash{'comment'}?$optionhash{'comment'}:$crscontent). |
|
'</label></p>'; |
|
} |
|
if (&feedback_available(0,0,1)) { |
|
$msgoptions.= |
|
'<p><label><input type="radio" name="discuss" value="policy" /> '. |
|
($optionhash{'policy'}?$optionhash{'policy'}:$crspolicy). |
|
'</label></p>'; |
|
} |
|
} |
} |
if (($env{'request.course.id'}) && (!$env{'form.sendmessageonly'})) { |
if (($env{'request.course.id'}) && (!$env{'form.sendmessageonly'})) { |
my ($blocked,$blocktext) = &Apache::loncommon::blocking_status('boards'); |
my ($blocked,$blocktext) = &Apache::loncommon::blocking_status('boards'); |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $realsymb = $symb; |
my $realsymb = &get_realsymb($symb); |
if ($symb=~/^bulletin___/) { |
if (!$blocked && &discussion_open(undef,$realsymb) && |
my $filename=(&Apache::lonnet::decode_symb($symb))[2]; |
(&Apache::lonnet::allowed('pch', |
$filename=~s|^adm/wrapper/||; |
$env{'request.course.id'}. |
$realsymb=&Apache::lonnet::symbread($filename); |
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')) || |
} |
|
if (!$blocked && &discussion_open(undef,$realsymb) && |
|
(&Apache::lonnet::allowed('pch', |
|
$env{'request.course.id'}. |
|
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')) || |
|
(($group ne '') && ($symb =~ m{^bulletin___\d+___adm/wrapper/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard$}) && (&check_group_priv($group,'pgd') eq 'ok')))) { |
(($group ne '') && ($symb =~ m{^bulletin___\d+___adm/wrapper/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard$}) && (&check_group_priv($group,'pgd') eq 'ok')))) { |
$discussoptions='<label><input type="radio" name="discuss" value="nonanon" checked="checked" /> '. |
$discoptions{'nonanon'} = 1; |
$contribdisc. |
$discoptions{'anon'} = 1; |
'</label><br /><label><input type="radio" name="discuss" value="anon" /> '. |
$blockblog = &Apache::loncommon::blocking_status('blogs'); |
$anoncontrib. |
} |
' <i>('.$namevis.')</i></label> '. |
} |
'<a href="/adm/preferences?action=changescreenname">'.&mt('Change Screenname').'</a>'; |
my $total = scalar(keys(%fdbkoptions)) + scalar(keys(%discoptions)); |
my $blockblog = &Apache::loncommon::blocking_status('blogs'); |
return if (!$total); |
if (!$blockblog) { |
if ($total == 1) { |
$discussoptions.= &add_blog_checkbox($crstype); |
$checkradio = ' checked="checked"'; |
|
} |
|
if (keys(%fdbkoptions)) { |
|
if ($fdbkoptions{'author'}) { |
|
$msgoptions = |
|
'<label><input type="radio" name="discuss" value="author"'.$checkradio.' /> '. |
|
&mt('Feedback to resource author').'</label><br />'; |
|
} |
|
foreach my $item ('question','comment','policy') { |
|
my $type = $item; |
|
if ($item eq 'comment') { |
|
$type = 'course'; |
|
} |
|
my $optionhash=$env{'course.'.$env{'request.course.id'}.'.'.$item.'.email.text'}; |
|
if ($fdbkoptions{$type}) { |
|
$msgoptions .= |
|
'<label><input type="radio" name="discuss" value="'.$type.'"'.$checkradio.' />'. |
|
($optionhash?$optionhash:$default{$item}).'</label><br />'; |
} |
} |
} |
} |
} |
} |
|
if (keys(%discoptions)) { |
|
if ($discoptions{'nonanon'}) { |
|
$discussoptions='<label><input type="radio" name="discuss" value="nonanon" checked="checked" /> '. |
|
$contribdisc. |
|
'</label>'; |
|
} |
|
if ($discoptions{'anon'}) { |
|
$discussoptions .= '<br /><label><input type="radio" name="discuss" value="anon"'.$checkradio.' /> '. |
|
$anoncontrib. |
|
' <i>('.$namevis.')</i></label> '. |
|
'<a href="/adm/preferences?action=changescreenname">'.&mt('Change Screenname').'</a>'; |
|
} |
|
if (!$blockblog) { |
|
$discussoptions.= &add_blog_checkbox($crstype); |
|
} |
|
} |
if ($msgoptions) { |
if ($msgoptions) { |
$msgoptions='<tr><th><img src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/feedback.png').'" />' |
$msgoptions='<tr><th><img src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/feedback.png').'" />' |
.'<br />'.&mt('Send Feedback').'<br />'.&Apache::lonhtmlcommon::coursepreflink(&mt('Feedback Settings'),'feedback').'</th>'. |
.'<br />'.&mt('Send Feedback').'<br />'.&Apache::lonhtmlcommon::coursepreflink(&mt('Feedback Settings'),'feedback').'</th>'. |
Line 2830 sub feedback_available {
|
Line 3108 sub feedback_available {
|
} |
} |
|
|
sub send_msg { |
sub send_msg { |
my ($title,$feedurl,$email,$citations,$attachmenturl,$symb,%to)=@_; |
my ($title,$feedurl,$email,$citations,$attachmenturl,$symb,$clientip,%to)=@_; |
my $status=''; |
my $status=''; |
my $sendsomething=0; |
my $sendsomething=0; |
|
my $delay; |
|
my $senthide; |
|
my %setters; |
|
my ($startblock,$endblock,$triggerblock,$by_ip,$blockdom) = |
|
&Apache::loncommon::blockcheck(\%setters,'com',$clientip); |
|
if ($by_ip) { |
|
$senthide = 1; |
|
} |
my $restitle = &get_resource_title($symb,$feedurl); |
my $restitle = &get_resource_title($symb,$feedurl); |
if ($title=~/^Error/) { $title=&mt('Feedback').': '.$title; } |
if ($title=~/^Error/) { $title=&mt('Feedback').': '.$title; } |
unless ($title=~/\w/) { $title=&mt('Feedback'); } |
unless ($title=~/\w/) { $title=&mt('Feedback'); } |
Line 2846 sub send_msg {
|
Line 3132 sub send_msg {
|
} else { |
} else { |
unless (&Apache::lonmsg::user_normal_msg($user,$domain, |
unless (&Apache::lonmsg::user_normal_msg($user,$domain, |
$title.' ['.$restitle.']',$email,$citations,$feedurl, |
$title.' ['.$restitle.']',$email,$citations,$feedurl, |
$attachmenturl,undef,undef,$symb,$restitle)=~/ok/) { |
$attachmenturl,undef,undef,$symb,$restitle,undef, |
|
undef,undef,undef,$senthide)=~/ok/) { |
$status.='<br />'.&mt('Error sending message to').' '.$key.'<br />'; |
$status.='<br />'.&mt('Error sending message to').' '.$key.'<br />'; |
} else { |
} else { |
$sendsomething++; |
$sendsomething++; |
Line 2854 sub send_msg {
|
Line 3141 sub send_msg {
|
} |
} |
} |
} |
} |
} |
|
if ($sendsomething && $senthide) { |
|
if ($by_ip) { |
|
my $showdom = &Apache::lonnet::domain($blockdom); |
|
if ($showdom eq '') { |
|
$showdom = $blockdom; |
|
} |
|
$delay = 4; |
|
$status.='<br />'.&mt("Message content of feedback you send to instructor(s) from your current IP address: [_1] will be unavailable in your 'Sent' folder.",$clientip). |
|
'<ul><li>'. |
|
&mt('This does not affect delivery of feedback to your instructor(s).'). |
|
'</li><li>'. |
|
&mt('Note: some types of communication functionality are blocked for certain IP address(es).'). |
|
'</li><li>'. |
|
&mt('This restriction was set by an administrator in the [_1] LON-CAPA domain.', |
|
$showdom). |
|
'</li></ul><br />'; |
|
} |
|
} |
|
|
# Records of number of feedback messages are kept under the "symb" called "_feedback" |
# Records of number of feedback messages are kept under the "symb" called "_feedback" |
# There are two entries within the framework of a course: |
# There are two entries within the framework of a course: |
Line 2871 sub send_msg {
|
Line 3176 sub send_msg {
|
} |
} |
} |
} |
} |
} |
return ($status,$sendsomething); |
return ($status,$sendsomething,$delay); |
} |
} |
|
|
# Routine to get the complete feedback records |
# Routine to get the complete feedback records |
Line 2903 sub storefeedbackpoints {
|
Line 3208 sub storefeedbackpoints {
|
my %record=('grader_user' => $env{'user.name'}, |
my %record=('grader_user' => $env{'user.name'}, |
'grader_domain' => $env{'user.domain'}, |
'grader_domain' => $env{'user.domain'}, |
'points' => $points); |
'points' => $points); |
return &Apache::lonnet::cstore(\%record,'_feedback'); |
return &Apache::lonnet::cstore(\%record,'_feedback',$course,$udom,$uname); |
} |
} |
|
|
# Store feedback "likes" |
# Store feedback "likes" |
Line 2923 sub storefeedbacklikes {
|
Line 3228 sub storefeedbacklikes {
|
'likes_domain' => $env{'user.domain'}, |
'likes_domain' => $env{'user.domain'}, |
'likes' => $likes, |
'likes' => $likes, |
'totallikes' => $totallikes); |
'totallikes' => $totallikes); |
return &Apache::lonnet::cstore(\%newrecord,'_feedback'); |
return &Apache::lonnet::cstore(\%newrecord,'_feedback',$course,$udom,$uname); |
} |
} |
|
|
|
|
sub adddiscuss { |
sub adddiscuss { |
my ($symb,$email,$anon,$attachmenturl,$subject,$group)=@_; |
my ($symb,$email,$anon,$attachmenturl,$subject,$group)=@_; |
my $status=''; |
my $status=''; |
my $realsymb; |
my $realsymb = &get_realsymb($symb); |
if ($symb=~/^bulletin___/) { |
|
my $filename=(&Apache::lonnet::decode_symb($symb))[2]; |
|
$filename=~s|^adm/wrapper/||; |
|
$realsymb=&Apache::lonnet::symbread($filename); |
|
} |
|
my ($cnum,$cdom); |
my ($cnum,$cdom); |
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
Line 2966 sub adddiscuss {
|
Line 3266 sub adddiscuss {
|
if (($symb) && ($email)) { |
if (($symb) && ($email)) { |
my $now = time; |
my $now = time; |
if ($env{'form.editdisc'}) { |
if ($env{'form.editdisc'}) { |
$contrib{'ip'}=$ENV{'REMOTE_ADDR'}; |
$contrib{'ip'}=&Apache::lonnet::get_requestor_ip(); |
$contrib{'host'}=$Apache::lonnet::perlvar{'lonHostID'}; |
$contrib{'host'}=$Apache::lonnet::perlvar{'lonHostID'}; |
$contrib{'timestamp'} = $now; |
$contrib{'timestamp'} = $now; |
$contrib{'history'} = ''; |
$contrib{'history'} = ''; |
Line 3033 sub adddiscuss {
|
Line 3333 sub adddiscuss {
|
$newrecord{'subnumber'}=$record{'subnumber'}+1; |
$newrecord{'subnumber'}=$record{'subnumber'}+1; |
$status.='<br />'.&mt('Registering').': '. |
$status.='<br />'.&mt('Registering').': '. |
&Apache::lonnet::cstore(\%newrecord,'_discussion'); |
&Apache::lonnet::cstore(\%newrecord,'_discussion'); |
|
&updatekarma(); |
} |
} |
} else { |
} else { |
$status.='Failed.'; |
$status.='Failed.'; |
Line 3056 sub getdiscussionrecords {
|
Line 3357 sub getdiscussionrecords {
|
|
|
sub getdiscussionstats { |
sub getdiscussionstats { |
my %record=&getdiscussionrecords(@_); |
my %record=&getdiscussionrecords(@_); |
return ($record{'subnumber'},$record{'points'},$record{'totallikes'}); |
my $totalvotes = $record{'totallikes'} + $record{'totalunlikes'}; |
|
return ($record{'subnumber'},$record{'points'},$record{'totallikes'},$totalvotes); |
|
} |
|
|
|
# Calculate discussion karma |
|
|
|
sub calcdiscussionkarma { |
|
my ($subs,$pts,$likes,$votes)=&getdiscussionstats(@_); |
|
my $karma=0; |
|
if ($votes>0) { |
|
$karma=int(.1+5.*(1.-exp(-$subs/10.))*$likes/$votes); |
|
if ($karma<0) { $karma=0; } |
|
if ($karma>5) { $karma=5; } |
|
} |
|
return $karma; |
} |
} |
|
|
|
# Update karma |
|
|
|
sub updatekarma { |
|
my ($uname,$udom,$course)=@_; |
|
unless ($uname) { $uname=$env{'user.name'}; } |
|
unless ($udom) { $udom=$env{'user.domain'}; } |
|
unless ($course) { $course=$env{'request.course.id'}; } |
|
my $karma=&calcdiscussionkarma($uname,$udom,$course); |
|
&Apache::lonnet::cstore({ 'karma' => $karma },'_discussion',$course,$udom,$uname); |
|
&Apache::lonnet::do_cache_new('karma',$uname.':'.$udom.':'.$course,$karma,3600); |
|
return $karma; |
|
} |
|
|
|
# Retrieve karma |
|
|
|
sub userkarma { |
|
my ($uname,$udom,$course)=@_; |
|
unless ($uname) { $uname=$env{'user.name'}; } |
|
unless ($udom) { $udom=$env{'user.domain'}; } |
|
unless ($course) { $course=$env{'request.course.id'}; } |
|
my $hashkey=$uname.':'.$udom.':'.$course; |
|
my ($karma,$cached)=&Apache::lonnet::is_cached_new('karma',$hashkey); |
|
if ($cached) { |
|
return $karma; |
|
} |
|
my %userdisc=&getdiscussionrecords($uname,$udom,$course); |
|
$karma=$userdisc{'karma'}; |
|
&Apache::lonnet::do_cache_new('karma',$hashkey,$karma,3600); |
|
return $karma; |
|
} |
|
|
# Store discussion credit |
# Store discussion credit |
|
|
Line 3071 sub storediscussionpoints {
|
Line 3416 sub storediscussionpoints {
|
my %record=('grader_user' => $env{'user.name'}, |
my %record=('grader_user' => $env{'user.name'}, |
'grader_domain' => $env{'user.domain'}, |
'grader_domain' => $env{'user.domain'}, |
'points' => $points); |
'points' => $points); |
return &Apache::lonnet::cstore(\%record,'_discussion'); |
return &Apache::lonnet::cstore(\%record,'_discussion',$course,$udom,$uname); |
} |
} |
|
|
# Store discussion "likes" |
# Store discussion "likes" |
|
|
sub storediscussionlikes { |
sub storediscussionlikes { |
my ($likes,$uname,$udom,$course)=@_; |
my ($chglikes,$chgunlikes,$uname,$udom,$course,$context)=@_; |
unless ($likes) { $likes=0; } |
|
if ($likes>0) { $likes=1; } |
|
if ($likes<0) { $likes=-1; } |
|
unless ($uname) { $uname=$env{'user.name'}; } |
unless ($uname) { $uname=$env{'user.name'}; } |
unless ($udom) { $udom=$env{'user.domain'}; } |
unless ($udom) { $udom=$env{'user.domain'}; } |
unless ($course) { $course=$env{'request.course.id'}; } |
unless ($course) { $course=$env{'request.course.id'}; } |
my %record=&getdiscussionrecords($uname,$udom,$course); |
my %record=&getdiscussionrecords($uname,$udom,$course); |
my $totallikes=$record{'totallikes'}; |
my $totallikes=$record{'totallikes'}; |
$totallikes+=$likes; |
my $totalunlikes=$record{'totalunlikes'}; |
|
$totallikes += $chglikes; |
|
$totalunlikes += $chgunlikes; |
my %newrecord=('likes_user' => $env{'user.name'}, |
my %newrecord=('likes_user' => $env{'user.name'}, |
'likes_domain' => $env{'user.domain'}, |
'likes_domain' => $env{'user.domain'}, |
'likes' => $likes, |
'totallikes' => $totallikes, |
'totallikes' => $totallikes); |
'totalunlikes' => $totalunlikes, |
return &Apache::lonnet::cstore(\%newrecord,'_discussion'); |
'context' => $context); |
|
my $status=&Apache::lonnet::cstore(\%newrecord,'_discussion',$course,$udom,$uname); |
|
if ($status eq 'ok') { |
|
&updatekarma($uname,$udom,$course); |
|
} |
|
return $status; |
} |
} |
|
|
sub get_discussion_info { |
sub get_discussion_info { |
Line 3239 sub modify_attachments {
|
Line 3588 sub modify_attachments {
|
|
|
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
'subj' => 'Subject', |
'subj' => 'Subject', |
'thfo' => 'The following attachments were part of the most recent saved version of this posting.', |
|
'chth' => 'Check the checkboxes for any you wish to remove.', |
'chth' => 'Check the checkboxes for any you wish to remove.', |
'thef' => 'The following attachments have been uploaded for inclusion with this posting.', |
'thef' => 'The following attachments have been uploaded for inclusion with this posting.', |
'adda' => 'Add a new attachment to this post.', |
'adda' => 'Add a new attachment to this post', |
'stch' => 'Save Changes', |
'stch' => 'Save Changes', |
|
'clic' => 'Add/remove attachments', |
); |
); |
my $js = <<END; |
my $js = <<END; |
<script type="text/javascript"> |
<script type="text/javascript"> |
Line 3251 sub modify_attachments {
|
Line 3600 sub modify_attachments {
|
document.modattachments.action = document.modattachments.origpage.value; |
document.modattachments.action = document.modattachments.origpage.value; |
document.modattachments.submit(); |
document.modattachments.submit(); |
} |
} |
</script> |
</script> |
|
<script type="text/javascript" src="/res/adm/includes/file_upload.js"></script> |
END |
END |
|
|
# Breadcrumbs |
# Breadcrumbs |
my $brcrum = [{'href' => '', |
my $brcrum = [{'href' => '', |
'text' => 'Discussion Post Attachments'}]; |
'text' => 'Discussion Post Attachments'}]; |
my %parms=(); |
my %parms=('only_body' => 1); |
if ($env{'form.modal'} ne 'yes') { 'bread_crumbs' => $brcrum } |
if ($env{'form.modal'} ne 'yes') { $parms{'bread_crumbs'} = $brcrum; } |
|
|
my $start_page = |
my $start_page = |
&Apache::loncommon::start_page('Discussion Post Attachments',$js,\%parms); |
&Apache::loncommon::start_page('Discussion Post Attachments',$js,\%parms); |
Line 3285 END
|
Line 3635 END
|
$start_page |
$start_page |
$toolarge |
$toolarge |
<form name="modattachments" method="post" enctype="multipart/form-data" action="/adm/feedback?attach=$symb"> |
<form name="modattachments" method="post" enctype="multipart/form-data" action="/adm/feedback?attach=$symb"> |
<br /> |
|
<table class="LC_data_table"> |
<h1>$lt{'clic'}</h1> |
<tr> |
|
<td colspan="2"> |
|
<b>Subject:</b> <b>$subject</b><br /><br /> |
|
END |
END |
if ($idx) { |
$r->print(&Apache::lonhtmlcommon::start_pick_box()); |
if ($attachmenturls) { |
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Subject'))); |
my @currold = keys(%currattach); |
$r->print('<b>'.$subject.'</b>'); |
if (@currold > 0) { |
$r->print(&Apache::lonhtmlcommon::row_closure()); |
$r->print($lt{'thfo'}.'<br />'.$lt{'chth'}.'<br />'."\n"); |
$r->print(&Apache::lonhtmlcommon::row_title($lt{'adda'})); |
foreach my $id (@currold) { |
$r->print('<input type="file" name="addnewattach" class="LC_flUpload" />' |
my $attachurl = &HTML::Entities::decode($attachments{$id}{'filename'}); |
.'<input type="hidden" id="LC_free_space" value="131072" />' |
$attachurl =~ m#/([^/]+)$#; |
.'<input type="button" name="upload" value="Upload" ' |
$r->print('<label><input type="checkbox" name="deloldattach" value="'.$id.'" /> '.$1.'</label><br />'."\n"); |
.'onclick="this.form.submit()" /> '.$attachmaxtext); |
|
if(($idx)||(ref($currnewattach) eq 'ARRAY') && (@{$currnewattach} > 0)){ |
|
$r->print(&Apache::lonhtmlcommon::row_closure()); |
|
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Attachments'))); |
|
if ($idx) { |
|
if ($attachmenturls) { |
|
my @currold = keys(%currattach); |
|
if (@currold > 0) { |
|
$r->print($lt{'thfo'}.'<br />'.$lt{'chth'}.'<br />'."\n"); |
|
foreach my $id (@currold) { |
|
my $attachurl = &HTML::Entities::decode($attachments{$id}{'filename'}); |
|
$attachurl =~ m#/([^/]+)$#; |
|
$r->print('<label><input type="checkbox" name="deloldattach" value="'.$id.'" /> '.$1.'</label><br />'."\n"); |
|
} |
|
$r->print("<br />"); |
} |
} |
$r->print("<br />"); |
|
} |
} |
} |
} |
} |
if ((ref($currnewattach) eq 'ARRAY') && (@{$currnewattach} > 0)) { |
if ((ref($currnewattach) eq 'ARRAY') && (@{$currnewattach} > 0)) { |
$r->print($lt{'chth'}.'<br />'."\n"); |
$r->print($lt{'thef'}.'<br />'.$lt{'chth'}.'<br />'."\n"); |
foreach my $attach (@{$currnewattach}) { |
foreach my $attach (@{$currnewattach}) { |
$attach =~ m#/([^/]+)$#; |
$attach =~ m#/([^/]+)$#; |
$r->print('<label><input type="checkbox" name="delnewattach" value="'.$attach.'" /> '.$1.'</label><br />'."\n"); |
$r->print('<label><input type="checkbox" name="delnewattach" value="'.$attach.'" /> '.$1.'</label><br />'."\n"); |
} |
} |
} |
$r->print("<br />"); |
|
} |
} |
|
$r->print(&Apache::lonhtmlcommon::row_closure(1)); |
|
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
$r->print(<<END); |
$r->print(<<END); |
</td></tr> |
|
<tr> |
|
<td> |
|
$lt{'adda'}</td><td><input type="file" name="addnewattach" /><input type="button" name="upload" value="Upload" onclick="this.form.submit()" /> |
|
</td> |
|
</tr> |
|
<tr> |
|
<td colspan="2">$attachmaxtext</td> |
|
</tr> |
|
</table> |
|
<input type="hidden" name="subject" value="$env{'form.subject'}" /> |
<input type="hidden" name="subject" value="$env{'form.subject'}" /> |
<input type="hidden" name="comment" value="$env{'form.comment'}" /> |
<input type="hidden" name="comment" value="$env{'form.comment'}" /> |
<input type="hidden" name="timestamp" value="$env{'form.timestamp'}" /> |
<input type="hidden" name="timestamp" value="$env{'form.timestamp'}" /> |
Line 3381 sub generate_attachments_button {
|
Line 3732 sub generate_attachments_button {
|
my $origpage = $ENV{'REQUEST_URI'}; |
my $origpage = $ENV{'REQUEST_URI'}; |
my $att=$attachnum.' '.&mt("attachments"); |
my $att=$attachnum.' '.&mt("attachments"); |
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
'clic' => 'Click to add/remove attachments', |
'clic' => 'Add/remove attachments', |
); |
); |
my $response = (<<END); |
my $response = (<<END); |
<br /> |
<br /> |
<form name="attachment" action="/adm/feedback?attach=$ressymb" method="post"> |
<form name="attachment" action="/adm/feedback?attach=$ressymb" method="post"> |
$lt{'clic'}: <input type="button" value="$att" |
<input type="button" value="$lt{'clic'}" |
onclick="if (typeof(document.mailform.onsubmit)=='function') {document.mailform.onsubmit();};this.form.comment.value=escape(document.mailform.comment.value);this.form.subject.value=escape(document.mailform.subject.value); |
onclick="if (typeof(document.mailform.onsubmit)=='function') {document.mailform.onsubmit();};this.form.comment.value=escape(document.mailform.comment.value);this.form.subject.value=escape(document.mailform.subject.value); |
END |
END |
if (!$blockblog) { |
if (!$blockblog) { |
Line 3622 sub handler {
|
Line 3973 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'}, |
['like','unlike','modal','hide','unhide','deldisc','postdata','preview','replydisc','editdisc','cmd','symb','onlyunread','allposts','onlyunmark','previous','markread','markonread','markondisp','toggoff','toggon','modifydisp','changes','navtime','navmaps','navurl','sortposts','applysort','rolefilter','statusfilter','sectionpick','groupick','posterlist','userpick','attach','origpage','currnewattach','deloldattach','keepold','allversions','export','sendmessageonly','group','ref']); |
['like','unlike','modal','hide','unhide','deldisc','undeleteall','postdata','preview','replydisc','editdisc','cmd','symb','onlyunread','allposts','onlyunmark','previous','markread','markonread','markondisp','toggoff','toggon','modifydisp','changes','navtime','navmaps','navurl','sortposts','applysort','rolefilter','statusfilter','sectionpick','groupick','posterlist','userpick','attach','origpage','currnewattach','deloldattach','keepold','allversions','export','sendmessageonly','group','ref']); |
my $group = $env{'form.group'}; |
my $group = $env{'form.group'}; |
|
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
|
my %attachmax = ( |
my %attachmax = ( |
text => &mt('(128 KB max size)'), |
text => &mt('(128 KB max size)'), |
num => 131072, |
num => 131072, |
); |
); |
if ($env{'form.editdisc'}) { |
if ($env{'form.editdisc'}) { |
if (!(&editing_allowed($env{'form.editdisc'},$env{'form.group'}))) { |
if (!(&editing_allowed($env{'form.editdisc'},$group))) { |
my $symb=(split(/\:\:\:/,$env{'form.editdisc'}))[0]; |
my $symb=(split(/\:\:\:/,$env{'form.editdisc'}))[0]; |
my ($map,$id,$url)=&Apache::lonnet::decode_symb($symb); |
my ($map,$id,$url)=&Apache::lonnet::decode_symb($symb); |
my $feedurl=&Apache::lonnet::clutter($url); |
my $feedurl=&Apache::lonnet::clutter($url); |
&redirect_back($r,$feedurl,&mt('Editing not permitted').'<br />', '0','0','','',$env{'form.previous'},undef,undef,undef, |
&redirect_back($r,$feedurl,&mt('Editing not permitted').'<br />', |
undef,undef,undef,$group); |
'0','0','','',$env{'form.previous'},undef,undef,undef, |
|
undef,undef,undef,$group); |
return OK; |
return OK; |
} |
} |
} |
} |
Line 3675 sub handler {
|
Line 4030 sub handler {
|
'text' => 'Discussion Post Versions'}]; |
'text' => 'Discussion Post Versions'}]; |
|
|
my %parms=(); |
my %parms=(); |
if ($env{'form.modal'} ne 'yes') { 'bread_crumbs' => $brcrum } |
if ($env{'form.modal'} ne 'yes') { $parms{'bread_crumbs'} = $brcrum; } |
|
|
$r->print(&Apache::loncommon::start_page('Discussion Post Versions',undef,\%parms)); |
$r->print(&Apache::loncommon::start_page('Discussion Post Versions',undef,\%parms)); |
|
|
my $crs='/'.$env{'request.course.id'}; |
|
if ($env{'request.course.sec'}) { |
|
$crs.='_'.$env{'request.course.sec'}; |
|
} |
|
$crs=~s|_|/|g; |
|
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
my ($symb,$idx)=split(/\:\:\:/,$env{'form.allversions'}); |
my ($symb,$idx)=split(/\:\:\:/,$env{'form.allversions'}); |
($symb)=&get_feedurl_and_clean_symb($symb); |
($symb, my $feedurl)=&get_feedurl_and_clean_symb($symb); |
my $ressymb = &wrap_symb($symb); |
my $ressymb = &wrap_symb($symb); |
my $group = $env{'form.group'}; |
|
my $seeid; |
my $seeid; |
if (($group ne '') && (($ressymb =~ m|^bulletin___\d+___adm/wrapper/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard$|))) { |
if (&Apache::lonnet::allowed('rin',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) { |
if (&check_group_priv($group,'dgp') eq 'ok') { |
$seeid = 1; |
$seeid = 1; |
|
} |
|
} else { |
|
$seeid = &Apache::lonnet::allowed('rin',$crs); |
|
} |
} |
|
my $seehidden = &can_see_hidden('',$ressymb,$feedurl,$group,$cdom,$cnum); |
if ($idx > 0) { |
if ($idx > 0) { |
my %messages = (); |
my %messages = (); |
my %subjects = (); |
my %subjects = (); |
my %attachmsgs = (); |
my %attachmsgs = (); |
my %allattachments = (); |
my %allattachments = (); |
my %imsfiles = (); |
my %imsfiles = (); |
my ($screenname,$plainname); |
my ($screenname,$plainname,$showaboutme); |
my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'}, |
my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'}, |
$env{'course.'.$env{'request.course.id'}.'.domain'}, |
$cdom,$cnum); |
$env{'course.'.$env{'request.course.id'}.'.num'}); |
$r->print(&get_post_contents(\%contrib,$idx,$seeid,$seehidden,'allversions',\%messages,\%subjects,\%allattachments,\%attachmsgs,\%imsfiles,\$screenname,\$plainname,\$showaboutme)); |
$r->print(&get_post_contents(\%contrib,$idx,$seeid,'allversions',\%messages,\%subjects,\%allattachments,\%attachmsgs,\%imsfiles,\$screenname,\$plainname)); |
|
} |
} |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
return OK; |
return OK; |
Line 3760 sub handler {
|
Line 4103 sub handler {
|
my $feedurl = '/adm/navmaps'; |
my $feedurl = '/adm/navmaps'; |
if ($env{'form.navurl'}) { $feedurl .= '?'.$env{'form.navurl'}; } |
if ($env{'form.navurl'}) { $feedurl .= '?'.$env{'form.navurl'}; } |
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
'mnpa' => 'Marked "New" posts as read in a total of', |
|
'robb' => 'resources/bulletin boards.', |
|
'twnp' => 'There are currently no resources or discussion boards with unread discussion postings.' |
'twnp' => 'There are currently no resources or discussion boards with unread discussion postings.' |
); |
); |
foreach my $res (@resources) { |
foreach my $res (@resources) { |
Line 3770 sub handler {
|
Line 4111 sub handler {
|
my $lastkey = $ressymb.'_lastread'; |
my $lastkey = $ressymb.'_lastread'; |
$discinfo{$lastkey} = $env{'form.navtime'}; |
$discinfo{$lastkey} = $env{'form.navtime'}; |
} |
} |
my $textline = "<b>$lt{'mnpa'} $numitems $lt{'robb'}</b>"; |
my $textline = '<b>'. |
|
&mt('Marked "New" posts as read in a total of [_1] resources/discussion boards.', |
|
$numitems). |
|
'</b>'; |
if ($numitems > 0) { |
if ($numitems > 0) { |
&Apache::lonnet::put('nohist_'.$env{'request.course.id'}.'_discuss', |
&Apache::lonnet::put('nohist_'.$env{'request.course.id'}.'_discuss', |
\%discinfo,$env{'user.domain'},$env{'user.name'}); |
\%discinfo,$env{'user.domain'},$env{'user.name'}); |
Line 3846 ENDREDIR
|
Line 4190 ENDREDIR
|
my $entry=$env{'form.hide'}?$env{'form.hide'}:$env{'form.unhide'}; |
my $entry=$env{'form.hide'}?$env{'form.hide'}:$env{'form.unhide'}; |
my ($symb,$idx)=split(/\:\:\:/,$entry); |
my ($symb,$idx)=split(/\:\:\:/,$entry); |
($symb,my $feedurl)=&get_feedurl_and_clean_symb($symb); |
($symb,my $feedurl)=&get_feedurl_and_clean_symb($symb); |
|
my $ressymb = &wrap_symb($symb); |
|
|
my $crs='/'.$env{'request.course.id'}; |
my $seehidden = &can_see_hidden('',$ressymb,$feedurl,$group,$cdom,$cnum); |
if ($env{'request.course.sec'}) { |
unless (($seehidden) || (&editing_allowed($env{'form.hide'},$group))) { |
$crs.='_'.$env{'request.course.sec'}; |
&redirect_back($r,$feedurl,&mt('Hiding not permitted').'<br />', |
} |
'0','0','','',$env{'form.previous'},'','','','', |
$crs=~s/\_/\//g; |
undef,undef,$group); |
my $seeid=&Apache::lonnet::allowed('rin',$crs); |
|
|
|
if ($env{'form.hide'} && !$seeid && !(&editing_allowed($env{'form.hide'},$env{'form.group'}))) { |
|
&redirect_back($r,$feedurl,&mt('Deletion not permitted').'<br />', '0','0','','',$env{'form.previous'},'','','','', |
|
undef,undef,$group,); |
|
return OK; |
return OK; |
} |
} |
|
|
my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'}, |
my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'}, |
$env{'course.'.$env{'request.course.id'}.'.domain'}, |
$cdom,$cnum); |
$env{'course.'.$env{'request.course.id'}.'.num'}); |
|
|
|
my $currenthidden=$contrib{'hidden'}; |
my $currenthidden=$contrib{'hidden'}; |
my $currentstudenthidden=$contrib{'studenthidden'}; |
my $currentstudenthidden=$contrib{'studenthidden'}; |
|
|
if ($env{'form.hide'}) { |
if ($env{'form.hide'}) { |
$currenthidden.='.'.$idx.'.'; |
$currenthidden.='.'.$idx.'.'; |
unless ($seeid) { |
unless ($seehidden) { |
$currentstudenthidden.='.'.$idx.'.'; |
$currentstudenthidden.='.'.$idx.'.'; |
} |
} |
} else { |
} else { |
$currenthidden=~s/\.$idx\.//g; |
$currenthidden=~s/\.$idx\.//g; |
} |
} |
my %newhash=('hidden' => $currenthidden); |
my %newhash=('hidden' => $currenthidden); |
if ( ($env{'form.hide'}) && (!$seeid) ) { |
if ( ($env{'form.hide'}) && (!$seehidden) ) { |
$newhash{'studenthidden'} = $currentstudenthidden; |
$newhash{'studenthidden'} = $currentstudenthidden; |
} |
} |
if ($env{'form.hide'}) { |
if ($env{'form.hide'}) { |
Line 3885 ENDREDIR
|
Line 4224 ENDREDIR
|
($changelast,$newlast) = &get_discussion_info($idx,%contrib); |
($changelast,$newlast) = &get_discussion_info($idx,%contrib); |
if ($changelast) { |
if ($changelast) { |
&Apache::lonnet::put('discussiontimes',{$symb => $newlast}, |
&Apache::lonnet::put('discussiontimes',{$symb => $newlast}, |
$env{'course.'.$env{'request.course.id'}.'.domain'}, |
$cdom,$cnum); |
$env{'course.'.$env{'request.course.id'}.'.num'}); |
|
} |
} |
} |
} |
&Apache::lonnet::store(\%newhash,$symb,$env{'request.course.id'}, |
my $result; |
$env{'course.'.$env{'request.course.id'}.'.domain'}, |
if (&Apache::lonnet::store(\%newhash,$symb,$env{'request.course.id'}, |
$env{'course.'.$env{'request.course.id'}.'.num'}); |
$cdom,$cnum) eq 'ok') { |
|
my $prefix=$symb.':'.$idx.':'; |
&redirect_back($r,$feedurl,&mt('Changed discussion status').'<br />', |
my %likes=&Apache::lonnet::dump('disclikes',$cdom,$cnum, |
'0','0','','',$env{'form.previous'},undef,undef,undef, |
'^'.$prefix); |
|
my ($totallikes,$totalunlikes); |
|
if (ref($likes{$prefix.'likers'}) eq 'HASH') { |
|
$totallikes = scalar(keys(%{$likes{$prefix.'likers'}})); |
|
} |
|
if (ref($likes{$prefix.'unlikers'}) eq 'HASH') { |
|
$totalunlikes = scalar(keys(%{$likes{$prefix.'unlikers'}})); |
|
} |
|
if ($totallikes || $totalunlikes) { |
|
my ($chglikes,$chgunlikes,$context); |
|
if ($env{'form.hide'}) { |
|
$chglikes = -1 * $totallikes; |
|
$chgunlikes = -1 * $totalunlikes; |
|
$context = 'hide'; |
|
} else { |
|
$chglikes = $totallikes; |
|
$chgunlikes = $totalunlikes; |
|
$context = 'unhide'; |
|
} |
|
&storediscussionlikes($chglikes,$chgunlikes, |
|
$contrib{$idx.':sendername'}, |
|
$contrib{$idx.':senderdomain'}, |
|
$env{'request.course.id'}, |
|
$context); |
|
|
|
} |
|
$result = &mt('Changed discussion status'); |
|
} else { |
|
$result = &mt('Discussion status unchanged'); |
|
} |
|
&redirect_back($r,$feedurl,$result.'<br />','0','0','','', |
|
$env{'form.previous'},undef,undef,undef, |
undef,undef,undef,$group); |
undef,undef,undef,$group); |
return OK; |
return OK; |
} elsif (($env{'form.like'}) || ($env{'form.unlike'})) { |
} elsif (($env{'form.like'}) || ($env{'form.unlike'})) { |
Line 3902 ENDREDIR
|
Line 4271 ENDREDIR
|
my $entry=$env{'form.like'}?$env{'form.like'}:$env{'form.unlike'}; |
my $entry=$env{'form.like'}?$env{'form.like'}:$env{'form.unlike'}; |
my ($symb,$idx)=split(/\:\:\:/,$entry); |
my ($symb,$idx)=split(/\:\:\:/,$entry); |
($symb,my $feedurl)=&get_feedurl_and_clean_symb($symb); |
($symb,my $feedurl)=&get_feedurl_and_clean_symb($symb); |
|
my $result; |
|
if ($idx > 0) { |
|
my $realsymb = &get_realsymb($symb); |
|
my $status='OPEN'; |
|
if ($Apache::lonhomework::parsing_a_problem || |
|
$Apache::lonhomework::parsing_a_task) { |
|
$status=$Apache::inputtags::status[-1]; |
|
} |
|
if (&discussion_vote_available($status,$realsymb)) { |
|
my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'}, |
|
$cdom,$cnum); |
|
my $ownpost; |
|
if (($contrib{$idx.':sendername'} eq $env{'user.name'}) && |
|
($contrib{$idx.':senderdomain'} eq $env{'user.domain'})) { |
|
$ownpost = 1; |
|
} |
|
if ($ownpost || $contrib{$idx.':hidden'} || $contrib{$idx.':deleted'}) { |
|
$result = &mt('Vote not registered.').' '; |
|
} |
|
if ($ownpost) { |
|
$result .= &mt('No voting for your own posts.'); |
|
} elsif ($contrib{$idx.':hidden'}) { |
|
$result .= &mt('No voting for hidden posts.'); |
|
} elsif ($contrib{$idx.':deleted'}) { |
|
$result .= &mt('No voting for deleted posts.'); |
|
} else { |
# |
# |
# Likes and unlikes are in db-file "disclikes" of the course |
# Likes and unlikes are in db-file "disclikes" of the course |
# The prefix is the $symb to identify the resource discussion, |
# The prefix is the $symb to identify the resource discussion, |
# and the $idx to identify the entry |
# and the $idx to identify the entry |
# |
# |
my $prefix=$symb.':'.$idx.':'; |
my $prefix=$symb.':'.$idx.':'; |
my %contrib=&Apache::lonnet::dump('disclikes', |
my %likes=&Apache::lonnet::dump('disclikes',$cdom,$cnum, |
$env{'course.'.$env{'request.course.id'}.'.domain'}, |
'^'.$prefix); |
$env{'course.'.$env{'request.course.id'}.'.num'}, |
|
'^'.$prefix); |
# Get current like or unlike status for the $idx for this user. |
# Get all who like or unlike this |
my $thisuser=$env{'user.name'}.':'.$env{'user.domain'}; |
my $currentlikers=$contrib{$prefix.'likers'}; |
my ($userlikes,$userunlikes); |
my $currentunlikers=$contrib{$prefix.'unlikers'}; |
if (ref($likes{$prefix.'likers'}) eq 'HASH') { |
|
if (exists($likes{$prefix.'likers'}{$thisuser})) { |
|
$userlikes = 1; |
|
} |
|
} |
|
if (ref($likes{$prefix.'unlikers'}) eq 'HASH') { |
|
if (exists($likes{$prefix.'unlikers'}{$thisuser})) { |
|
$userunlikes = 1; |
|
} |
|
} |
# Get the current "likes" count |
# Get the current "likes" count |
my $likes=$contrib{$prefix.'likes'}; |
my $likescount=$likes{$prefix.'likes'}; |
# Find out if they already voted |
# Find out if they already voted |
# Users cannot like a post twice, or unlike it twice. They can change their mind, though |
# Users cannot like a post twice, or unlike it twice. |
my $alreadyflag=0; |
# They can change their mind, though. |
my $thisuser=$env{'user.name'}.':'.$env{'user.domain'}; |
my $alreadyflag=0; |
if ($env{'form.like'}) { |
my $votetype; |
if ($currentlikers=~/\,\Q$thisuser\E\,/) { |
if ($env{'form.like'}) { |
$alreadyflag=1; |
if ($userlikes) { |
} else { |
$alreadyflag=1; |
if ($currentunlikers=~/\,\Q$thisuser\E\,/) { |
} elsif ($userunlikes) { |
$currentunlikers=~s/\,\Q$thisuser\E\,//g; |
delete($likes{$prefix.'unlikers'}{$thisuser}); |
} else { |
$votetype = 'switch'; |
$currentlikers.=','.$thisuser.','; |
$likescount++; |
} |
} else { |
$likes++; |
if (ref($likes{$prefix.'likers'}) eq 'HASH') { |
} |
$likes{$prefix.'likers'}{$thisuser} = 1; |
} else { |
} else { |
if ($currentunlikers=~/\,\Q$thisuser\E\,/) { |
$likes{$prefix.'likers'} = {$thisuser => 1}; |
$alreadyflag=1; |
} |
} else { |
$likescount++; |
if ($currentlikers=~/\,\Q$thisuser\E\,/) { |
} |
$currentlikers=~s/\,\Q$thisuser\E\,//g; |
} else { |
} else { |
if ($userunlikes) { |
$currentunlikers.=','.$thisuser.','; |
$alreadyflag=1; |
} |
} elsif ($userlikes) { |
$likes--; |
delete($likes{$prefix.'likers'}{$thisuser}); |
} |
$votetype = 'switch'; |
} |
$likescount--; |
my $result; |
} else { |
|
if (ref($likes{$prefix.'unlikers'}) eq 'HASH') { |
|
$likes{$prefix.'unlikers'}{$thisuser} = 1; |
|
} else { |
|
$likes{$prefix.'unlikers'} = {$thisuser => 1}; |
|
} |
|
$likescount--; |
|
} |
|
} |
# $alreadyflag would be 1 if they tried to double-like or double-unlike |
# $alreadyflag would be 1 if they tried to double-like or double-unlike |
unless ($alreadyflag) { |
if ($alreadyflag) { |
my %newhash=($prefix.'likes' => $likes, |
if ($env{'form.like'}) { |
$prefix.'likers' => $currentlikers, |
$result= &mt("'Like' already registered"); |
$prefix.'unlikers' => $currentunlikers); |
} else { |
|
$result= &mt("'Unlike' already registered"); |
|
} |
|
} else { |
|
my %newhash=($prefix.'likes' => $likescount, |
|
$prefix.'likers' => $likes{$prefix.'likers'}, |
|
$prefix.'unlikers' => $likes{$prefix.'unlikers'}); |
# Store data in db-file "disclikes" |
# Store data in db-file "disclikes" |
if (&Apache::lonnet::put('disclikes', |
if (&Apache::lonnet::put('disclikes',\%newhash,$cdom,$cnum) eq 'ok') { |
\%newhash, |
|
$env{'course.'.$env{'request.course.id'}.'.domain'}, |
|
$env{'course.'.$env{'request.course.id'}.'.num'}) eq 'ok') { |
|
# Also store with the person who posted the liked/unliked entry |
# Also store with the person who posted the liked/unliked entry |
if ($env{'form.like'}) { |
my ($chglike,$chgunlike); |
&storediscussionlikes(1,$contrib{$idx.':sendername'},$contrib{$idx.':senderdomain'}); |
if ($env{'form.like'}) { |
$result=&mt("Registered 'Like'"); |
if ($votetype eq 'switch') { |
} else { |
$chglike = 0; |
&storediscussionlikes(-1,$contrib{$idx.':sendername'},$contrib{$idx.':senderdomain'}); |
$chgunlike = -1; |
$result=&mt("Registered 'Unlike'"); |
} else { |
|
$chglike = 1; |
|
$chgunlike = 0; |
|
} |
|
&storediscussionlikes($chglike,$chgunlike, |
|
$contrib{$idx.':sendername'}, |
|
$contrib{$idx.':senderdomain'}, |
|
$env{'request.course.id'},'like'); |
|
$result=&mt("Registered 'Like'"); |
|
} else { |
|
if ($votetype eq 'switch') { |
|
$chglike = -1; |
|
$chgunlike = 0; |
|
} else { |
|
$chglike = 0; |
|
$chgunlike = 1; |
|
} |
|
&storediscussionlikes($chglike,$chgunlike, |
|
$contrib{$idx.':sendername'}, |
|
$contrib{$idx.':senderdomain'}, |
|
$env{'request.course.id'},'unlike'); |
|
$result=&mt("Registered 'Unlike'"); |
|
} |
|
} else { |
|
# Oops, something went wrong |
|
$result=&mt("Failed to register vote"); |
|
} |
|
} |
} |
} |
} else { |
} else { |
# Oops, something went wrong |
$result=&mt('Voting unavailable for this discussion'); |
$result=&mt("Failed to register vote"); |
|
} |
} |
|
} else { |
|
$result=&mt('Invalid post number'); |
} |
} |
&redirect_back($r,$feedurl,$result.'<br />', |
&redirect_back($r,$feedurl,$result.'<br />', |
'0','0','','',$env{'form.previous'},undef,undef,undef, |
'0','0','','',$env{'form.previous'},undef,undef,undef, |
Line 3974 ENDREDIR
|
Line 4417 ENDREDIR
|
return OK; |
return OK; |
} elsif ($env{'form.cmd'}=~/^(threadedoff|threadedon)$/) { |
} elsif ($env{'form.cmd'}=~/^(threadedoff|threadedon)$/) { |
my ($symb,$feedurl)=&get_feedurl_and_clean_symb($env{'form.symb'}); |
my ($symb,$feedurl)=&get_feedurl_and_clean_symb($env{'form.symb'}); |
if ($env{'form.cmd'} eq 'threadedon') { |
if ($env{'form.cmd'} eq 'threadedoff') { |
|
&Apache::lonnet::put('environment',{'unthreadeddiscussion' => 'on'}); |
|
&Apache::lonnet::appenv({'environment.unthreadeddiscussion' => 'on'}); |
|
&Apache::lonnet::del('environment',['threadeddiscussion']); |
|
&Apache::lonnet::delenv('environment.threadeddiscussion'); |
|
} else { |
&Apache::lonnet::put('environment',{'threadeddiscussion' => 'on'}); |
&Apache::lonnet::put('environment',{'threadeddiscussion' => 'on'}); |
&Apache::lonnet::appenv({'environment.threadeddiscussion' => 'on'}); |
&Apache::lonnet::appenv({'environment.threadeddiscussion' => 'on'}); |
} else { |
&Apache::lonnet::del('environment',['unthreadeddiscussion']); |
&Apache::lonnet::del('environment',['threadeddiscussion']); |
&Apache::lonnet::delenv('environment.unthreadeddiscussion'); |
&Apache::lonnet::delenv('environment.threadeddiscussion'); |
|
} |
} |
&redirect_back($r,$feedurl,&mt('Changed discussion view mode').'<br />', |
&redirect_back($r,$feedurl,&mt('Changed discussion view mode').'<br />', |
'0','0','','',$env{'form.previous'},undef,undef,undef, |
'0','0','','',$env{'form.previous'},undef,undef,undef, |
Line 3989 ENDREDIR
|
Line 4436 ENDREDIR
|
# --------------------------------------------------------------- Hide for good |
# --------------------------------------------------------------- Hide for good |
my ($symb,$idx)=split(/\:\:\:/,$env{'form.deldisc'}); |
my ($symb,$idx)=split(/\:\:\:/,$env{'form.deldisc'}); |
($symb,my $feedurl)=&get_feedurl_and_clean_symb($symb); |
($symb,my $feedurl)=&get_feedurl_and_clean_symb($symb); |
|
my $ressymb=&wrap_symb($symb); |
|
|
|
unless (&can_see_hidden('',$ressymb,$feedurl,$group,$cdom,$cnum)) { |
|
&redirect_back($r,$feedurl,&mt('Deletion not permitted').'<br />', |
|
'0','0','','',$env{'form.previous'},'','','','', |
|
undef,undef,$group); |
|
return OK; |
|
} |
my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'}, |
my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'}, |
$env{'course.'.$env{'request.course.id'}.'.domain'}, |
$cdom,$cnum); |
$env{'course.'.$env{'request.course.id'}.'.num'}); |
|
my ($changelast,$newlast) = &get_discussion_info($idx,%contrib); |
my ($changelast,$newlast) = &get_discussion_info($idx,%contrib); |
if ($changelast) { |
if ($changelast) { |
&Apache::lonnet::put('discussiontimes',{$symb => $newlast}, |
&Apache::lonnet::put('discussiontimes',{$symb => $newlast}, |
$env{'course.'.$env{'request.course.id'}.'.domain'}, $env{'course.'.$env{'request.course.id'}.'.num'}); |
$cdom,$cnum); |
} |
} |
my %newhash=('deleted' => $contrib{'deleted'}.".$idx."); |
my %newhash=('deleted' => $contrib{'deleted'}.".$idx."); |
&Apache::lonnet::store(\%newhash,$symb,$env{'request.course.id'}, |
|
$env{'course.'.$env{'request.course.id'}.'.domain'}, |
my $result; |
$env{'course.'.$env{'request.course.id'}.'.num'}); |
if (&Apache::lonnet::store(\%newhash,$symb,$env{'request.course.id'}, |
&redirect_back($r,$feedurl,&mt('Changed discussion status').'<br />', |
$cdom,$cnum) eq 'ok') { |
'0','0','','',$env{'form.previous'},undef,undef,undef, |
$result = &mt('Changed discussion status'); |
|
my $prefix=$symb.':'.$idx.':'; |
|
my %likes=&Apache::lonnet::dump('disclikes',$cdom,$cnum, |
|
'^'.$prefix); |
|
my ($totallikes,$totalunlikes); |
|
if (ref($likes{$prefix.'likers'}) eq 'HASH') { |
|
$totallikes = scalar(keys(%{$likes{$prefix.'likers'}})); |
|
} |
|
if (ref($likes{$prefix.'unlikers'}) eq 'HASH') { |
|
$totalunlikes = scalar(keys(%{$likes{$prefix.'unlikers'}})); |
|
} |
|
if ($totallikes || $totalunlikes) { |
|
my $chglikes = -1 * $totallikes; |
|
my $chgunlikes = -1 * $totalunlikes; |
|
&storediscussionlikes($chglikes,$chgunlikes, |
|
$contrib{$idx.':sendername'}, |
|
$contrib{$idx.':senderdomain'}, |
|
$env{'request.course.id'}, |
|
'delete'); |
|
} |
|
} else { |
|
$result = &mt('Discussion status unchanged'); |
|
} |
|
&redirect_back($r,$feedurl,$result.'<br />','0','0','','', |
|
$env{'form.previous'},undef,undef,undef, |
undef,undef,undef,$group); |
undef,undef,undef,$group); |
return OK; |
return OK; |
} elsif ($env{'form.preview'}) { |
} elsif ($env{'form.preview'}) { |
Line 4030 ENDREDIR
|
Line 4508 ENDREDIR
|
my $idx = $env{'form.idx'}; |
my $idx = $env{'form.idx'}; |
if ($idx) { |
if ($idx) { |
my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'}, |
my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'}, |
$env{'course.'.$env{'request.course.id'}.'.domain'}, |
$cdom,$cnum); |
$env{'course.'.$env{'request.course.id'}.'.num'}); |
|
$attachmenturls = $contrib{$idx.':attachmenturl'}; |
$attachmenturls = $contrib{$idx.':attachmenturl'}; |
} |
} |
&modify_attachments($r,\@currnewattach,\@currdelold,$symb,$idx, |
&modify_attachments($r,\@currnewattach,\@currdelold,$symb,$idx, |
Line 4048 ENDREDIR
|
Line 4525 ENDREDIR
|
$mode='problem'; |
$mode='problem'; |
$status=$Apache::inputtags::status[-1]; |
$status=$Apache::inputtags::status[-1]; |
} |
} |
|
|
my $discussion = &list_discussion($mode,$status,$symb); |
my $discussion = &list_discussion($mode,$status,$symb); |
my $start_page = |
my $start_page = |
&Apache::loncommon::start_page('Resource Feedback and Discussion'); |
&Apache::loncommon::start_page('Resource Feedback and Discussion'); |
Line 4055 ENDREDIR
|
Line 4533 ENDREDIR
|
&Apache::loncommon::end_page(); |
&Apache::loncommon::end_page(); |
$r->print($start_page.$discussion.$end_page); |
$r->print($start_page.$discussion.$end_page); |
return OK; |
return OK; |
|
|
|
} elsif ($env{'form.undeleteall'}) { |
|
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->send_http_header; |
|
my ($symb,$feedurl) = &get_feedurl_and_clean_symb($env{'form.undeleteall'}); |
|
my $ressymb=&wrap_symb($symb); |
|
$r->print(&Apache::loncommon::start_page('Undelete all deleted discussion entries')); |
|
if (&can_see_hidden('',$ressymb,$feedurl,$group,$cdom,$cnum)) { |
|
my %contrib=&Apache::lonnet::restore($symb,$env{'request.course.id'}, |
|
$cdom,$cnum); |
|
$contrib{'deleted'} =~ s/^\.//; |
|
$contrib{'deleted'} =~ s/\.$//; |
|
my $confirm_msg; |
|
if ($contrib{'deleted'} ne '') { |
|
if (&Apache::lonnet::store({'deleted' => ''},$symb,$env{'request.course.id'}, |
|
$cdom,$cnum) eq 'ok') { |
|
my %likes=&Apache::lonnet::dump('disclikes',$cdom,$cnum,'^'.$symb.':'); |
|
my @ids = split(/\.\./,$contrib{'deleted'}); |
|
my (%chglikes,%chgunlikes); |
|
foreach my $idx (@ids) { |
|
my $uname = $contrib{$idx.':sendername'}; |
|
my $udom = $contrib{$idx.':senderdomain'}; |
|
my ($totallikes,$totalunlikes); |
|
if (ref($likes{$symb.':'.$idx.':likers'}) eq 'HASH') { |
|
$totallikes = scalar(keys(%{$likes{$symb.':'.$idx.':likers'}})); |
|
} |
|
if (ref($likes{$symb.':'.$idx.':unlikers'}) eq 'HASH') { |
|
$totalunlikes = scalar(keys(%{$likes{$symb.':'.$idx.':unlikers'}})); |
|
} |
|
if ($totallikes || $totalunlikes) { |
|
$chglikes{$uname.':'.$udom} += $totallikes; |
|
$chgunlikes{$uname.':'.$udom} += $totalunlikes; |
|
} |
|
} |
|
foreach my $user (keys(%chglikes)) { |
|
my ($uname,$udom) = split(/:/,$user); |
|
&storediscussionlikes($chglikes{$user},$chgunlikes{$user}, |
|
$uname,$udom,$env{'request.course.id'}, |
|
'undelete'); |
|
} |
|
$confirm_msg = &Apache::lonhtmlcommon::confirm_success(&mt("Undeleted all entries")); |
|
} else { |
|
$confirm_msg = &Apache::lonhtmlcommon::confirm_success(&mt("Failed to undelete entries"),1); |
|
} |
|
} else { |
|
$confirm_msg = &Apache::lonhtmlcommon::confirm_success(&mt("No entries to undelete"),1); |
|
} |
|
$r->print( |
|
'<br />' |
|
.&Apache::loncommon::confirmwrapper($confirm_msg) |
|
.&Apache::lonhtmlcommon::actionbox( |
|
["<a href='$feedurl'>".&mt("Return and reload")."</a>"]) |
|
); |
|
} |
|
$r->print(&Apache::loncommon::end_page()); |
|
return OK; |
} else { |
} else { |
# ------------------------------------------------------------- Normal feedback |
# ------------------------------------------------------------- Normal feedback |
my $feedurl=$env{'form.postdata'}; |
my $feedurl=$env{'form.postdata'}; |
Line 4070 ENDREDIR
|
Line 4604 ENDREDIR
|
$symb=(split(/\:\:\:/,$env{'form.editdisc'}))[0]; |
$symb=(split(/\:\:\:/,$env{'form.editdisc'}))[0]; |
} elsif ($env{'form.origpage'}) { |
} elsif ($env{'form.origpage'}) { |
$symb=""; |
$symb=""; |
|
} elsif ($env{'form.sendmessageonly'}) { |
|
$symb=(split(/\:\:\:/,$env{'form.sendmessageonly'}))[0]; |
} else { |
} else { |
$symb=&Apache::lonnet::symbread($feedurl); |
$symb=&Apache::lonnet::symbread($feedurl); |
} |
} |
Line 4092 ENDREDIR
|
Line 4628 ENDREDIR
|
$r->internal_redirect('/adm/ambiguous'); |
$r->internal_redirect('/adm/ambiguous'); |
return OK; |
return OK; |
} |
} |
|
if ($feedurl eq '') { |
|
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->send_http_header; |
|
&no_redirect_back($r); |
|
return OK; |
|
} |
# Go ahead with feedback, no ambiguous reference |
# Go ahead with feedback, no ambiguous reference |
unless ( |
unless ( |
( |
( |
Line 4106 ENDREDIR
|
Line 4648 ENDREDIR
|
$r->send_http_header; |
$r->send_http_header; |
# Unable to give feedback |
# Unable to give feedback |
&Apache::lonenc::check_encrypt(\$feedurl); |
&Apache::lonenc::check_encrypt(\$feedurl); |
&no_redirect_back($r,$feedurl); |
&no_redirect_back($r,$feedurl,2); |
return OK; |
return OK; |
} |
} |
# --------------------------------------------------- Print login screen header |
# --------------------------------------------------- Print login screen header |
Line 4126 ENDREDIR
|
Line 4668 ENDREDIR
|
if ($options) { |
if ($options) { |
&mail_screen($r,$feedurl,$options,$symb,$attachmax{'text'}); |
&mail_screen($r,$feedurl,$options,$symb,$attachmax{'text'}); |
} else { |
} else { |
&fail_redirect($r,$feedurl); |
&fail_redirect($r,$feedurl,2); |
} |
} |
return OK; |
return OK; |
} |
} |
Line 4192 ENDREDIR
|
Line 4734 ENDREDIR
|
my ($typestyle,%to) = &Apache::lonmsg::decide_receiver($feedurl); |
my ($typestyle,%to) = &Apache::lonmsg::decide_receiver($feedurl); |
|
|
# Actually send mail |
# Actually send mail |
my ($status,$numsent)=&send_msg(&clear_out_html($env{'form.subject'}), |
my $clientip = &Apache::lonnet::get_requestor_ip($r); |
$feedurl,$email,$citations, |
my ($status,$numsent,$delay)=&send_msg(&clear_out_html($env{'form.subject'}), |
$attachmenturl,$usersymb,%to); |
$feedurl,$email,$citations, |
|
$attachmenturl,$usersymb,$clientip,%to); |
|
|
# Discussion? Store that. |
# Discussion? Store that. |
my $numpost=0; |
my $numpost=0; |
Line 4225 ENDREDIR
|
Line 4768 ENDREDIR
|
} |
} |
|
|
# Receipt screen and redirect back to where came from |
# Receipt screen and redirect back to where came from |
&redirect_back($r,$feedurl,$typestyle,$numsent,$numpost,$blog,$status,$env{'form.previous'},undef,undef,undef,undef,undef,undef,$group,$toolarge); |
&redirect_back($r,$feedurl,$typestyle,$numsent,$numpost,$blog,$status,$env{'form.previous'}, |
|
undef,undef,undef,undef,undef,undef,$group,$toolarge,$delay); |
} |
} |
return OK; |
return OK; |
} |
} |
Line 4248 sub wrap_symb {
|
Line 4792 sub wrap_symb {
|
} |
} |
return $ressymb; |
return $ressymb; |
} |
} |
|
|
sub dewrapper { |
sub dewrapper { |
my ($feedurl)=@_; |
my ($feedurl)=@_; |
if ($$feedurl=~m|^/adm/wrapper/adm/.*/bulletinboard$|) { |
if ($$feedurl=~m|^/adm/wrapper/adm/.*/bulletinboard$|) { |
Line 4401 None
|
Line 4946 None
|
|
|
=item discussion_visible() |
=item discussion_visible() |
|
|
|
=item discussion_vote_available() |
|
|
|
=item get_realsymb() |
|
|
=item list_discussion() |
=item list_discussion() |
|
|
|
=item can_see_hidden() |
|
|
|
=item discussion_link() |
|
|
=item send_feedback_link() |
=item send_feedback_link() |
|
|
=item send_message_link() |
=item send_message_link() |