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

stredwic lon-capa-cvs@mail.lon-capa.org
Tue, 04 Jun 2002 19:59:34 -0000


stredwic		Tue Jun  4 15:59:34 2002 EDT

  Modified files:              
    /loncom/interface	lonchart.pm 
  Log:
  Missing quote marks around hash keys for %name in lonchart::BuildChart after lonnet::get
  
  
Index: loncom/interface/lonchart.pm
diff -u loncom/interface/lonchart.pm:1.41 loncom/interface/lonchart.pm:1.42
--- loncom/interface/lonchart.pm:1.41	Mon Jun  3 15:28:17 2002
+++ loncom/interface/lonchart.pm	Tue Jun  4 15:59:34 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: lonchart.pm,v 1.41 2002/06/03 19:28:17 albertel Exp $
+# $Id: lonchart.pm,v 1.42 2002/06/04 19:59:34 stredwic Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -313,11 +313,11 @@
 						       ,'firstname'
 						       ,'middlename'],
 						       $sdom,$sname);
-			my $name=$name{lastname};
-			if ($name{generation}) {$name.=" $name{generation}";}
+			my $name=$name{'lastname'};
+			if ($name{'generation'}) {$name.=" $name{generation}";}
 			$name.=',';
-			if ($name{firstname}) {$name.=" $name{firstname}";}
-			if ($name{middlename}) {$name.=" $name{middlename}";}
+			if ($name{'firstname'}) {$name.=" $name{firstname}";}
+			if ($name{'middlename'}) {$name.=" $name{middlename}";}
 			if ($name eq ',') {$name='';}
 			#$ssec=(int($ssec)) ? int($ssec) : $ssec;
 			my $sec=sprintf('%3s',$ssec);