--- loncom/lond 2004/01/14 01:08:31 1.171 +++ loncom/lond 2004/01/15 15:28:30 1.172 @@ -2,7 +2,7 @@ # The LearningOnline Network # lond "LON Daemon" Server (port "LOND" 5663) # -# $Id: lond,v 1.171 2004/01/14 01:08:31 albertel Exp $ +# $Id: lond,v 1.172 2004/01/15 15:28:30 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -53,7 +53,7 @@ my $DEBUG = 0; # Non zero to ena my $status=''; my $lastlog=''; -my $VERSION='$Revision: 1.171 $'; #' stupid emacs +my $VERSION='$Revision: 1.172 $'; #' stupid emacs my $remoteVERSION; my $currenthostid; my $currentdomainid; @@ -2213,7 +2213,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";