[LON-CAPA-cvs] cvs: loncom /html/adm/lonIcons clickhere.gif /interface lonparmset.pm doc/loncapafiles loncapafiles.lpml

www lon-capa-cvs@mail.lon-capa.org
Fri, 14 Jul 2006 17:18:25 -0000


www		Fri Jul 14 13:18:25 2006 EDT

  Added files:                 
    /loncom/html/adm/lonIcons	clickhere.gif 

  Modified files:              
    /doc/loncapafiles	loncapafiles.lpml 
    /loncom/interface	lonparmset.pm 
  Log:
  "click here" indicator in PARM table
  
  
Index: doc/loncapafiles/loncapafiles.lpml
diff -u doc/loncapafiles/loncapafiles.lpml:1.493 doc/loncapafiles/loncapafiles.lpml:1.494
--- doc/loncapafiles/loncapafiles.lpml:1.493	Fri Jul 14 12:46:29 2006
+++ doc/loncapafiles/loncapafiles.lpml	Fri Jul 14 13:18:19 2006
@@ -2,7 +2,7 @@
  "http://lpml.sourceforge.net/DTD/lpml.dtd">
 <!-- loncapafiles.lpml -->
 
-<!-- $Id: loncapafiles.lpml,v 1.493 2006/07/14 16:46:29 www Exp $ -->
+<!-- $Id: loncapafiles.lpml,v 1.494 2006/07/14 17:18:19 www Exp $ -->
 
 <!--
 
@@ -5269,6 +5269,7 @@
 class.gif;
 class_big.gif;
 closepage.gif;
+clickhere.gif;
 coolindiff.gif;
 coolsmile.gif;
 cry.gif;
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.319 loncom/interface/lonparmset.pm:1.320
--- loncom/interface/lonparmset.pm:1.319	Mon Jul  3 08:59:58 2006
+++ loncom/interface/lonparmset.pm	Fri Jul 14 13:18:24 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.319 2006/07/03 12:59:58 foxr Exp $
+# $Id: lonparmset.pm,v 1.320 2006/07/14 17:18:24 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -508,21 +508,26 @@
 
 Format a value for output.
 
-Inputs:  $value, $type
+Inputs:  $value, $type, $editable
 
 Returns: $value, formatted for output.  If $type indicates it is a date,
 localtime($value) is returned.
+$editable will return an icon to click on
 
 =cut
 
 ##################################################
 ##################################################
 sub valout {
-    my ($value,$type)=@_;
+    my ($value,$type,$editable)=@_;
     my $result = '';
     # Values of zero are valid.
     if (! $value && $value ne '0') {
-	$result = '&nbsp;&nbsp;';
+	if ($editable) {
+	    $result = '<img src="/adm/lonIcons/clickhere.gif" border="0" />';
+	} else {
+	    $result='&nbsp;';
+	}
     } else {
         if ($type eq 'date_interval') {
             my ($sec,$min,$hour,$mday,$mon,$year)=gmtime($value);
@@ -590,7 +595,7 @@
     return '<table width="100%"><tr valign="top" align="right"><td><a name="'.$marker.'" /></td></tr><tr><td align="center">'.
 	'<a href="javascript:pjump('."'".$type."','".$dis."','".$winvalue."','"
 	    .$marker."','".$return."','".$call."','".$hour."','".$min."','".$sec."'".');">'.
-		&valout($value,$type).'</a></td></tr></table>';
+		&valout($value,$type,1).'</a></td></tr></table>';
 }
 
 sub page_js {