|
@@ -1553,14 +1553,15 @@ original parsed data. INFO is a plist holding export options."
|
|
|
(timestamp (and (not (cdr date))
|
|
|
(eq (org-element-type (car date)) 'timestamp)
|
|
|
(car date))))
|
|
|
- (concat
|
|
|
- (format "\n<text:p text:style-name=\"%s\">%s</text:p>"
|
|
|
- "OrgSubtitle"
|
|
|
- (if (and (plist-get info :odt-use-date-fields) timestamp)
|
|
|
- (org-odt--format-timestamp (car date))
|
|
|
- (org-export-data (plist-get info :date) info)))
|
|
|
- ;; Separator
|
|
|
- "<text:p text:style-name=\"OrgSubtitle\"/>"))))))
|
|
|
+ (when date
|
|
|
+ (concat
|
|
|
+ (format "\n<text:p text:style-name=\"%s\">%s</text:p>"
|
|
|
+ "OrgSubtitle"
|
|
|
+ (if (and (plist-get info :odt-use-date-fields) timestamp)
|
|
|
+ (org-odt--format-timestamp (car date))
|
|
|
+ (org-export-data date info)))
|
|
|
+ ;; Separator
|
|
|
+ "<text:p text:style-name=\"OrgSubtitle\"/>")))))))
|
|
|
;; Table of Contents
|
|
|
(let* ((with-toc (plist-get info :with-toc))
|
|
|
(depth (and with-toc (if (wholenump with-toc)
|