--- loncom/interface/lonfeedback.pm 2009/04/24 13:02:09 1.270
+++ 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.270 2009/04/24 13:02:09 www Exp $
+# $Id: lonfeedback.pm,v 1.273.4.2 2010/01/24 02:39:35 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -169,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 = ();
@@ -597,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 .= '
'.&mt('Sorted by').' : '.$sort_types{$sortposts}.' ';
if (defined($env{'form.totposters'})) {
@@ -723,13 +725,13 @@ END
&postingform_display($mode,$ressymb,$now,$subject,
$comment,$outputtarget,$attachnum,
$currnewattach,$currdelold,
- $group);
+ $group,$crstype);
}
} else {
$discussion.=
&postingform_display($mode,$ressymb,$now,$subject,
$comment,$outputtarget,$attachnum,
- $currnewattach,$currdelold);
+ $currnewattach,$currdelold,'',$crstype);
}
}
} else {
@@ -767,18 +769,18 @@ sub send_message_link {
' '.&mt('Send Message').' ';
+ '" border="0" />'.&mt('Send Feedback').'';
return $output;
}
sub action_links_bar {
my ($colspan,$ressymb,$visible,$newpostsflag,$group,$prevread,$markondisp) = @_;
my $discussion = ''.
- '';
+ ''.
+ '';
my $escsymb=&escape($ressymb);
if ($visible>2) {
- $discussion .= ' '.
- '
- '.(' ' x2);
- } else {
- $discussion .= ' 'Note: in anonymous discussion, your name is visible only to course faculty',
@@ -835,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 = (<
@@ -862,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') {
@@ -1248,7 +1251,7 @@ sub build_posting_display {
';
}
- $$discussionitems[$idx] .= ' '.
+ $$discussionitems[$idx] .= ' '.
''.$subject.' '.
$sender.' '.$vgrlink.' ('.
&Apache::lonlocal::locallocaltime($posttime).') ';
@@ -1685,8 +1688,8 @@ END
END
} elsif ($env{'form.editdisc'}) {
$r->print(<
-
+
+
END
}
$r->print(<print(<
+