[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