give render module to pull usemap from

[Biblio-Z3950.git] / server.pl

diff --git a/server.pl b/server.pl
index b19f1e4..7cc545f 100755 (executable)
--- a/server.pl
+++ b/server.pl
@@ -165,13 +165,11 @@ use Data::Dump qw(dump);
 use COBISS;
 
 sub render {
-    my $this       = shift;
+    my ($this,$from) = @_;
 
 print "render ", dump($this);
 
-my $from = 'COBISS';
-
-my $usemap = eval "${from}::usemap;";
+my $usemap = eval '$' . $from . '::usemap';
 die $@ if $@;
 warn "# $from usermap ",dump($usemap);