ATWF A Tcl Web Framwork

Check-in [e10769921b]
Login

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

Overview
Comment:remove debugging output

git-svn-id: https://atwf.svn.sourceforge.net/svnroot/atwf@607 3ddb7fe1-eb8e-4980-8f37-d9e37380b5db

Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:e10769921b588539cf5b483a4eea32a1a4ad90fa
User & Date: arnulf@wiedemann-pri.de 2010-12-03 21:21:25
Context
2010-12-03
21:27
removed debugging output

git-svn-id: https://atwf.svn.sourceforge.net/svnroot/atwf@608 3ddb7fe1-eb8e-4980-8f37-d9e37380b5db check-in: a4d5da23f8 user: arnulf@wiedemann-pri.de tags: trunk

21:21
remove debugging output

git-svn-id: https://atwf.svn.sourceforge.net/svnroot/atwf@607 3ddb7fe1-eb8e-4980-8f37-d9e37380b5db check-in: e10769921b user: arnulf@wiedemann-pri.de tags: trunk

19:01
fixes for renaming

git-svn-id: https://atwf.svn.sourceforge.net/svnroot/atwf@606 3ddb7fe1-eb8e-4980-8f37-d9e37380b5db check-in: 404ee3bf92 user: arnulf@wiedemann-pri.de tags: trunk

Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to library/ATWF/Controllers/Dispatchers/Standard.tcl.

251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
    set disableOb [getParam disableOutputBuffering]
    set obLevel [::ATWF::Output::ob_get_level]
    if {$disableOb eq ""} {
        ::ATWF::Output::ob_start
    }

    try {
puts stderr "controller!$controller!dispatch!$action!"
        $controller dispatch $action
puts stderr "controller2!$controller!dispatch!$action!"
    } trap error [list msg opts] {
puts "MSG![self class]:[self method]!$msg!$opts!"
        # Clean output buffer on error
        set curObLevel [::ATWF::Output::ob_get_level]
        if ($curObLevel > $obLevel) {
            while {1} {
                ::ATWF::Output::ob_get_clean







<

<







251
252
253
254
255
256
257

258

259
260
261
262
263
264
265
    set disableOb [getParam disableOutputBuffering]
    set obLevel [::ATWF::Output::ob_get_level]
    if {$disableOb eq ""} {
        ::ATWF::Output::ob_start
    }

    try {

        $controller dispatch $action

    } trap error [list msg opts] {
puts "MSG![self class]:[self method]!$msg!$opts!"
        # Clean output buffer on error
        set curObLevel [::ATWF::Output::ob_get_level]
        if ($curObLevel > $obLevel) {
            while {1} {
                ::ATWF::Output::ob_get_clean