| … | |
… | |
| 237 | sub feed_setup { |
237 | sub feed_setup { |
| 238 | my ($self, $data) = @_; |
238 | my ($self, $data) = @_; |
| 239 | |
239 | |
| 240 | $data =~ s/^ +//; |
240 | $data =~ s/^ +//; |
| 241 | |
241 | |
|
|
242 | my $prev_setup = $self->{setup}; |
|
|
243 | |
| 242 | $self->{setup} = { split / +/, $data }; |
244 | $self->{setup} = { split / +/, $data }; |
| 243 | |
245 | |
| 244 | if ($self->{setup}{extendedTextInfos} > 0) { |
246 | if ($self->{setup}{extendedTextInfos} > 0 && !$prev_setup) { |
| 245 | $self->send ("toggleextendedtext 1"); # books |
247 | $self->send ("toggleextendedtext 1"); # books |
| 246 | $self->send ("toggleextendedtext 2"); # cards |
248 | $self->send ("toggleextendedtext 2"); # cards |
| 247 | $self->send ("toggleextendedtext 3"); # papers |
249 | $self->send ("toggleextendedtext 3"); # papers |
| 248 | $self->send ("toggleextendedtext 4"); # signs |
250 | $self->send ("toggleextendedtext 4"); # signs |
| 249 | $self->send ("toggleextendedtext 5"); # monuments |
251 | $self->send ("toggleextendedtext 5"); # monuments |
