… | |
… | |
105 | push @{$self->{record}}, $command; |
105 | push @{$self->{record}}, $command; |
106 | } |
106 | } |
107 | |
107 | |
108 | $self->logprint ("send: ", $command); |
108 | $self->logprint ("send: ", $command); |
109 | $self->send_command ($command); |
109 | $self->send_command ($command); |
110 | ::status $command; |
110 | ::status ($command); |
111 | } |
111 | } |
112 | |
112 | |
113 | sub start_record { |
113 | sub start_record { |
114 | my ($self) = @_; |
114 | my ($self) = @_; |
115 | |
115 | |
… | |
… | |
523 | return unless $::CONN; |
523 | return unless $::CONN; |
524 | |
524 | |
525 | $::FLOORBOX->clear; |
525 | $::FLOORBOX->clear; |
526 | |
526 | |
527 | my $row; |
527 | my $row; |
528 | for (@{ $::CONN->{container}{0} }) { |
528 | for (sort { $a->{count} <=> $b->{count} } values %{ $::CONN->{container}{0} }) { |
529 | if ($row < 6) { |
529 | if ($row < 6) { |
530 | local $_->{face_widget}; # hack to force recreation of widget |
530 | local $_->{face_widget}; # hack to force recreation of widget |
531 | local $_->{desc_widget}; # hack to force recreation of widget |
531 | local $_->{desc_widget}; # hack to force recreation of widget |
532 | CFClient::Item::update_widgets $_; |
532 | CFClient::Item::update_widgets $_; |
533 | |
533 | |