… | |
… | |
121 | $tab->set_markup ($self->{channel_info}->{$id}->{title}); |
121 | $tab->set_markup ($self->{channel_info}->{$id}->{title}); |
122 | } |
122 | } |
123 | |
123 | |
124 | sub add_channel { |
124 | sub add_channel { |
125 | my ($self, $info) = @_; |
125 | my ($self, $info) = @_; |
126 | require Data::Dumper; |
|
|
127 | print "DUMPER:" . Data::Dumper->Dump ([$info]) . "\n"; |
|
|
128 | $self->{channel_info}->{$info->{id}} = $info; |
126 | $self->{channel_info}->{$info->{id}} = $info; |
129 | $self->touch_channel ($info->{id}); |
127 | $self->touch_channel ($info->{id}); |
130 | } |
128 | } |
131 | |
129 | |
132 | sub message { |
130 | sub message { |