Documentation Source Text

Check-in [af45a586ba]
Login

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

Overview
Comment:Another patch needed for the ampersand-escape mapping.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: af45a586bad1ef8d271317449bb8eb3b6ee21809
User & Date: drh 2009-12-31 15:51:02
Context
2009-12-31
16:06
Add HTML escapes back into requirement text when generating HTML in the requirements matrix. check-in: ca108712a2 user: drh tags: trunk
15:51
Another patch needed for the ampersand-escape mapping. check-in: af45a586ba user: drh tags: trunk
15:28
Convert HTML ampersand-values "&lt;", "&gt;", and "&amp;" into "<", ">", and "&" prior to computing the hash for a requirement. check-in: 8822607ccf user: drh tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to matrix.tcl.

487
488
489
490
491
492
493

494
495
496
497
498
499
500
    } else {
      regexp {^([^<]|<.+?>)*?\.} $nx req
      regsub {^([^<]|<.+?>)*?\.} $nx {} nx
    }
    set orig [string trim $req]
    regsub -all {<.+?>} $orig {} req
    regsub -all {\s+} [string trim $req] { } req

    set req [string trim $req]
    set rno R-[md5-10x8 $req]
    set shortrno [string range $rno 0 12]
    append out "<a name=\"$rno\"></a><font color=\"blue\"><b>\n"
    set link "<a href=\"$matrixpath#$rno\" style=\"color: #0000ff\">"
    append out "$link$shortrno</a>:\[</b></font>"
    if {$proof($rno)>=2} {







>







487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
    } else {
      regexp {^([^<]|<.+?>)*?\.} $nx req
      regsub {^([^<]|<.+?>)*?\.} $nx {} nx
    }
    set orig [string trim $req]
    regsub -all {<.+?>} $orig {} req
    regsub -all {\s+} [string trim $req] { } req
    set req [string map {&lt; < &gt; > &amp; &} $req]
    set req [string trim $req]
    set rno R-[md5-10x8 $req]
    set shortrno [string range $rno 0 12]
    append out "<a name=\"$rno\"></a><font color=\"blue\"><b>\n"
    set link "<a href=\"$matrixpath#$rno\" style=\"color: #0000ff\">"
    append out "$link$shortrno</a>:\[</b></font>"
    if {$proof($rno)>=2} {