-
-
+
+
+
-
-
-
-
- $lt{'cuse'}: |
- |
-
+ |
+ $lt{'cuse'}:
END
if ($newpostsflag) {
$discussion .=
@@ -589,13 +582,7 @@ END
}
}
$discussion .= < |
- |
-
- $lt{'chgt'}?
- |
-
-
+ $lt{'chgt'}
|
END
if ($sortposts) {
@@ -604,7 +591,7 @@ END
my %status_types = ();
&sort_filter_names(\%sort_types,\%role_types,\%status_types,$crstype);
- $discussion .= ''.&mt('Sorted by').': '.$sort_types{$sortposts}.' ';
+ $discussion .= ' | '.&mt('Sorted by').': '.$sort_types{$sortposts}.' ';
if (defined($env{'form.totposters'})) {
$discussion .= &mt('Posts by').':';
if ($totposters > 0) {
@@ -660,9 +647,7 @@ END
$discussion .= &action_links_bar($colspan,$ressymb,$visible,
$newpostsflag,$group,
$prevread,$markondisp);
- $discussion .= "
- |
-
\n";
+ $discussion .= " | \n";
}
if ($outputtarget eq 'export') {
if ($manifestok) {
@@ -805,8 +790,8 @@ sub send_message_link {
sub action_links_bar {
my ($colspan,$ressymb,$visible,$newpostsflag,$group,$prevread,$markondisp) = @_;
- my $discussion = ' | '.
- ''.
+ my $discussion = ' '.
+ ''.
'';
my $escsymb=&escape($ressymb);
if ($visible) {
@@ -829,20 +814,20 @@ sub action_links_bar {
}
$otherviewurl .= &group_args($group);
$discussion .= &Apache::loncommon::modal_link($otherviewurl,&mt('Other Views ...'),800,340);
- $discussion .=(' ' x2);
+ $discussion .= ' ';
}
$discussion .=''.&mt('Export').'? | ';
+ $discussion .= '">'.&mt('Export').'';
if ($newpostsflag) {
if (!$markondisp) {
$discussion .=''.
- &mt('Preferences on what is marked as NEW').
+ &mt('My general preferences on what is marked as NEW').
' '.&mt('Mark NEW posts no longer new').' | ';
@@ -1277,24 +1262,17 @@ sub build_posting_display {
unless ($$notshown{$idx} == 1) {
if ($prevread > 0 && $prevread <= $posttime) {
$$newitem{$idx} = 1;
- $$discussionitems[$idx] .= '
-
- '.&mt('NEW').' | ';
+ $$discussionitems[$idx] .= ''.&mt('NEW').' ';
} else {
$$newitem{$idx} = 0;
- $$discussionitems[$idx] .= '
-
- | ';
}
- $$discussionitems[$idx] .= ' '.
- ''.$subject.' '.
+ $$discussionitems[$idx] .= ''.$subject.' '.
$sender.' '.$vgrlink.' ('.
- &Apache::lonlocal::locallocaltime($posttime).') | ';
+ &Apache::lonlocal::locallocaltime($posttime).')';
if ($$dischash{$toggkey}) {
- $$discussionitems[$idx].=' '.
- $ctlink.' | ';
+ $$discussionitems[$idx].=' '.$ctlink;
}
- $$discussionitems[$idx].= ' '.
+ $$discussionitems[$idx].= '
'.
$message.' ';
if ($contrib{$idx.':history'}) {
my @postversions = ();
@@ -2809,7 +2787,10 @@ sub send_msg {
}
}
-
+# Records of number of postings, etc, are kept under the "symb" called "_feedback"
+# There are two entries within the framework of a course:
+# - the URLs for which feedback was provided
+# - the total number of contributions
my %record=&Apache::lonnet::restore('_feedback');
my ($temp)=keys(%record);
unless ($temp=~/^error\:/) {
@@ -2824,6 +2805,17 @@ sub send_msg {
return ($status,$sendsomething);
}
+# Routine to get the complete discussion records
+
+sub getdiscrecords {
+ my ($uname,$udom,$course)=@_;
+ unless ($uname) { $uname=$env{'user.name'}; }
+ unless ($udom) { $udom=$env{'user.domain'}; }
+ unless ($course) { $course=$env{'request.course.id'}; }
+ my %record=&Apache::lonnet::restore('_feedback',$course,$udom,$uname);
+ return %record;
+}
+
sub adddiscuss {
my ($symb,$email,$anon,$attachmenturl,$subject,$group)=@_;
my $status='';
|
|