From 42955602ebc7f77d22617ff6eae1b0dbbcddd394 Mon Sep 17 00:00:00 2001
From: Wolfram Schneider <wosch@indexdata.dk>
Date: Fri, 23 Apr 2010 17:20:24 +0200
Subject: [PATCH] normalize recordSyntaxes and domains

---
 lib/ZOOM/IRSpy/Stats.pm |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/ZOOM/IRSpy/Stats.pm b/lib/ZOOM/IRSpy/Stats.pm
index 641f47f..6a59c6b 100644
--- a/lib/ZOOM/IRSpy/Stats.pm
+++ b/lib/ZOOM/IRSpy/Stats.pm
@@ -113,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
@@ -135,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')) {
-- 
1.7.10.4