[Refdb-cvs] CVS: refdb/dsssl/refdb/lib refdblib.dsl,1.3,1.3.4.1

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

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