--- loncom/interface/lonfeedback.pm 2008/11/18 19:14:22 1.256 +++ loncom/interface/lonfeedback.pm 2010/01/24 02:39:35 1.273.4.2 @@ -1,7 +1,7 @@ # The LearningOnline Network # Feedback # -# $Id: lonfeedback.pm,v 1.256 2008/11/18 19:14:22 jms Exp $ +# $Id: lonfeedback.pm,v 1.273.4.2 2010/01/24 02:39:35 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -27,133 +27,6 @@ # ### -=pod - -=head1 NAME - -Apache::lonfeedback.pm - -=head1 SYNOPSIS - -Handles feedback from students to instructors and system administrators. - -Provides a screenshot of the current resource, as well as previous attempts if the resource was a homework. - -Used by lonmsg.pm. - -This is part of the LearningOnline Network with CAPA project -described at http://www.lon-capa.org. - -=head1 OVERVIEW - -None - -=head1 SUBROUTINES - -=over - -=item discussion_open() - -=item discussion_visible() - -=item list_discussion() - -=item send_feedback_link() - -=item send_message_link() - -=item action_links_bar() - -=item postingform_display() - -=item build_posting_display - -=item filter_regexp() - -=item get_post_contents() - -=item replicate_attachments() - -=item mail_screen() - -=item print_display_options() - -=item print_sortfilter_options() - -=item print_showposters() - -=item get_post_versions() - -=item get_post_attachments() - -=item fail_redirect() - -=item redirect_back() - -=item no_redirect_back() - -=item screen_header() - -=item resource_output() - -=item clear_out_html() - -=item assemble_email() - -=item feedback_available() - -=item send_msg() - -=item adddiscuss() - -=item get_discussion_info() - -=item show_preview() - -=item newline_to_br() - -=item generate_preview_button() - -=item modify_attachments() - -=item process_attachments() - -=item generate_attachments_button() - -=item extract_attachments() - -=item construct_attachmenturl() - -=item add_blog_checkbox() - -=item has_discussion() - -=item sort_filter_names() - -=item handler() - -=item blocked_reply_or_edit() - -=item wrap_symb() - -=item dewrapper() - -=item get_feedurl() - -=item get_feedurl_and_clean_symb() - -=item editing_allowed() - -=item check_group_priv() - -=item group_args() - -=item get_resource_title() - -=back - -=cut - package Apache::lonfeedback; use strict; @@ -237,7 +110,7 @@ sub list_discussion { return $blocktext; } - my @bgcols = ("#cccccc","#eeeeee"); + my @bgcols = ("LC_disc_old_item","LC_disc_new_item"); my $discussiononly=0; if ($mode eq 'board') { $discussiononly=1; } unless ($env{'request.course.id'}) { return ''; } @@ -296,6 +169,8 @@ sub list_discussion { my $cdom = $env{'course.'.$cid.'.domain'}; my $cnum = $env{'course.'.$cid.'.num'}; + my $crstype = &Apache::loncommon::course_type(); + # Get information about students and non-students in course for filtering display of posts my %roleshash = (); @@ -561,7 +436,8 @@ imscp_v1p1.xsd http://www.imsglobal.org/ } |; - $discussion.='
'; + $discussion.=''. + "\n".'
'; $discussion .= &action_links_bar($colspan,$ressymb,$visible, $newpostsflag,$group, $prevread,$markondisp); @@ -674,7 +550,7 @@ imscp_v1p1.xsd http://www.imsglobal.org/ } $copyresult.=&replicate_attachments($imsitems{$alldiscussion{$post}}{'allattachments'},$tempexport); } else { - $discussion.=''; } @@ -684,8 +560,8 @@ imscp_v1p1.xsd http://www.imsglobal.org/ my $colspan=$maxdepth+1; $discussion .= < -
'. $discussionitems[$alldiscussion{$post}]. '
- +
+
@@ -723,7 +599,7 @@ END my %sort_types = (); my %role_types = (); my %status_types = (); - &sort_filter_names(\%sort_types,\%role_types,\%status_types); + &sort_filter_names(\%sort_types,\%role_types,\%status_types,$crstype); $discussion .= ''; } $discussion .= (<'.&mt('Send Message').''; + &Apache::loncommon::lonhttpdurl('/res/adm/pages/com.png'). + '" border="0" />'.&mt('Send Feedback').''; return $output; } sub action_links_bar { my ($colspan,$ressymb,$visible,$newpostsflag,$group,$prevread,$markondisp) = @_; - my $discussion = '
'.&mt('Sorted by').': '.$sort_types{$sortposts}.'
'; if (defined($env{'form.totposters'})) { @@ -752,7 +628,7 @@ END $filterchoice .= ' '.$role_types{$role}.','; } $filterchoice =~ s/,$//; - $filterchoice .= '
        '; + $filterchoice .= '
'.(' ' x8); } if ($statusfilter) { $filterchoice .= ''.&mt('status').'- '.$status_types{$statusfilter}; @@ -766,9 +642,9 @@ END if ($dischash{$toggkey}) { my $storebutton = &mt('Save read/unread changes'); $discussion.='		'. - ''."\n". + ''."\n". ''."\n". + ' onClick="this.form.submit();" />'."\n". '
'. - ''; + my $discussion = '
'. + ''. + ''; if ($newpostsflag) { if (!$markondisp) { - $discussion .='
'; my $escsymb=&escape($ressymb); if ($visible>2) { - $discussion .= ''. - '   -   '; - } else { - $discussion .= ''; + $discussion .='">'.&mt('Sorting/Filtering options').''.(' ' x2); } - $discussion .=''.&mt('Export').'?  '. &mt('Preferences on what is marked as NEW'). @@ -952,7 +826,7 @@ sub action_links_bar { sub postingform_display { my ($mode,$ressymb,$now,$subject,$comment,$outputtarget,$attachnum, - $currnewattach,$currdelold,$group) = @_; + $currnewattach,$currdelold,$group,$crstype) = @_; my $newattachmsg; my %lt = &Apache::lonlocal::texthash( 'note' => 'Note: in anonymous discussion, your name is visible only to course faculty', @@ -961,6 +835,9 @@ sub postingform_display { 'poan' => 'Post Anonymous Discussion', 'newa' => 'New attachments', ); + if ($crstype eq 'Community') { + $lt{'note'} = &mt('Note: in anonymous discussion, your name is visible only to community facilitators'); + } my $postingform = (< @@ -988,7 +865,7 @@ ENDDISCUSS } my $blockblog = &Apache::loncommon::blocking_status('blogs'); if (!$blockblog) { - $postingform .= &add_blog_checkbox(); + $postingform .= &add_blog_checkbox($crstype); } $postingform .= "\n"; if ($outputtarget ne 'tex') { @@ -1374,7 +1251,7 @@ sub build_posting_display {

'; } - $$discussionitems[$idx] .= ''; @@ -1745,7 +1622,7 @@ END $comment = &unescape($env{'form.comment'}); &process_attachments(\@currnewattach,\@currdelold,\@keepold); } - my $latexHelp=&Apache::loncommon::helpLatexCheatsheet(); + my $latexHelp=&Apache::loncommon::helpLatexCheatsheet(undef,undef,1); my $send=&mt('Send'); my $alert = &mt('Please select a feedback type.'); my $js= <print(< - + + END } $r->print(<$lt{'myqu'}

$latexHelp +

+

$lt{'title'}:

   '. + $$discussionitems[$idx] .= '  '. ''.$subject.'  '. $sender.' '.$vgrlink.' ('. &Apache::lonlocal::locallocaltime($posttime).')