[LON-CAPA-cvs] cvs: loncom(loncapaMITrelate_1) /interface lonfeedback.pm
raeburn
raeburn at source.lon-capa.org
Sun Jun 17 11:35:16 EDT 2012
raeburn Sun Jun 17 15:35:16 2012 EDT
Modified files: (Branch: loncapaMITrelate_1)
/loncom/interface lonfeedback.pm
Log:
- Customization for MITrelate.
- Backport 1.357.
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.290.2.7.2.5 loncom/interface/lonfeedback.pm:1.290.2.7.2.6
--- loncom/interface/lonfeedback.pm:1.290.2.7.2.5 Tue May 1 15:56:16 2012
+++ loncom/interface/lonfeedback.pm Sun Jun 17 15:35:15 2012
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Feedback
#
-# $Id: lonfeedback.pm,v 1.290.2.7.2.5 2012/05/01 15:56:16 raeburn Exp $
+# $Id: lonfeedback.pm,v 1.290.2.7.2.6 2012/06/17 15:35:15 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1070,8 +1070,8 @@
next if ($contrib{$idx.':deleted'});
next if ($contrib{$idx.':hidden'});
unless ((($hiddens{$idx}) && (!$seehidden)) || ($deletions{$idx}) || (!$contrib{$idx.':message'})) {
+ push(@theselikes,$likes{$symb.':'.$idx.':likes'});
if ($likes{$symb.':'.$idx.':likes'} ne '') {
- push(@theselikes,$likes{$symb.':'.$idx.':likes'});
if (ref($likes{$symb.':'.$idx.':likers'}) eq 'HASH') {
if (exists($likes{$symb.':'.$idx.':likers'}{$thisuser})) {
$userlikes{$idx} = 1;
More information about the LON-CAPA-cvs
mailing list