X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FRoute%2FUser.pm;h=7bf19d44a5babf7c6d10a665fc0bb4e3cb0c35f8;hb=a931b090e0be3329bcbf7deddb7c17c30fa0e74a;hp=d3cfb7d34abfec26b9f814a9141126665517e866;hpb=8c23f70c2487e906a80ef323763cb7cb123baf28;p=spider.git

diff --git a/perl/Route/User.pm b/perl/Route/User.pm
index d3cfb7d3..7bf19d44 100644
--- 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
 #