version 1.273.4.4, 2010/01/24 23:20:16
|
version 1.279, 2009/11/21 22:36:23
|
Line 91 sub list_discussion {
|
Line 91 sub list_discussion {
|
if (not &discussion_visible($status)) { |
if (not &discussion_visible($status)) { |
if ($mode ne 'board') { |
if ($mode ne 'board') { |
&Apache::lonenc::check_encrypt(\$ressymb); |
&Apache::lonenc::check_encrypt(\$ressymb); |
return '<br />'.&send_message_link($ressymb); |
return '<br /><div class="LC_feedback_link">'.&send_message_link($ressymb)."</div>"; |
} |
} |
} |
} |
if ($group ne '' && $mode eq 'board') { |
if ($group ne '' && $mode eq 'board') { |
Line 103 sub list_discussion {
|
Line 103 sub list_discussion {
|
my ($blocked,$blocktext) = |
my ($blocked,$blocktext) = |
&Apache::loncommon::blocking_status('boards'); |
&Apache::loncommon::blocking_status('boards'); |
if ($blocked) { |
if ($blocked) { |
|
$blocktext = '<br /><div class="LC_feedback_link"><span class="LC_feedback_link">'.$blocktext."</span>"; |
&Apache::lonenc::check_encrypt(\$ressymb); |
&Apache::lonenc::check_encrypt(\$ressymb); |
if ($mode ne 'board') { |
if ($mode ne 'board') { |
$blocktext.='<br />'.&send_message_link($ressymb); |
$blocktext.=&send_message_link($ressymb).'</div>'; |
|
}else{ |
|
$blocktext.="</div>"; |
} |
} |
return $blocktext; |
return $blocktext; |
} |
} |
Line 171 sub list_discussion {
|
Line 174 sub list_discussion {
|
my $cnum = $env{'course.'.$cid.'.num'}; |
my $cnum = $env{'course.'.$cid.'.num'}; |
my $crstype = &Apache::loncommon::course_type(); |
my $crstype = &Apache::loncommon::course_type(); |
|
|
|
|
# Get information about students and non-students in course for filtering display of posts |
# Get information about students and non-students in course for filtering display of posts |
my %roleshash = (); |
my %roleshash = (); |
my %roleinfo = (); |
my %roleinfo = (); |
Line 757 sub send_feedback_link {
|
Line 759 sub send_feedback_link {
|
my $output = '<span class="LC_feedback_link">'. |
my $output = '<span class="LC_feedback_link">'. |
' <a href="/adm/feedback?replydisc='. |
' <a href="/adm/feedback?replydisc='. |
&escape($ressymb).':::" '.$target.'>'. |
&escape($ressymb).':::" '.$target.'>'. |
'<img alt="" src="'. |
'<img alt="" class="LC_noBorder" src="'. |
&Apache::loncommon::lonhttpdurl('/adm/lonMisc/chat.gif'). |
&Apache::loncommon::lonhttpdurl('/adm/lonMisc/chat.gif'). |
'" border="0" />'.&mt('Post Discussion').'</a></span>'; |
'" border="0" /><span class="LC_menubuttons_inline_text">'.&mt('Post Discussion').'</span></a></span>'; |
return $output; |
return $output; |
} |
} |
|
|
Line 767 sub send_message_link {
|
Line 769 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='. |
' <a href="/adm/feedback?sendmessageonly=1&symb='. |
&escape($ressymb).'"><img alt="" src="'. |
&escape($ressymb).'"><img alt="" class="LC_noBorder" src="'. |
&Apache::loncommon::lonhttpdurl('/res/adm/pages/com.png'). |
&Apache::loncommon::lonhttpdurl('/res/adm/pages/com.png'). |
'" border="0" />'.&mt('Send Feedback').'</a></span>'; |
'" border="0" /><span class="LC_menubuttons_inline_text">'.&mt('Send Feedback').'</span></a></span>'; |
return $output; |
return $output; |
} |
} |
|
|
Line 1170 sub build_posting_display {
|
Line 1172 sub build_posting_display {
|
$$imsitems{$idx}{'attach'}=$attachtxt{$numoldver}; |
$$imsitems{$idx}{'attach'}=$attachtxt{$numoldver}; |
$$imsitems{$idx}{'timestamp'}=$contrib{$idx.':timestamp'}; |
$$imsitems{$idx}{'timestamp'}=$contrib{$idx.':timestamp'}; |
$$imsitems{$idx}{'sender'}=$plainname.' ('. |
$$imsitems{$idx}{'sender'}=$plainname.' ('. |
$contrib{$idx.':sendername'}.' at '. |
$contrib{$idx.':sendername'}.':'. |
$contrib{$idx.':senderdomain'}.')'; |
$contrib{$idx.':senderdomain'}.')'; |
$$imsitems{$idx}{'isanonymous'}='false'; |
$$imsitems{$idx}{'isanonymous'}='false'; |
if ($contrib{$idx.':anonymous'}) { |
if ($contrib{$idx.':anonymous'}) { |
Line 1367 sub get_post_contents {
|
Line 1369 sub get_post_contents {
|
$$plainname, |
$$plainname, |
$$contrib{$idx.':sendername'}, |
$$contrib{$idx.':sendername'}, |
$$contrib{$idx.':senderdomain'}).' ('. |
$$contrib{$idx.':senderdomain'}).' ('. |
$$contrib{$idx.':sendername'}.' at '. |
$$contrib{$idx.':sendername'}.':'. |
$$contrib{$idx.':senderdomain'}.')'; |
$$contrib{$idx.':senderdomain'}.')'; |
my $attachmenturls = $$contrib{$idx.':attachmenturl'}; |
my $attachmenturls = $$contrib{$idx.':attachmenturl'}; |
my @postversions = (); |
my @postversions = (); |
Line 1663 END
|
Line 1665 END
|
</script> |
</script> |
END |
END |
|
|
|
# Breadcrumbs |
|
my $brcrum = [{'href' => '', |
|
'text' => 'Resource Feedback and Discussion'}]; |
|
|
my %onload = ('onload' => 'window.focus();setposttype();'); |
my %onload = ('onload' => 'window.focus();setposttype();'); |
my $start_page= |
my $start_page= |
&Apache::loncommon::start_page('Resource Feedback and Discussion',$js, |
&Apache::loncommon::start_page('Resource Feedback and Discussion',$js, |
{'add_entries' => \%onload}); |
{'add_entries' => \%onload, |
|
'bread_crumbs' => $brcrum,}); |
|
|
if ($quote ne '') { |
if ($quote ne '') { |
&newline_to_br(\$quote); |
&newline_to_br(\$quote); |
Line 2014 sub print_sortfilter_options {
|
Line 2021 sub print_sortfilter_options {
|
$ccrole = 'co'; |
$ccrole = 'co'; |
} |
} |
push(@courseroles,$ccrole); |
push(@courseroles,$ccrole); |
|
|
if ($env{'request.course.sec'} !~ /^\s*$/) { #Restrict section choice to current section |
if ($env{'request.course.sec'} !~ /^\s*$/) { #Restrict section choice to current section |
@sections = ('all',$env{'request.course.sec'}); |
@sections = ('all',$env{'request.course.sec'}); |
$numvisible = 2; |
$numvisible = 2; |
Line 2623 sub screen_header {
|
Line 2630 sub screen_header {
|
$env{'request.course.id'}. |
$env{'request.course.id'}. |
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) { |
($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) { |
$discussoptions='<label><input type="radio" name="discuss" value="nonanon" checked="checked" /> '. |
$discussoptions='<label><input type="radio" name="discuss" value="nonanon" checked="checked" /> '. |
$contribdisc. |
$contribdisc. |
'</label><br /><label><input type="radio" name="discuss" value="anon" /> '. |
'</label><br /><label><input type="radio" name="discuss" value="anon" /> '. |
$anoncontrib. |
$anoncontrib. |
' <i>('.$namevis.')</i></label> '. |
' <i>('.$namevis.')</i></label> '. |
|
|
'<a href="/adm/preferences?action=changescreenname">'.&mt('Change Screenname').'</a>'; |
'<a href="/adm/preferences?action=changescreenname">'.&mt('Change Screenname').'</a>'; |
my $blockblog = &Apache::loncommon::blocking_status('blogs'); |
my $blockblog = &Apache::loncommon::blocking_status('blogs'); |
if (!$blockblog) { |
if (!$blockblog) { |
Line 2694 sub assemble_email {
|
Line 2700 sub assemble_email {
|
'orig' => 'Original screen output (if applicable)', |
'orig' => 'Original screen output (if applicable)', |
'corr' => 'Correct Answer(s) (if applicable)', |
'corr' => 'Correct Answer(s) (if applicable)', |
); |
); |
|
if (&Apache::loncommon::course_type() eq 'Community') { |
|
$lt{'prev'} = &mt('Previous attempts of member (if applicable)'); |
|
} |
my $email=<<"ENDEMAIL"; |
my $email=<<"ENDEMAIL"; |
$message |
$message |
ENDEMAIL |
ENDEMAIL |
Line 2940 sub show_preview {
|
Line 2949 sub show_preview {
|
); |
); |
} |
} |
|
|
sub contains_block_html { |
|
my ($message)=@_; |
|
return ($message =~ m{ |
|
<(br|h1|h2|h3|h4|h5|h6|p|ol|ul|table|pre|address|blockquote|center|div) |
|
\s* |
|
(\w+\=['"]\w+['"])* |
|
\s* |
|
( |
|
\s*/>| |
|
>.*</\1\s*> |
|
)}xs |
|
); |
|
} |
|
|
|
sub newline_to_br { |
sub newline_to_br { |
my ($message)=@_; |
my ($message)=@_; |
Line 3012 sub modify_attachments {
|
Line 3008 sub modify_attachments {
|
</script> |
</script> |
END |
END |
|
|
|
# Breadcrumbs |
|
my $brcrum = [{'href' => '', |
|
'text' => 'Discussion Post Attachments'}]; |
my $start_page = |
my $start_page = |
&Apache::loncommon::start_page('Discussion Post Attachments',$js); |
&Apache::loncommon::start_page('Discussion Post Attachments',$js, |
|
{'bread_crumbs' => $brcrum,}); |
|
|
my $orig_subject = &unescape($env{'form.subject'}); |
my $orig_subject = &unescape($env{'form.subject'}); |
my $subject=&clear_out_html($orig_subject,undef,1); |
my $subject=&clear_out_html($orig_subject,undef,1); |
Line 3355 sub sort_filter_names {
|
Line 3355 sub sort_filter_names {
|
} |
} |
if (ref($status_types) eq 'HASH') { |
if (ref($status_types) eq 'HASH') { |
%{$status_types} = ( |
%{$status_types} = ( |
all => 'Roles of any status', |
all => 'Roles of any status', |
Active => 'Only active roles', |
Active => 'Only active roles', |
Expired => 'Only past roles', |
Expired => 'Only past roles', |
Future => 'Only future roles', |
Future => 'Only future roles', |
); |
); |
} |
} |
} |
} |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
if ($r->header_only) { |
if ($r->header_only) { |
Line 3422 sub handler {
|
Line 3422 sub handler {
|
&Apache::loncommon::no_cache($r); |
&Apache::loncommon::no_cache($r); |
$r->send_http_header; |
$r->send_http_header; |
|
|
$r->print(&Apache::loncommon::start_page('Discussion Post Versions')); |
# Breadcrumbs |
|
my $brcrum = [{'href' => '', |
|
'text' => 'Discussion Post Versions'}]; |
|
|
|
$r->print(&Apache::loncommon::start_page('Discussion Post Versions',undef, |
|
{'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'}) { |