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)))
|
