Check-in [42683e65da]

Not logged in
Tcl 2015 Conference, Manassas/VA, US, Oct 19-23
Send your abstracts to tclconference@googlegroups.com by Aug 24.

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

Overview
Comment:Fixed example asset map to the new form file paths. Added more asset maps for partial use of forms (submission only, registration only, none). Added template for CFP page when submissions are closed. Extended generrator to take registration and campaign stati into account for assets, and CFP page.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | active-on-core
Files: files | file ages | folders
SHA3-256:42683e65da92ec8476b4be7a1110d38c856bbbcd1c22f9a6826ceb19cc0d0c0e
User & Date: aku 2018-10-29 23:03:40
Context
2018-10-29
23:11
Fix issues with new code. check-in: 336898f5a3 user: aku tags: active-on-core
23:03
Fixed example asset map to the new form file paths. Added more asset maps for partial use of forms (submission only, registration only, none). Added template for CFP page when submissions are closed. Extended generrator to take registration and campaign stati into account for assets, and CFP page. check-in: 42683e65da user: aku tags: active-on-core
2018-02-15
04:57
Extended the website generator with a facility to add arbitrary text assets into the website. The assets and the controlling map (asset to path) are all stored as templates. The example map and assets demonstrate registration and submission forms. check-in: 46ce198ba0 user: aku tags: active-on-core
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to examples/template.www-assets.

1
2
3
4
5
6
7
www-forms2		forms2.tcl    
www-regform		register_form.tml  
www-register-config	register/register.cfg
www-register-procs	register/register.procs
www-subform		submit_form.tml
www-submit-config	submit/submit.cfg
www-submit-procs	submit/submit.procs


|
|

|
|
1
2
3
4
5
6
7
www-forms2		forms2.tcl    
www-regform		register_form.tml  
www-register-config	register_form/register_form.cfg
www-register-procs	register_form/register_form.procs
www-subform		submit_form.tml
www-submit-config	submit_form/submit_form.cfg
www-submit-procs	submit_form/submit_form.procs

Added examples/template.www-assets-registration.









>
>
>
>
1
2
3
4
www-forms2		forms2.tcl    
www-regform		register_form.tml  
www-register-config	register_form/register_form.cfg
www-register-procs	register_form/register_form.procs

Added examples/template.www-assets-submission.









>
>
>
>
1
2
3
4
www-forms2		forms2.tcl    
www-subform		submit_form.tml
www-submit-config	submit_form/submit_form.cfg
www-submit-procs	submit_form/submit_form.procs

Changes to lib/conference.tcl.

3502
3503
3504
3505
3506
3507
3508














3509
3510
3511
3512
3513
3514
3515
....
3621
3622
3623
3624
3625
3626
3627


3628



3629
3630
3631
3632
3633
3634
3635

# # ## ### ##### ######## ############# ######################
## Internal import support commands.

proc ::cm::conference::make_templated_assets {conference} {
    debug.cm/conference {}















    if {![template have www-assets]} {
	puts "\tNo configured assets ..."
	return
    }
    
    upvar 1 dstdir dstdir
    set assetmap [split [string trim [template use www-assets]] \n]
................................................................................
    debug.cm/conference {}
    return [string map \
		[list @speakers@ [speaker-listing $conference]] \
		[template use www-main-speakers]]
}

proc ::cm::conference::make_callforpapers {} {


    return [template use www-cfp]



}

proc ::cm::conference::make_location {} {
    debug.cm/conference {}
    # make-location - TODO: switch to a different text block when deadline has passed.
    return [template use www-location]
}







>
>
>
>
>
>
>
>
>
>
>
>
>
>







 







>
>
|
>
>
>







3502
3503
3504
3505
3506
3507
3508
3509
3510
3511
3512
3513
3514
3515
3516
3517
3518
3519
3520
3521
3522
3523
3524
3525
3526
3527
3528
3529
....
3635
3636
3637
3638
3639
3640
3641
3642
3643
3644
3645
3646
3647
3648
3649
3650
3651
3652
3653
3654

# # ## ### ##### ######## ############# ######################
## Internal import support commands.

proc ::cm::conference::make_templated_assets {conference} {
    debug.cm/conference {}

    set campaign [campaign get-for $conference]
    set hascampaign [expr {($campaign ne {}) && [campaign isactive $campaign]}]
    set regopen [expr {[registration-mode $conference] eq "open"}]

    switch -exact -- $hascampaign$regopen {
	00 {
	    puts "\tNo assets needed ..."
	    return
	}
	01 { set template www-assets-registration }
	10 { set template www-assets-submission }
	11 { set template www-assets }
    }
    
    if {![template have www-assets]} {
	puts "\tNo configured assets ..."
	return
    }
    
    upvar 1 dstdir dstdir
    set assetmap [split [string trim [template use www-assets]] \n]
................................................................................
    debug.cm/conference {}
    return [string map \
		[list @speakers@ [speaker-listing $conference]] \
		[template use www-main-speakers]]
}

proc ::cm::conference::make_callforpapers {} {
    set campaign [campaign get-for $conference]
    if {($campaign ne {}) && [campaign isactive $campaign]} {
	return [template use www-cfp]
    } else {
	return [template use www-cfp-closed]
    }
}

proc ::cm::conference::make_location {} {
    debug.cm/conference {}
    # make-location - TODO: switch to a different text block when deadline has passed.
    return [template use www-location]
}