Update of /cvsroot/refdb/refdb/dsssl/refdb/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9749/dsssl/refdb/lib
Modified Files:
Tag: Release_0_9_5_stable
refdblib.dsl
Log Message:
fixed intext formatting
Index: refdblib.dsl
===================================================================
RCS file: /cvsroot/refdb/refdb/dsssl/refdb/lib/refdblib.dsl,v
retrieving revision 1.3
retrieving revision 1.3.4.1
diff -u -U2 -r1.3 -r1.3.4.1
--- refdblib.dsl 15 Dec 2001 06:02:34 -0000 1.3
+++ refdblib.dsl 26 Mar 2006 00:41:24 -0000 1.3.4.1
@@ -73,11 +73,16 @@
;; /EXAMPLE
;; /REFENTRY
- (let* ((intextrole (normalize (inherited-attribute-string (normalize "role"))))
+ (let* ((intextrole (normalize (inherited-attribute-string (normalize "role") (ancestor (normalize "bibliomset") (current-node)))))
(reftype (normalize (attribute-string
(normalize "role")
(ancestor (normalize "bibliomixed")))))
- (var (if (equal? intextrole (normalize "bibliography"))
- (string-append reftype token)
- (string-append intextrole token))))
+ (var (cond ((equal? intextrole (normalize "multixref"))
+ (string-append "INTEXT" token))
+ ((equal? intextrole (normalize "bibliography"))
+ (string-append reftype token))
+ (else
+ (if (equal? intextrole (normalize "intextsq"))
+ (string-append "INTEXT" token)
+ (string-append intextrole token))))))
(refdb-symbol-value var)))
|
