custom icons for each zoom level

diff --git a/koha-import.pl b/koha-import.pl
index d251ef7..aa7805b 100755 (executable)
--- 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 (executable)
--- 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 ;