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 (file)
--- 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 (executable)
--- 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 {