X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FThingy%2FRt.pm;h=6207635aac912ba03f071aa493d9c4a88c5a1fce;hb=4f2b8661933ee3e3ccda2596d30485d98dd18ecb;hp=807e414e2895a5f9892ea91c8a2fba7dbd746bfe;hpb=27b6e9691f9985830388bbb8fc0a04357fa4f11f;p=spider.git diff --git a/perl/Thingy/Rt.pm b/perl/Thingy/Rt.pm index 807e414e..6207635a 100644 --- a/perl/Thingy/Rt.pm +++ b/perl/Thingy/Rt.pm @@ -158,23 +158,6 @@ sub handle_cf return $thing; } -# -# copy out the PC16 data for a node into the -# pc16n and u slots if there are any users -# -sub copy_pc16_data -{ - my $thing = shift; - my $uref = shift; - - my @u = $uref->users; - if (@u) { - $thing->{pc16n} = $uref; - $thing->{pc16u} = [map {Route::User::get($_)} @u]; - return scalar @u; - } - return undef; -} sub _add_user { @@ -240,6 +223,25 @@ sub new_cf return $thing; } +# +# copy out the PC16 data for a node into the +# pc16n and u slots if there are any users +# +sub copy_pc16_data +{ + my $thing = shift; + my $uref = shift; + + $thing->{'s'} = 'cf'; + + my @u = $uref->users; + if (@u) { + $thing->{pc16n} = $uref; + $thing->{pc16u} = [map {Route::User::get($_)} @u]; + return scalar @u; + } + return undef; +}