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

albertel lon-capa-cvs@mail.lon-capa.org
Sat, 14 Sep 2002 21:01:38 -0000


albertel		Sat Sep 14 17:01:38 2002 EDT

  Modified files:              
    /loncom/interface	loncommon.pm lonaboutme.pm 
  Log:
  - dump and get do the unescape already
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.67 loncom/interface/loncommon.pm:1.68
--- loncom/interface/loncommon.pm:1.67	Fri Sep 13 16:46:09 2002
+++ loncom/interface/loncommon.pm	Sat Sep 14 17:01:38 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.67 2002/09/13 20:46:09 www Exp $
+# $Id: loncommon.pm,v 1.68 2002/09/14 21:01:38 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -981,7 +981,7 @@
     my ($uname,$udom)=@_;
     my %names=&Apache::lonnet::get('environment',
   ['nickname','firstname','middlename','lastname','generation'],$udom,$uname);
-    my $name=&Apache::lonnet::unescape($names{'nickname'});
+    my $name=$names{'nickname'};
     if ($name) {
        $name='"'.$name.'"'; 
     } else {
@@ -1000,7 +1000,7 @@
     my ($uname,$udom)=@_;
     my %names=
  &Apache::lonnet::get('environment',['screenname'],$udom,$uname);
-    return &Apache::lonnet::unescape($names{'screenname'});
+    return $names{'screenname'};
 }
 
 # ------------------------------------------------------------- Message Wrapper
Index: loncom/interface/lonaboutme.pm
diff -u loncom/interface/lonaboutme.pm:1.6 loncom/interface/lonaboutme.pm:1.7
--- loncom/interface/lonaboutme.pm:1.6	Fri Sep 13 16:46:09 2002
+++ loncom/interface/lonaboutme.pm	Sat Sep 14 17:01:38 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # "About Me" Personal Information
 #
-# $Id: lonaboutme.pm,v 1.6 2002/09/13 20:46:09 www Exp $
+# $Id: lonaboutme.pm,v 1.7 2002/09/14 21:01:38 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -72,7 +72,7 @@
     $r->print('<h1>'.&Apache::loncommon::plainname($cnum,$cdom).'</h1>');
     if ($courseenv{'nickname'}) {
        $r->print(
-         '<h2>&quot;'.&Apache::lonnet::unescape($courseenv{'nickname'}).
+         '<h2>&quot;'.$courseenv{'nickname'}.
          '&quot;</h2>');
     }
     $r->print('<h3>'.$Apache::lonnet::domaindescription{$cdom}.'</h3>'.