move stuff around and try to get pc59 handling/generation more correct

[spider.git] / perl / Route / User.pm

diff --git a/perl/Route/User.pm b/perl/Route/User.pm
index d3cfb7d34abfec26b9f814a9141126665517e866..7bf19d44a5babf7c6d10a665fc0bb4e3cb0c35f8 100644 (file)
--- a/perl/Route/User.pm
+++ b/perl/Route/User.pm
@@ -110,6 +110,17 @@ sub nodes
        return @{$self->{nodes}};
 }
 
+#
+# pc59 entity encoding and decoding
+#
+sub enc_pc59
+{
+       my $self = shift;
+       my $sort = shift || 'U';
+       my $out = "$sort$self->{flags}$self->{call}";
+       return $out;
+}
+
 #
 # generic AUTOLOAD for accessors
 #