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

albertel lon-capa-cvs@mail.lon-capa.org
Wed, 01 Oct 2003 21:10:17 -0000


albertel		Wed Oct  1 17:10:17 2003 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  - unescape the : escape
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.126 loncom/interface/lonparmset.pm:1.127
--- loncom/interface/lonparmset.pm:1.126	Sun Sep 21 17:40:06 2003
+++ loncom/interface/lonparmset.pm	Wed Oct  1 17:10:17 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.126 2003/09/21 21:40:06 www Exp $
+# $Id: lonparmset.pm,v 1.127 2003/10/01 21:10:17 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1152,7 +1152,8 @@
                     my $totalparms=scalar keys %name;
                     if ($totalparms>0) {
                         my $firstrow=1;
-
+			my $title=$bighash{'title_'.$rid};
+			$title=~s/\:/:/g;
                         $r->print('<tr><td bgcolor='.$defbgone.
                              ' rowspan='.$totalparms.
                              '><tt><font size=-1>'.
@@ -1160,7 +1161,7 @@
                              '</font></tt><p><b>'.
                              "<a href=\"javascript:openWindow('/res/".$uri.
                              "', 'metadatafile', '450', '500', 'no', 'yes')\";".
-                             " TARGET=_self>$bighash{'title_'.$rid}");
+                             " TARGET=_self>$title");
 
                         if ($thistitle) {
                             $r->print(' ('.$thistitle.')');