Documentation Source Text

Check-in [b1400ebb42]
Login

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

Overview
Comment:Update the /env method of the checklist application to work better with the latest version of Wapp for CGI.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: b1400ebb42159bd62d509bb57457fd482a1463e9133b51174800039d7c323ee7
User & Date: drh 2019-08-01 16:46:40
Context
2019-08-02
17:54
In the checklist application, improve the submenu and simplify the login processing. (Originally checked in on the wrong branch.) check-in: ee656f1e92 user: drh tags: trunk
2019-08-01
20:50
Initial code for a testing dashboard application. Not yet functional. check-in: 67d3af93de user: drh tags: test-dashboard
16:46
Update the /env method of the checklist application to work better with the latest version of Wapp for CGI. check-in: b1400ebb42 user: drh tags: trunk
16:36
Fix the checklist editing function on the checklist application so that it works correctly with Fossil CGI. check-in: 9d872b74d9 user: drh tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to misc/checklist.tcl.

80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
proc wapp-page-env {} {
  sqlite3 db :memory:
  set v [db one {SELECT sqlite_source_id()}]
  checklist-verify-login
  wapp-trim {
     <div class='fossil-doc' data-title='Checklist Environment'>
     <pre>%html([wapp-debug-env])}
  global env
  foreach e [array names env] {
    if {![string match FOSSIL* $e]} continue
    set txt "$e = [list $env($e)]\n"
    wapp-subst {%html($txt)}
  }
  wapp-subst {SQLite = %html($v)</pre>\n</div>\n}
}

# Show the complete text of this script.
#
proc wapp-page-self {} {
  wapp-cache-control max-age=3600







<
<
<
<
<
<







80
81
82
83
84
85
86






87
88
89
90
91
92
93
proc wapp-page-env {} {
  sqlite3 db :memory:
  set v [db one {SELECT sqlite_source_id()}]
  checklist-verify-login
  wapp-trim {
     <div class='fossil-doc' data-title='Checklist Environment'>
     <pre>%html([wapp-debug-env])}






  wapp-subst {SQLite = %html($v)</pre>\n</div>\n}
}

# Show the complete text of this script.
#
proc wapp-page-self {} {
  wapp-cache-control max-age=3600