| … | |
… | |
| 95 | } |
95 | } |
| 96 | |
96 | |
| 97 | sub event_update_roominfo { |
97 | sub event_update_roominfo { |
| 98 | my ($self) = @_; |
98 | my ($self) = @_; |
| 99 | |
99 | |
| 100 | $self->{text}->append_text("\n<owner>" . (util::toxml $self->{owner}) . "</owner>\n" |
100 | $self->{text}->append_text("\n<user>" . (util::toxml $self->{owner}) . "</user>\n" |
| 101 | . "<description>" . (util::toxml $self->{description}) . "</description>\n"); |
101 | . "<description>" . (util::toxml $self->{description}) . "</description>\n"); |
| 102 | } |
102 | } |
| 103 | |
103 | |
| 104 | sub destroy { |
104 | sub destroy { |
| 105 | my ($self) = @_; |
105 | my ($self) = @_; |
