[Orgmode] [babel] bug, exporting scrname source blocks html

[Martin G. Skjæveland]

Hi,

when I export the following to html

-------------------------------------start
* test

#+srcname: test1
#+begin_src n3 -n
subject predicate object
#+end_src

#+begin_src n3 -n
subject predicate object
#+end_src
-------------------------------------end

the two source blocks are exported as (spacing removed)

-------------------------------------start
<p>A</p>
<label class="org-src-name">test1  &equiv</label>
<span class="linenr">1:  </span><pre class="src src-n3">
<span class="linenr">2:  </span>subject predicate object
</pre>
<p>B</p>
<pre class="src src-n3"><span class="linenr">1:  </span>subject 
predicate object
</pre>
-------------------------------------end

which in a browser looks like

-------------------------------------start
A
test1 ≡ 1:

2:  subject predicate object

B

1:  subject predicate object
-------------------------------------end

In my opinion it should be exported to look like this

-------------------------------------start
A

1:  subject predicate object

B

1:  subject predicate object
-------------------------------------end


Thanks!
Martin

------------------------------------------------------------------------

Emacs  : GNU Emacs 23.1.50.1 (i486-pc-linux-gnu, GTK+ Version 2.18.0)
 of 2009-09-27 on palmer, modified by Debian
Package: Org-mode version 6.34trans (release_6.34c.40.g2cd16.dirty)

current state:
==============
(setq
 org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-babel-interpreters '("makefile" "tex" "n3" "xml" "java" "python" "dot"
                          "css" "sh" "emacs-lisp")
 org-export-latex-format-toc-function 'org-export-latex-format-toc-default
 org-export-preprocess-hook '(org-export-blocks-preprocess)
 org-tab-first-hook '(org-babel-hide-result-toggle-maybe
                      org-hide-block-toggle-maybe)
 org-src-mode-hook '(org-src-mode-configure-edit-buffer)
 org-confirm-shell-link-function 'yes-or-no-p
 org-src-preserve-indentation t
 org-export-first-hook '(org-beamer-initialize-open-trackers)
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
                  org-cycle-show-empty-lines
                  org-optimize-window-after-visibility-change)
 org-export-latex-classes '(("article" "\\documentclass[11pt]{article}"
                             ("\\section{%s}" . "\\section*{%s}")
                             ("\\subsection{%s}" . "\\subsection*{%s}")
                             ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
                             ("\\paragraph{%s}" . "\\paragraph*{%s}"))
                            ("book" "\\documentclass[11pt]{book}"
                             ("\\chapter{%s}" . "\\chapter*{%s}")
                             ("\\section{%s}" . "\\section*{%s}")
                             ("\\subsection{%s}" . "\\subsection*{%s}")
                             ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
                            )
 org-publish-project-alist '(("vortex" :base-directory "~/exercises/"
                              :publishing-directory "~/exercises/"
                              :base-extension "org" :publishing-function
                              org-publish-org-to-html :preamble
			      "${resource:breadcrumb}<style>.breadcrumb 
{font-size:80%;}</style>" :skip-before-1st-heading nil)
                             )
 org-export-preprocess-before-normalizing-links-hook 
'(org-remove-file-link-modifiers)
 org-use-speed-commands t
 org-mode-hook '((lambda nil
                  (org-add-hook (quote change-major-mode-hook)
                   (quote org-babel-show-result-all) (quote append)
                   (quote local))
                  )
                 org-babel-result-hide-spec org-babel-hide-all-hashes
                 #[nil "\300\301\302\303\304$\207"
                   [org-add-hook change-major-mode-hook org-show-block-all
                    append local]
                   5]
                 )
 org-ctrl-c-ctrl-c-hook '(org-babel-lob-execute-maybe 
org-babel-hash-at-point
                          org-babel-execute-src-block-maybe)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-export-interblocks '((lob org-babel-exp-lob-one-liners)
                          (src org-babel-exp-inline-src-blocks))
 org-occur-hook '(org-first-headline-recenter)
 org-export-preprocess-before-selecting-backend-code-hook 
'(org-beamer-select-beamer-code)
 org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix-toc
                               org-beamer-auto-fragile-frames
                               org-beamer-place-default-actions-for-lists)
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-export-blocks '((src org-babel-exp-src-blocks nil)
                     (comment org-export-blocks-format-comment t)
                     (ditaa org-export-blocks-format-ditaa nil)
                     (dot org-export-blocks-format-dot nil))
 )