# HG changeset patch
# User Henry S. Thompson <ht@markup.co.uk>
# Date 1491993387 -3600
# Node ID 6270bef9b5d408fb163ea2395afe10ff974f60e6
# Parent  16eff0d30d4d51873d9ca070bfae09d1a5c3d9c2
need to preserve abs ref info

diff -r 16eff0d30d4d -r 6270bef9b5d4 refs.xsl
--- a/refs.xsl	Tue Apr 11 17:03:39 2017 +0100
+++ b/refs.xsl	Wed Apr 12 11:36:27 2017 +0100
@@ -49,7 +49,7 @@
                                 not($l[@nr=10 and
                                        .=(':','!')]) and
                                 not($r[@nr=10 and .=':']))
-                             then translate($t,'$','')
+                             then string($t)
                              else (),
                   $ranges := for $i in (1 to count($tokens)) return
                             let $t := $tokens[$i] return
@@ -62,20 +62,17 @@
                                              else $l,
                                       $r1 := if ($r/@nr=9) then e:lookup($r)
                                              else $r
-                                      return translate(concat($l1,':',$r1),
-                                                       '$','')
+                                      return concat($l1,':',$r1)
                              else (),
                   $externals := for $i in (1 to count($tokens)) return
                             let $t := $tokens[$i] return
                             if ($t/@nr=7)
                              then 
-                              let $bit := concat($t,'!',
-                                                 translate($tokens[$i + 2],
-                                                           '$','')) return
+                              let $bit := concat($t,'!',$tokens[$i + 2]) return
                                if ((($i+3) le $n) and
                                    $tokens[$i + 3][@nr=10 and .=':'])
                                 then concat($bit,':',
-                                            translate($tokens[$i + 4],'$',''))
+                                            $tokens[$i + 4])
                                 else $bit
                              else ()
                   return [($singles,for $a in $recur return $a?1),