[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm lonfeedback.pm

albertel lon-capa-cvs@mail.lon-capa.org
Wed, 28 Feb 2007 21:45:43 -0000


albertel		Wed Feb 28 16:45:43 2007 EDT

  Modified files:              
    /loncom/interface	lonfeedback.pm loncommon.pm 
  Log:
  - style police
  
  
  
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.244 loncom/interface/lonfeedback.pm:1.245
--- loncom/interface/lonfeedback.pm:1.244	Wed Feb 28 11:30:40 2007
+++ loncom/interface/lonfeedback.pm	Wed Feb 28 16:45:42 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.244 2007/02/28 16:30:40 www Exp $
+# $Id: lonfeedback.pm,v 1.245 2007/02/28 21:45:42 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1012,7 +1012,7 @@
 			        $sender.=' <font color="red"><b>['.$$anonhash{$key}.']</b></font> '.
 				    $screenname;
 			    }
-                            $sender.=&Apache::loncommon::studentimagetag($contrib{$idx.':senderdomain'},$contrib{$idx.':sendername'});
+                            $sender.=&Apache::loncommon::student_image_tag($contrib{$idx.':senderdomain'},$contrib{$idx.':sendername'});
 # Set up for sorting by domain, then username
                             unless (defined($$usernamesort{$contrib{$idx.':senderdomain'}})) {
                                 %{$$usernamesort{$contrib{$idx.':senderdomain'}}} = ();
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.508 loncom/interface/loncommon.pm:1.509
--- loncom/interface/loncommon.pm:1.508	Wed Feb 28 11:30:40 2007
+++ loncom/interface/loncommon.pm	Wed Feb 28 16:45:43 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.508 2007/02/28 16:30:40 www Exp $
+# $Id: loncommon.pm,v 1.509 2007/02/28 21:45:43 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2270,7 +2270,7 @@
 # ===================================================== Display a student photo
 
 
-sub studentimagetag {
+sub student_image_tag {
     my ($domain,$user)=@_;
     my $imgsrc=&Apache::lonnet::studentphoto($domain,$user,'jpg');
     if (($imgsrc) && ($imgsrc ne '/adm/lonKaputt/lonlogo_broken.gif')) {