add aranea stuff

[spider.git] / perl / Thingy / Rt.pm

diff --git a/perl/Thingy/Rt.pm b/perl/Thingy/Rt.pm
index ab831de286a1dd43132812b2bec961e7d7b31f9a..69cf3ca2ac39f021b54e699e735071be683ebd90 100644 (file)
--- a/perl/Thingy/Rt.pm
+++ b/perl/Thingy/Rt.pm
@@ -28,7 +28,9 @@ sub gen_Aranea
        my $thing = shift;
        unless ($thing->{Aranea}) {
                my @items;
-               $thing->{Aranea} = Aranea::genmsg($thing, 'RT', @items);
+               push @items, 't', $thing->{t} if $thing->{t};
+               push @items, 'd', $thing->{d} if $thing->{d};
+               $thing->{Aranea} = Aranea::genmsg($thing, 'RT');
        }
        return $thing->{Aranea};
 }