projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
27b6e96
)
fix naming
author
minima
<minima>
Tue, 22 Feb 2005 17:53:54 +0000
(17:53 +0000)
committer
minima
<minima>
Tue, 22 Feb 2005 17:53:54 +0000
(17:53 +0000)
perl/Thingy/Rt.pm
patch
|
blob
|
history
diff --git
a/perl/Thingy/Rt.pm
b/perl/Thingy/Rt.pm
index 807e414e2895a5f9892ea91c8a2fba7dbd746bfe..6207635aac912ba03f071aa493d9c4a88c5a1fce 100644
(file)
--- a/
perl/Thingy/Rt.pm
+++ b/
perl/Thingy/Rt.pm
@@
-158,23
+158,6
@@
sub handle_cf
return $thing;
}
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
{
sub _add_user
{
@@
-240,6
+223,25
@@
sub new_cf
return $thing;
}
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;
+}