From: dpavlin <dpavlin@ae73d1a6-5fa4-44a9-8f13-f281fb455051>
Date: Fri, 22 Oct 2010 21:31:08 +0000 (+0000)
Subject: make usemap configurable
X-Git-Url: http://git.rot13.org/?p=Biblio-Z3950.git;a=commitdiff_plain;h=942b2c7aff7ea513a1fd4640abd72ccb5e9380ba

make usemap configurable


git-svn-id: svn+ssh://llin.lib/home/dpavlin/private/svn/Z3950-HTML-Scraper@14 ae73d1a6-5fa4-44a9-8f13-f281fb455051
---

diff --git a/COBISS.pm b/COBISS.pm
index 47ba441..c275f3e 100644
--- a/COBISS.pm
+++ b/COBISS.pm
@@ -64,11 +64,6 @@ our $usemap = {
 
 };
 
-sub usemap {
-	my $f = shift || die;
-	$usemap->{$f};
-}
-
 sub search {
 	my ( $self, $query ) = @_;
 
diff --git a/server.pl b/server.pl
index 33708da..3d5850e 100755
--- a/server.pl
+++ b/server.pl
@@ -168,6 +168,11 @@ sub render {
 
 print "render ", dump($this);
 
+my $from = 'COBISS';
+
+my $usemap = eval "${from}::usemap;";
+warn "# $from usermap ",dump($usemap);
+
     my $attributes = {};
     my $prefix     = "";
     foreach my $attr ( @{ $this->{attributes} } ) {
@@ -176,7 +181,7 @@ print "render ", dump($this);
         $attributes->{$type} = $value;
     }
     if ( defined( my $use = $attributes->{1} ) ) {
-        if ( defined( my $field = COBISS::usemap($use) ) ) {
+        if ( defined( my $field = $usemap->{$use} ) ) {
             $prefix = $field;
         }
         else {