|
Lines 112-120
sub output {
Link Here
|
| 112 |
C4::Context->preference('opaclayoutstylesheet'); |
112 |
C4::Context->preference('opaclayoutstylesheet'); |
| 113 |
|
113 |
|
| 114 |
# add variables set via param to $vars for processing |
114 |
# add variables set via param to $vars for processing |
| 115 |
for my $k ( keys %{ $self->{VARS} } ) { |
115 |
$vars = { %$vars, %{ $self->{VARS} } }; |
| 116 |
$vars->{$k} = $self->{VARS}->{$k}; |
|
|
| 117 |
} |
| 118 |
|
116 |
|
| 119 |
my $data; |
117 |
my $data; |
| 120 |
binmode( STDOUT, ":utf8" ); |
118 |
binmode( STDOUT, ":utf8" ); |
| 121 |
- |
|
|