version 1.304, 2010/11/20 01:07:05
|
version 1.307, 2011/12/10 22:54:34
|
Line 135 sub list_discussion {
|
Line 135 sub list_discussion {
|
$crs=~s/\_/\//g; |
$crs=~s/\_/\//g; |
my $encsymb=&Apache::lonenc::check_encrypt($ressymb); |
my $encsymb=&Apache::lonenc::check_encrypt($ressymb); |
my $viewgrades=(&Apache::lonnet::allowed('vgr',$crs) |
my $viewgrades=(&Apache::lonnet::allowed('vgr',$crs) |
&& ($ressymb=~/\.(problem|exam|quiz|assess|survey|form|task)$/)); |
&& ($ressymb=~/$LONCAPA::assess_re/)); |
|
|
my %usernamesort = (); |
my %usernamesort = (); |
my %namesort =(); |
my %namesort =(); |
Line 281 sub list_discussion {
|
Line 281 sub list_discussion {
|
my $maxdepth=0; |
my $maxdepth=0; |
my %anonhash=(); |
my %anonhash=(); |
my $anoncnt=0; |
my $anoncnt=0; |
my $target=''; |
|
|
|
my $now = time; |
my $now = time; |
$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,$target,$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,$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 756 END
|
Line 755 END
|
&Apache::lonnet::allowed('pch', |
&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'}:''))) { |
$discussion.= &send_feedback_link($ressymb,$target); |
$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); |
if (defined($close) && $close ne '' && $close < time) { |
if (defined($close) && $close ne '' && $close < time) { |
Line 772 END
|
Line 771 END
|
return $discussion; |
return $discussion; |
} |
} |
|
|
|
|
|
sub discussion_link { |
|
my ($ressymb,$linktext,$cmd,$item,$flag,$prev,$adds)=@_; |
|
my $link='/adm/feedback?inhibitmenu=yes&modal=yes&'.$cmd.'='.&escape($ressymb).':::'.$item; |
|
if ($flag) { $link .= '&previous='.$prev; } |
|
if ($adds) { $link .= $adds; } |
|
return &Apache::loncommon::modal_link($link,$linktext,600,400); |
|
} |
|
|
|
|
sub send_feedback_link { |
sub send_feedback_link { |
my ($ressymb,$target) = @_; |
my ($ressymb) = @_; |
my $output = '<span class="LC_feedback_link">'. |
return '<span class="LC_feedback_link">'. |
' <a href="/adm/feedback?replydisc='. |
&discussion_link($ressymb, |
&escape($ressymb).':::" '.$target.'>'. |
'<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>', |
'" border="0" /><span class="LC_menubuttons_inline_text">'.&mt('Post Discussion').'</span></a></span>'; |
'replydisc'). |
return $output; |
'</span>'; |
} |
} |
|
|
sub send_message_link { |
sub send_message_link { |
Line 922 ENDDISCUSS
|
Line 931 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,$target,$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,$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 1101 sub build_posting_display {
|
Line 1110 sub build_posting_display {
|
$sender .= '&previous='.$prevread; |
$sender .= '&previous='.$prevread; |
} |
} |
$sender .= &group_args($group); |
$sender .= &group_args($group); |
$sender .= '" '.$target.'>'.&mt('Edit').'</a>'; |
$sender .= '">'.&mt('Edit').'</a>'; |
|
|
unless ($seeid) { |
unless ($seeid) { |
my $grpargs = &group_args($group); |
my $grpargs = &group_args($group); |
Line 1165 sub build_posting_display {
|
Line 1174 sub build_posting_display {
|
if (&discussion_open($status)) { |
if (&discussion_open($status)) { |
if (($group ne '') && |
if (($group ne '') && |
(&check_group_priv($group,'pgd') eq 'ok')) { |
(&check_group_priv($group,'pgd') eq 'ok')) { |
$sender.=' <a href="/adm/feedback?replydisc='. |
$sender.=' '. |
$escsymb.':::'.$idx; |
&discussion_link($symb,&mt('Reply'),'replydisc',$idx,$$newpostsflag,$prevread,&group_args($group)); |
if ($$newpostsflag) { |
|
$sender .= '&previous='.$prevread; |
|
} |
|
$sender .= &group_args($group); |
|
$sender .= '" '.$target.'>'.&mt('Reply').'</a>'; |
|
} 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.=' <a href="/adm/feedback?replydisc='. |
$sender.=' '. |
$escsymb.':::'.$idx; |
&discussion_link($symb,&mt('Reply'),'replydisc',$idx,$$newpostsflag,$prevread); |
if ($$newpostsflag) { |
|
$sender .= '&previous='.$prevread; |
|
} |
|
$sender .= '" '.$target.'>'.&mt('Reply').'</a>'; |
|
} |
} |
} |
} |
if ($viewgrades) { |
if ($viewgrades) { |
Line 1728 END
|
Line 1728 END
|
'text' => 'Resource Feedback and Discussion'}]; |
'text' => 'Resource Feedback and Discussion'}]; |
|
|
my %onload = ('onload' => 'window.focus();setposttype();'); |
my %onload = ('onload' => 'window.focus();setposttype();'); |
|
my %parms=('add_entries' => \%onload); |
|
if ($env{'form.modal'} ne 'yes') { 'bread_crumbs' => $brcrum } |
my $start_page= |
my $start_page= |
&Apache::loncommon::start_page('Resource Feedback and Discussion',$js, |
&Apache::loncommon::start_page('Resource Feedback and Discussion',$js,\%parms); |
{'add_entries' => \%onload, |
|
'bread_crumbs' => $brcrum,}); |
|
|
|
if ($quote ne '') { |
if ($quote ne '') { |
$quote = &HTML::Entities::decode($quote); |
$quote = &HTML::Entities::decode($quote); |
Line 1748 $start_page
|
Line 1748 $start_page
|
enctype="multipart/form-data"> |
enctype="multipart/form-data"> |
$prevtag |
$prevtag |
<input type="hidden" name="postdata" value="$feedurl" /> |
<input type="hidden" name="postdata" value="$feedurl" /> |
|
<input type="hidden" name="modal" value="$env{'form.modal'}" /> |
END |
END |
if ($env{'form.replydisc'}) { |
if ($env{'form.replydisc'}) { |
$r->print(<<END); |
$r->print(<<END); |
Line 2570 sub redirect_back {
|
Line 2571 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 %onload; |
my %parms=('only_body' => 1); |
|
if ($env{'form.modal'}) { |
|
$parms{'add_entries'}={'onLoad' => 'document.forms.reldt.submit()'}; |
|
} else { |
|
$parms{'redirect'}=[0,$feedurl]; |
|
} |
my $start_page= |
my $start_page= |
&Apache::loncommon::start_page('Feedback sent',undef, |
&Apache::loncommon::start_page('Feedback sent',undef,\%parms); |
{'redirect' => [0,$feedurl], |
|
'only_body' => 1, |
|
'add_entries' => \%onload}); |
|
my $end_page = &Apache::loncommon::end_page(); |
my $end_page = &Apache::loncommon::end_page(); |
$r->print(<<ENDREDIR); |
$r->print(<<ENDREDIR); |
$start_page |
$start_page |
Line 3105 END
|
Line 3108 END
|
# Breadcrumbs |
# Breadcrumbs |
my $brcrum = [{'href' => '', |
my $brcrum = [{'href' => '', |
'text' => 'Discussion Post Attachments'}]; |
'text' => 'Discussion Post Attachments'}]; |
|
my %parms=(); |
|
if ($env{'form.modal'} ne 'yes') { 'bread_crumbs' => $brcrum } |
|
|
my $start_page = |
my $start_page = |
&Apache::loncommon::start_page('Discussion Post Attachments',$js, |
&Apache::loncommon::start_page('Discussion Post Attachments',$js,\%parms); |
{'bread_crumbs' => $brcrum,}); |
|
|
|
my $orig_subject = &unescape($env{'form.subject'}); |
my $orig_subject = &unescape($env{'form.subject'}); |
my $subject=&clear_out_html($orig_subject); |
my $subject=&clear_out_html($orig_subject); |
Line 3468 sub handler {
|
Line 3473 sub handler {
|
# --------------------------- Get query string for limited number of parameters |
# --------------------------- Get query string for limited number of parameters |
|
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['hide','unhide','deldisc','postdata','preview','replydisc','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']); |
['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']); |
my $group = $env{'form.group'}; |
my $group = $env{'form.group'}; |
my %attachmax = ( |
my %attachmax = ( |
text => &mt('(128 KB max size)'), |
text => &mt('(128 KB max size)'), |
Line 3519 sub handler {
|
Line 3524 sub handler {
|
# Breadcrumbs |
# Breadcrumbs |
my $brcrum = [{'href' => '', |
my $brcrum = [{'href' => '', |
'text' => 'Discussion Post Versions'}]; |
'text' => 'Discussion Post Versions'}]; |
|
|
|
my %parms=(); |
|
if ($env{'form.modal'} ne 'yes') { 'bread_crumbs' => $brcrum } |
|
|
$r->print(&Apache::loncommon::start_page('Discussion Post Versions',undef, |
$r->print(&Apache::loncommon::start_page('Discussion Post Versions',undef,\%parms)); |
{'bread_crumbs' => $brcrum,}) |
|
); |
|
|
|
my $crs='/'.$env{'request.course.id'}; |
my $crs='/'.$env{'request.course.id'}; |
if ($env{'request.course.sec'}) { |
if ($env{'request.course.sec'}) { |
Line 3814 ENDREDIR
|
Line 3820 ENDREDIR
|
my $mode='board'; |
my $mode='board'; |
my $status='OPEN'; |
my $status='OPEN'; |
my $previous=$env{'form.previous'}; |
my $previous=$env{'form.previous'}; |
if ($feedurl =~ /\.(problem|exam|quiz|assess|survey|form|library|task)$/) { |
if ($feedurl =~ /$LONCAPA::assess_re/) { |
$mode='problem'; |
$mode='problem'; |
$status=$Apache::inputtags::status[-1]; |
$status=$Apache::inputtags::status[-1]; |
} |
} |
Line 3854 ENDREDIR
|
Line 3860 ENDREDIR
|
&dewrapper(\$feedurl); |
&dewrapper(\$feedurl); |
} |
} |
my $goahead=1; |
my $goahead=1; |
if ($feedurl=~/\.(problem|exam|quiz|assess|survey|form|task)$/) { |
if ($feedurl=~/$LONCAPA::assess_re/) { |
unless ($symb) { $goahead=0; } |
unless ($symb) { $goahead=0; } |
} |
} |
if (!$goahead) { |
if (!$goahead) { |