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: |
b1400ebb42159bd62d509bb57457fd48 |
| 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
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
|