168 |
|
|
169 |
print "render ", dump($this); |
print "render ", dump($this); |
170 |
|
|
171 |
|
my $from = 'COBISS'; |
172 |
|
|
173 |
|
my $usemap = eval "${from}::usemap;"; |
174 |
|
warn "# $from usermap ",dump($usemap); |
175 |
|
|
176 |
my $attributes = {}; |
my $attributes = {}; |
177 |
my $prefix = ""; |
my $prefix = ""; |
178 |
foreach my $attr ( @{ $this->{attributes} } ) { |
foreach my $attr ( @{ $this->{attributes} } ) { |
181 |
$attributes->{$type} = $value; |
$attributes->{$type} = $value; |
182 |
} |
} |
183 |
if ( defined( my $use = $attributes->{1} ) ) { |
if ( defined( my $use = $attributes->{1} ) ) { |
184 |
if ( defined( my $field = COBISS::usemap($use) ) ) { |
if ( defined( my $field = $usemap->{$use} ) ) { |
185 |
$prefix = $field; |
$prefix = $field; |
186 |
} |
} |
187 |
else { |
else { |