--- loncom/lond 2005/10/11 21:29:36 1.299 +++ loncom/lond 2005/10/14 19:08:31 1.300 @@ -2,7 +2,7 @@ # The LearningOnline Network # lond "LON Daemon" Server (port "LOND" 5663) # -# $Id: lond,v 1.299 2005/10/11 21:29:36 raeburn Exp $ +# $Id: lond,v 1.300 2005/10/14 19:08:31 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -59,7 +59,7 @@ my $DEBUG = 0; # Non zero to ena my $status=''; my $lastlog=''; -my $VERSION='$Revision: 1.299 $'; #' stupid emacs +my $VERSION='$Revision: 1.300 $'; #' stupid emacs my $remoteVERSION; my $currenthostid="default"; my $currentdomainid; @@ -3586,11 +3586,7 @@ sub dump_dcmail_handler { } if (defined($sendersfilter)) { $sendersfilter=&unescape($sendersfilter); - if ($sendersfilter =~ /\&/) { - @senders = split(/\&/,$sendersfilter); - } else { - $senders[0] = $sendersfilter; - } + @senders = map { &unescape($_) } split(/\&/,$sendersfilter); } my $qresult=''; @@ -3721,11 +3717,7 @@ sub dump_domainroles_handler { } if (defined($rolesfilter)) { $rolesfilter=&unescape($rolesfilter); - if ($rolesfilter =~ /\&/) { - @roles = split(/\&/,$rolesfilter); - } else { - $roles[0] = $rolesfilter; - } + @roles = split(/\&/,$rolesfilter); } my $hashref = &tie_domain_hash($udom, "nohist_domainroles", &GDBM_WRCREAT());