ATWF A Tcl Web Framwork

Check-in [76f78f3c14]
Login

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

Overview
Comment:renaming

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

Timelines: family | ancestors | trunk
Files: files | file ages | folders
SHA1:76f78f3c14280600a017cfd1d4267b2d0743cf52
User & Date: arnulf@wiedemann-pri.de 2010-12-12 13:49:38
Context
2010-12-12
13:49
renaming

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

13:49
renaming

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

Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Deleted application/modules/Mdoule1/Bootstrap.tcl.

1
2
3
4
5
6
7
8
::itcl::extendedclass ::Module1::Bootstrap {
    inherit ::ATWF::Applications::Modules::Bootstrap

    constructor {application {classPath {}}} {
        chain $application $classPath
    } {
    }
}
<
<
<
<
<
<
<
<
















Deleted application/modules/Mdoule1/controllers/ModuleController.tcl.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
namespace eval ::ATWF {

::itcl::class Module1::ModuleController {
    inherit ::ATWF::Controllers::Action

    constructor {request response {invokeArgs {}}} {
        chain $request $response $invokeArgs
    } {}

    public method init {}
    public proc moduleAction {}

}

::itcl::body Module1::ModuleController::constructor {request response {invokeArgs {}}} {
}

::itcl::body Module1::ModuleController::init {} {
    # switch output to xml
    set contextSwitch [$_helper getHelper ContextSwitch]
#    $contextSwitch addActionContext index xml
    $contextSwitch addActionContext module xml
#    $contextSwitch initContext xml
    $contextSwitch initContext

}

::itcl::body Module1::ModuleController::moduleAction {} {
puts stderr "moduleAction!"
if {[catch {
    set people_obj [Module1::Model::DbTable::People #auto]
puts stderr "people_obj!$people_obj!"
    set rows [$people_obj getRows [list "id > ?" 27 "ID < ? " 100]]
puts stderr "rows!$rows!"
    $view VarSet var1 "hallo Arnulf!"
    if {$rows ne ""} {
        $view VarSet rows $rows
    }
} msg]} {
    puts stderr "MSG![self class]![self method]!$msg!<br>"
}
}


}
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<


























































































Deleted application/modules/Mdoule1/models/DbTable/People.tcl.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#*************************************************************************
#*
#*  last change: $Author$ $Date$
#*
#*  The Contents of this file are made available subject to the terms of
#*  the following license
#*
#* 	- BSD License
#*
#*	see file license.terms in the home directory
#*
#*  Copyright 2009 Arnulf Wiedemann
#*
#*  Author: Arnulf Wiedemann
#*
#*  Contributor(s): 
#*
#************************************************************************/

::itcl::extendedclass ::Module1::Model::DbTable::People {
    inherit ::ATWF::Dbs::Table

    constructor {} {
        set _name people
	chain
    } {
    }

    public method getRows {where} {
         return [fetchAll $where]
    }
}


<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<