and make eval for usemap work

diff --git a/server.pl b/server.pl
index b19f1e4..7ad6c7d 100755 (executable)
--- a/server.pl
+++ b/server.pl
@@ -171,7 +171,7 @@ print "render ", dump($this);
 
 my $from = 'COBISS';
 
-my $usemap = eval "${from}::usemap;";
+my $usemap = eval '$' . $from . '::usemap';
 die $@ if $@;
 warn "# $from usermap ",dump($usemap);