X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXLogPrint.pm;h=b16d69e4c055b38406c7a52c30972acea6f2900f;hb=34b7ed3f88da5b993281b7c1ee9af699e1b9b54b;hp=c2843ed579b22e580fc978bd81325b7ea144912b;hpb=281b5d6baba694aa7b99be87a7be46a59ed0bd6c;p=spider.git

diff --git a/perl/DXLogPrint.pm b/perl/DXLogPrint.pm
index c2843ed5..b16d69e4 100644
--- a/perl/DXLogPrint.pm
+++ b/perl/DXLogPrint.pm
@@ -33,7 +33,7 @@ sub print
 	my $to = shift || 10;
 	my $jdate = $fcb->unixtoj(shift);
 	my $pattern = shift;
-	my $who = uc shift;
+	my $who = shift;
 	my $search;
 	my @in;
 	my @out = ();
@@ -41,6 +41,8 @@ sub print
 	my $tot = $from + $to;
 	my $hint = "";
 	    
+	$who = uc $who if defined $who;
+	
 	if ($pattern) {
 		$hint = "m{\\Q$pattern\\E}i";
 	} else {