give render module to pull usemap from

diff --git a/server.pl b/server.pl
index 7ad6c7d..7cc545f 100755 (executable)
--- a/server.pl
+++ b/server.pl
@@ -165,12 +165,10 @@ 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';
 die $@ if $@;
 warn "# $from usermap ",dump($usemap);