From ee3e882503afede57ed4050159888adf33f9ef64 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 3 Apr 2011 21:25:16 +0200
Subject: [PATCH] custom icons for each zoom level

---
 koha-import.pl | 2 +-
 tiles.pl       | 3 +++
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/koha-import.pl b/koha-import.pl
index d251ef7..aa7805b 100755
--- a/koha-import.pl
+++ b/koha-import.pl
@@ -178,7 +178,7 @@ select
 into geo_count
 from geo_biblioitems
 join geo_city on city_koha = geo_biblioitems.city
-where length(geo_city.city) > 1 or length(country) > 1
+where length(geo_city.city) > 1
 group by geo_city.city, country, lat, lng
 order by count(biblionumber) desc
 
diff --git a/tiles.pl b/tiles.pl
index 00f2f4c..31f8fec 100755
--- a/tiles.pl
+++ b/tiles.pl
@@ -185,6 +185,9 @@ while ( ($zoom,$tilex,$tiley) = $sth->fetchrow_array )
   $imicon = $imicon1 ;
  }
 
+ my $custom_icon = "$name/icons/$zoom.png";
+ $imicon = GD::Image->newFromPng( $custom_icon ) if -e $custom_icon;
+
  $sti = $dbh->prepare("select latpix,lngpix from gvp_world_tiles where zoom = $zoom and tilex = $tilex and tiley = $tiley") ;
 
  $sti->execute ;
-- 
2.20.1