[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.')');