Fix some small bugs.

contrib/lisp/org-exp-blocks.el

@@ -183,7 +183,7 @@ passed to the ditaa utility as command line arguments."
       (error (format "Could not find ditaa.jar at %s" org-ditaa-jar-path)))
     (setq body (if (string-match "^\\([^:\\|:[^ ]\\)" body)
 		   body
-		 (mapconcat (lambda (x) (substring x (> (length x) 1) 2 1))
+		 (mapconcat (lambda (x) (substring x (if (> (length x) 1) 2 1)))
 			    (org-split-string body "\n")
 			    "\n")))
     (cond 

lisp/ChangeLog

@@ -1,5 +1,8 @@
 2008-12-19  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org-export-latex.el (org-export-latex-links): Fix bug with
+	undefined label.
+
 	* org-table.el (org-table-get-specials): Set
 	`org-table-current-last-data-line'.
 	(org-table-current-last-data-line): New variable.

lisp/org-export-latex.el

@@ -1207,7 +1207,7 @@ If TIMESTAMPS, convert timestamps, otherwise delete them."
 			(expand-file-name raw-path))
 		(if floatp
 		    (format "\\caption{%s%s}\n"
-			    (if label (concat "\\label{" label "}"))
+			    (if label (concat "\\label{" label "}") "")
 			    (or caption "")))
 		(if floatp "\\end{figure}\n"))))
 	     (radiop (insert (format "\\hyperref[%s]{%s}"