Documentation Source Text: Check-in [2c70d4b893]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview

Comment:	Ignore case when sorting entries for the doc_backlink_crossref.html page.
Downloads:	Tarball \| ZIP archive \| SQL archive
Timelines:	family \| ancestors \| descendants \| both \| trunk
Files:	files \| file ages \| folders
SHA1:	2c70d4b89315522d4e3e3012c2797f0e1b70d7ac
User & Date:	drh 2009-12-11 16:34:40

Context

2009-12-11
16:54		Remove the old-style requirements documents from the set of documentation pages generated. (check-in: f259e08f31 user: drh tags: trunk)
16:34		Ignore case when sorting entries for the doc_backlink_crossref.html page. (check-in: 2c70d4b893 user: drh tags: trunk)
16:33		Fix a typo in the google url on the famous.html page. (check-in: 66c988ccf9 user: drh tags: trunk)

Changes

Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to wrap.tcl.

}
hd_puts "</ul>"
hd_close_main

hd_open_main doc_backlink_crossref.html
hd_header {Backlink Crossreference} $DOC/wrap.tcl
hd_puts "<ul>"
foreach kw [lsort [array names backlink]] {
  hd_puts "<li>$kw -"
  set prev {}
  foreach ref [lsort $backlink($kw)] {
    if {$ref==$prev} continue
    set prev $ref
    hd_puts "  <a href=\"$ref\">$ref</a>"
  }

}
hd_puts "</ul>"
hd_close_main

hd_open_main doc_backlink_crossref.html
hd_header {Backlink Crossreference} $DOC/wrap.tcl
hd_puts "<ul>"
foreach kw [lsort -nocase [array names backlink]] {
  hd_puts "<li>$kw -"
  set prev {}
  foreach ref [lsort $backlink($kw)] {
    if {$ref==$prev} continue
    set prev $ref
    hd_puts "  <a href=\"$ref\">$ref</a>"
  }