… | |
… | |
201 | my ($widget) = @_; |
201 | my ($widget) = @_; |
202 | |
202 | |
203 | $::CONN && $::CONN->ex ($self->{tag}, sub { |
203 | $::CONN && $::CONN->ex ($self->{tag}, sub { |
204 | my ($long_desc) = @_; |
204 | my ($long_desc) = @_; |
205 | |
205 | |
206 | $long_desc =~ s/\s+$//; |
206 | $long_desc = DC::Protocol::sanitise_xml ($long_desc); |
207 | |
207 | |
208 | $self->{long_desc} = $long_desc; |
208 | $self->{long_desc} = $long_desc; |
209 | $widget->set_tooltip ("<b>$long_desc</b>\n\n$tooltip_std"); |
209 | $widget->set_tooltip ("<b>$long_desc</b>\n\n$tooltip_std"); |
210 | }); |
210 | }); |
211 | }, |
211 | }, |