[LON-CAPA-cvs] cvs: loncom /html/res/adm/pages thumbsdown.png thumbsup.png /interface loncommon.pm lonfeedback.pm doc/loncapafiles loncapafiles.lpml
www
www at source.lon-capa.org
Mon Jan 9 14:56:29 EST 2012
www Mon Jan 9 19:56:29 2012 EDT
Added files:
/loncom/html/res/adm/pages thumbsdown.png thumbsup.png
Modified files:
/doc/loncapafiles loncapafiles.lpml
/loncom/interface loncommon.pm lonfeedback.pm
Log:
Icons for Like/Unlike
Index: doc/loncapafiles/loncapafiles.lpml
diff -u doc/loncapafiles/loncapafiles.lpml:1.779 doc/loncapafiles/loncapafiles.lpml:1.780
--- doc/loncapafiles/loncapafiles.lpml:1.779 Wed Dec 28 21:50:07 2011
+++ doc/loncapafiles/loncapafiles.lpml Mon Jan 9 19:56:12 2012
@@ -2,7 +2,7 @@
"http://lpml.sourceforge.net/DTD/lpml.dtd">
<!-- loncapafiles.lpml -->
-<!-- $Id: loncapafiles.lpml,v 1.779 2011/12/28 21:50:07 raeburn Exp $ -->
+<!-- $Id: loncapafiles.lpml,v 1.780 2012/01/09 19:56:12 www Exp $ -->
<!--
@@ -7080,6 +7080,8 @@
src.png;
srvr.png;
subm.png;
+thumbsup.png;
+thumbsdown.png;
back.png;
catalog.png;
com.png;
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.1051 loncom/interface/loncommon.pm:1.1052
--- loncom/interface/loncommon.pm:1.1051 Wed Jan 4 00:42:19 2012
+++ loncom/interface/loncommon.pm Mon Jan 9 19:56:28 2012
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.1051 2012/01/04 00:42:19 www Exp $
+# $Id: loncommon.pm,v 1.1052 2012/01/09 19:56:28 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -7097,11 +7097,11 @@
}
sub modal_link {
- my ($link,$linktext,$width,$height,$target,$scrolling)=@_;
+ my ($link,$linktext,$width,$height,$target,$scrolling,$title)=@_;
unless ($width) { $width=480; }
unless ($height) { $height=400; }
unless ($scrolling) { $scrolling='yes'; }
- return '<a href="'.$link.'" target="'.$target.'" onclick="openMyModal(\''.$link.'\','.$width.','.$height.',\''.$scrolling.'\'); return false;">'.
+ return '<a href="'.$link.'" target="'.$target.'" title="'.$title.'" onclick="openMyModal(\''.$link.'\','.$width.','.$height.',\''.$scrolling.'\'); return false;">'.
$linktext.'</a>';
}
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.329 loncom/interface/lonfeedback.pm:1.330
--- loncom/interface/lonfeedback.pm:1.329 Sat Jan 7 22:03:01 2012
+++ loncom/interface/lonfeedback.pm Mon Jan 9 19:56:28 2012
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Feedback
#
-# $Id: lonfeedback.pm,v 1.329 2012/01/07 22:03:01 www Exp $
+# $Id: lonfeedback.pm,v 1.330 2012/01/09 19:56:28 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -759,7 +759,7 @@
sub discussion_link {
- my ($ressymb,$linktext,$cmd,$item,$flag,$prev,$adds)=@_;
+ my ($ressymb,$linktext,$cmd,$item,$flag,$prev,$adds,$title)=@_;
my $link='/adm/feedback?inhibitmenu=yes&modal=yes&'.$cmd.'='.&escape($ressymb).':::'.$item;
if ($flag) { $link .= '&previous='.$prev; }
if ($adds) { $link .= $adds; }
@@ -769,7 +769,7 @@
$width=300;
$height=200;
}
- return &Apache::loncommon::modal_link($link,$linktext,$width,$height);
+ return &Apache::loncommon::modal_link($link,$linktext,$width,$height,undef,undef,$title);
}
@@ -1157,10 +1157,10 @@
}
if ($outputtarget ne 'tex') {
unless ($likes{$symb.':'.$idx.':likers'}=~/\,\Q$thisuser\E\,/) {
- $sender.=' '.&discussion_link($symb,&mt('Like'),'like',$idx,$$newpostsflag,$prevread,&group_args($group));
+ $sender.=' '.&discussion_link($symb,'<img border="0" src="/res/adm/pages/thumbsup.png" alt="'.&mt('Like').'" />','like',$idx,$$newpostsflag,$prevread,&group_args($group),&mt("Like"));
}
unless ($likes{$symb.':'.$idx.':unlikers'}=~/\,\Q$thisuser\E\,/) {
- $sender.=' '.&discussion_link($symb,&mt('Unlike'),'unlike',$idx,$$newpostsflag,$prevread,&group_args($group));
+ $sender.=' '.&discussion_link($symb,'<img border="0" src="/res/adm/pages/thumbsdown.png" alt="'.&mt('Unlike').'" />',,'unlike',$idx,$$newpostsflag,$prevread,&group_args($group),&mt("Unlike"));
}
my $thislikes=$likes{$symb.':'.$idx.':likes'};
if ($thislikes>0) {
More information about the LON-CAPA-cvs
mailing list