From 4f2b8661933ee3e3ccda2596d30485d98dd18ecb Mon Sep 17 00:00:00 2001 From: minima Date: Tue, 22 Feb 2005 17:53:54 +0000 Subject: [PATCH] fix naming --- perl/Thingy/Rt.pm | 36 +++++++++++++++++++----------------- 1 file changed, 19 insertions(+), 17 deletions(-) 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; +} -- 2.43.0