X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy%2FStats.pm;h=6a59c6b9895d3145962397c4716a308e7f12e063;hp=f701740669492bff70e5c586dc580f52ab42898d;hb=42955602ebc7f77d22617ff6eae1b0dbbcddd394;hpb=1d9e1ab49a01c412515e93b36f92a41590d8ab56

diff --git a/lib/ZOOM/IRSpy/Stats.pm b/lib/ZOOM/IRSpy/Stats.pm
index f701740..6a59c6b 100644
--- a/lib/ZOOM/IRSpy/Stats.pm
+++ b/lib/ZOOM/IRSpy/Stats.pm
@@ -1,4 +1,3 @@
-# $Id: Stats.pm,v 1.7 2007-10-31 16:42:13 mike Exp $
 
 package ZOOM::IRSpy::Stats;
 
@@ -114,7 +113,7 @@ sub _gather_stats {
 
 	# Record syntax support by database
 	foreach my $node ($xc->findnodes('e:recordInfo/e:recordSyntax/@name')) {
-	    $this->{recordSyntaxes}->{$node->findvalue(".")}++;
+	    $this->{recordSyntaxes}->{lc($node->findvalue("."))}++;
 	}
 
 	# Explain support
@@ -136,7 +135,7 @@ sub _gather_stats {
 	# Top Domains
 	my $host = $xc->findvalue('e:serverInfo/e:host');
 	$host =~ s/.*\.//;
-	$this->{domains}->{$host}++;
+	$this->{domains}->{lc($host)}++;
 
 	# Implementation
 	foreach my $node ($xc->findnodes('i:status/i:serverImplementationName/@value')) {