--- 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}]. '
- +