--- loncom/lond 2004/01/14 01:20:40 1.165.2.1 +++ loncom/lond 2004/01/15 18:56:11 1.165.2.2 @@ -2,7 +2,7 @@ # The LearningOnline Network # lond "LON Daemon" Server (port "LOND" 5663) # -# $Id: lond,v 1.165.2.1 2004/01/14 01:20:40 albertel Exp $ +# $Id: lond,v 1.165.2.2 2004/01/15 18:56:11 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -52,7 +52,7 @@ my $DEBUG = 0; # Non zero to ena my $status=''; my $lastlog=''; -my $VERSION='$Revision: 1.165.2.1 $'; #' stupid emacs +my $VERSION='$Revision: 1.165.2.2 $'; #' stupid emacs my $remoteVERSION; my $currenthostid; my $currentdomainid; @@ -1959,7 +1959,7 @@ sub make_new_child { my %hash; if (tie(%hash,'GDBM_File',"$proname/$namespace.db",&GDBM_WRCREAT(),0640)) { foreach my $key (@keys) { - delete($hash{&unescape($key)}); + delete($hash{$key}); } if (untie(%hash)) { print $client "ok\n";