projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix sh/muf
[spider.git]
/
perl
/
Thingy
/
Bye.pm
diff --git
a/perl/Thingy/Bye.pm
b/perl/Thingy/Bye.pm
index 6d75b618e2832befe2cf4c58088964953266a890..740ca6c791d3ac4cfde238f7c97967a27b4feb18 100644
(file)
--- a/
perl/Thingy/Bye.pm
+++ b/
perl/Thingy/Bye.pm
@@
-1,6
+1,9
@@
#
# Bye Thingy handling
#
#
# Bye Thingy handling
#
+# Note that this is a generator of pc21n and pc17n/pc17u
+# and a consumer of fpc21n and fpc21n
+#
# $Id$
#
# Copyright (c) 2005 Dirk Koopman G1TLH
# $Id$
#
# Copyright (c) 2005 Dirk Koopman G1TLH
@@
-52,11
+55,11
@@
sub handle
my $uref = Route::get($user);
if ($parent && $uref) {
if ($uref->isa('Route::Node')) {
my $uref = Route::get($user);
if ($parent && $uref) {
if ($uref->isa('Route::Node')) {
- @pc21 = $
parent->del($uref
);
+ @pc21 = $
uref->del($parent
);
} else {
$parent->del_user($uref);
} else {
$parent->del_user($uref);
- $thing->{pc17n} = $
thing->{origin}
;
- $thing->{pc17u} =
$user
;
+ $thing->{pc17n} = $
parent
;
+ $thing->{pc17u} =
[$uref]
;
}
}
} else {
}
}
} else {