[LON-CAPA-cvs] cvs: rat / lonpage.pm doc/loncapafiles loncapafiles.lpml loncom/html/adm/lonMisc cat_button.png eval_button.png pgrd_button.png pprm_button.png subm_button.png

[www]

www		Wed May 23 10:57:51 2007 EDT

  Added files:                 
    /loncom/html/adm/lonMisc	cat_button.png eval_button.png 
                            	pgrd_button.png pprm_button.png 
                            	subm_button.png 

  Modified files:              
    /doc/loncapafiles	loncapafiles.lpml 
    /rat	lonpage.pm 
  Log:
  Use cute icons on .page
  
  
Index: doc/loncapafiles/loncapafiles.lpml
diff -u doc/loncapafiles/loncapafiles.lpml:1.538 doc/loncapafiles/loncapafiles.lpml:1.539
--- doc/loncapafiles/loncapafiles.lpml:1.538	Sun May 13 07:54:36 2007
+++ doc/loncapafiles/loncapafiles.lpml	Wed May 23 10:57:46 2007
@@ -2,7 +2,7 @@
  "http://lpml.sourceforge.net/DTD/lpml.dtd">
 <!-- loncapafiles.lpml -->
 
-<!-- $Id: loncapafiles.lpml,v 1.538 2007/05/13 11:54:36 albertel Exp $ -->
+<!-- $Id: loncapafiles.lpml,v 1.539 2007/05/23 14:57:46 www Exp $ -->
 
 <!--
 
@@ -5509,12 +5509,17 @@
 smallFAQ.gif;
 smallBug.gif;
 cat_button.gif;
+cat_button.png;
 chat.gif;
 eval_button.gif;
+eval_button.png;
 feedback.gif;
 pprm_button.gif;
+pprm_button.png;
 pgrd_button.gif;
+pgrd_button.png;
 subm_button.gif
+subm_button.png;
 </filenames>
 </fileglob>
 <file>
Index: rat/lonpage.pm
diff -u rat/lonpage.pm:1.77 rat/lonpage.pm:1.78
--- rat/lonpage.pm:1.77	Mon May 21 20:26:31 2007
+++ rat/lonpage.pm	Wed May 23 10:57:51 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Page Handler
 #
-# $Id: lonpage.pm,v 1.77 2007/05/22 00:26:31 albertel Exp $
+# $Id: lonpage.pm,v 1.78 2007/05/23 14:57:51 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -411,6 +411,10 @@
 		      } else {
 			  $r->print('<table width="100%" cols="'.$lcm.'" border="0">');
 		      }
+# which icons do we use?
+                      my $extension='png';
+                      if ($env{'environment.icons'} eq 'classic') { $extension='gif'; }
+# generate rows
                       for ($i=0;$i<=$#rows;$i++) {
 			if ($rows[$i]) {
 			    unless ($target eq 'tex') {
@@ -431,13 +435,13 @@
                               unless ($hash{'src_'.$rid} =~ m-^/uploaded/-) { 
                                   $metainfo ='<a name="'.&escape($symb).'" />'.
                                   '<a href="'.$metalink{$rid}.'" target="LONcatInfo">'.
-                                  '<img src="/adm/lonMisc/cat_button.gif" border=0>'.
+                                  '<img src="/adm/lonMisc/cat_button.'.$extension.'" border=0>'.
                                   '</img></a>';
                               }
                               $metainfo .= '<a href="/adm/evaluate?postdata='.
 				  &escape($esrc).
                                   '" target="LONcatInfo">'.
-                                  '<img src="/adm/lonMisc/eval_button.gif" border=0>'.
+                                  '<img src="/adm/lonMisc/eval_button.'.$extension.'" border=0>'.
                                   '</img></a>';
                               if (
  ($hash{'src_'.$rid}=~/\.(problem|exam|quiz|assess|survey|form)$/) &&
@@ -452,17 +456,17 @@
                   '<a href="/adm/grades?symb='.&escape($symb).
 #                 '&command=submission" target="LONcatInfo">'.
                   '&command=submission">'.
-                          '<img src="/adm/lonMisc/subm_button.gif" border=0>'.
+                          '<img src="/adm/lonMisc/subm_button.'.$extension.'" border=0>'.
 			  '</img></a>'.
                   '<a href="/adm/grades?symb='.&escape($symb).
 #                  '&command=gradingmenu" target="LONcatInfo">'.
                   '&command=gradingmenu">'.
-                          '<img src="/adm/lonMisc/pgrd_button.gif" border=0>'.
+                          '<img src="/adm/lonMisc/pgrd_button.'.$extension.'" border=0>'.
 			  '</img></a>'.
                   '<a href="/adm/parmset?symb='.&escape($symb).
 #                          '" target="LONcatInfo">'.
                           '" >'.
-                          '<img src="/adm/lonMisc/pprm_button.gif" border=0>'.
+                          '<img src="/adm/lonMisc/pprm_button.'.$extension.'" border=0>'.
 			      '</img></a>';
                               }
                               $metainfo.='<br></br>';