… | |
… | |
501 | $SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER); |
501 | $SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER); |
502 | $SETUP_DIALOG->show; |
502 | $SETUP_DIALOG->show; |
503 | $PL_WINDOW->hide; |
503 | $PL_WINDOW->hide; |
504 | $SPELL_LIST->clear_spells; |
504 | $SPELL_LIST->clear_spells; |
505 | $CFPlus::UI::ROOT->emit (stop_game => ! ! $CONN); |
505 | $CFPlus::UI::ROOT->emit (stop_game => ! ! $CONN); |
|
|
506 | |
|
|
507 | &audio_music_set ([]); |
506 | |
508 | |
507 | return unless $CONN; |
509 | return unless $CONN; |
508 | |
510 | |
509 | status "connection closed"; |
511 | status "connection closed"; |
510 | |
512 | |
… | |
… | |
2019 | |
2021 | |
2020 | my $count = @$songs; |
2022 | my $count = @$songs; |
2021 | my @meta; |
2023 | my @meta; |
2022 | |
2024 | |
2023 | for my $name (@$songs) { |
2025 | for my $name (@$songs) { |
2024 | CFPlus::DB::get resmap => $name, sub { |
2026 | CFPlus::DB::get "res-metadata" => $name, sub { |
2025 | my ($data) = @_; |
2027 | my ($data) = @_; |
2026 | |
2028 | |
2027 | if ($data) { |
2029 | if ($data) { |
2028 | $data = JSON::XS->new->utf8->decode ($data); |
2030 | $data = JSON::XS->new->utf8->decode ($data); |
2029 | $data->{path} = CFPlus::DB::path_of $name; |
2031 | $data->{path} = CFPlus::DB::path_of $name; |