[Refdb-cvs] CVS: refdb/dsssl/refdb citations.dsl,1.6,1.7

[Markus H. <mho...@us...>]

Update of /cvsroot/refdb/refdb/dsssl/refdb
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14213/dsssl/refdb

Modified Files:
	citations.dsl 
Log Message:
use separator in front of id type specifier

Index: citations.dsl
===================================================================
RCS file: /cvsroot/refdb/refdb/dsssl/refdb/citations.dsl,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -U2 -r1.6 -r1.7
--- citations.dsl	13 Dec 2002 20:33:49 -0000	1.6
+++ citations.dsl	18 Mar 2004 21:40:45 -0000	1.7
@@ -144,11 +144,11 @@
 (define (strip-refdb-suffix str)
   ;; REFENTRY strip-refdb-suffix
-  ;; PURP strips off trailing link type specifier in ID
+  ;; PURP strips off trailing link type specifier and separator in ID
   ;; DESC
-  ;; RefDB citations use ID values in the formats "IDnumerical_IDX" 
-  ;; or "IDalphanumeric_citekeyX where ID is the invariant part,
+  ;; RefDB citations use ID values in the formats "IDnumerical_id:X" 
+  ;; or "IDalphanumeric_citekey:X where ID is the invariant part,
   ;; followed by a number or a citekey of unlimited length, which is
-  ;; followed by a one-char specifier for the text which is to be
-  ;; rendered with the link. Stripping off
+  ;; followed by a separator and an one-char specifier for the text
+  ;; which is to be rendered with the link. Stripping off
   ;; this specifier simplifies downstream processing
   ;; /DESC
@@ -156,6 +156,6 @@
   ;; /REFENTRY
   (let ((strlen (string-length str)))
-    (if (equal? (string->number (substring str (- strlen 1) strlen)) #f)
-	(substring str 0 (- strlen 1))
+    (if (equal? (substring str (- strlen 2) (- strlen 1)) ":")
+	(substring str 0 (- strlen 2))
 	str)))