Check-in [336898f5a3]

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:Fix issues with new code.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | active-on-core
Files: files | file ages | folders
SHA3-256:336898f5a3f872333dcba913847fcd595f527f863e1345d238f37cfd299f8702
User & Date: aku 2018-10-29 23:11:43
Context
2018-10-29
23:14
Fix more issues with new code. Leaf check-in: 9dab1a00fa user: aku tags: active-on-core
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
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to lib/conference.tcl.

3403
3404
3405
3406
3407
3408
3409
3410
3411
3412
3413
3414
3415
3416
3417
....
3502
3503
3504
3505
3506
3507
3508
3509
3510
3511
3512
3513
3514
3515
3516
3517
....
3634
3635
3636
3637
3638
3639
3640
3641
3642
3643
3644
3645
3646
3647
3648
3649
3650

    if {[have-speakers $conference]} {
	make_page Overview  index  make_overview_speakers $conference
    } else {
	make_page Overview  index  make_overview
    }

    lappend navbar {*}[make_page {Call For Papers}  cfp  make_callforpapers]

    if {[rate-have-group-code $conference]} {
	lappend navbar {*}[make_page Location  location  make_location]
    } else {
	lappend navbar {*}[make_page Location  location  make_location_nogc]
    }

................................................................................

# # ## ### ##### ######## ############# ######################
## 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
	}
................................................................................
proc ::cm::conference::make_overview_speakers {conference} {
    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 {} {







|







 







|
|







 







|
|
|







3403
3404
3405
3406
3407
3408
3409
3410
3411
3412
3413
3414
3415
3416
3417
....
3502
3503
3504
3505
3506
3507
3508
3509
3510
3511
3512
3513
3514
3515
3516
3517
....
3634
3635
3636
3637
3638
3639
3640
3641
3642
3643
3644
3645
3646
3647
3648
3649
3650

    if {[have-speakers $conference]} {
	make_page Overview  index  make_overview_speakers $conference
    } else {
	make_page Overview  index  make_overview
    }

    lappend navbar {*}[make_page {Call For Papers}  cfp  make_callforpapers $conference]

    if {[rate-have-group-code $conference]} {
	lappend navbar {*}[make_page Location  location  make_location]
    } else {
	lappend navbar {*}[make_page Location  location  make_location_nogc]
    }

................................................................................

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

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

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

    switch -exact -- $hascampaign$regopen {
	00 {
	    puts "\tNo assets needed ..."
	    return
	}
................................................................................
proc ::cm::conference::make_overview_speakers {conference} {
    debug.cm/conference {}
    return [string map \
		[list @speakers@ [speaker-listing $conference]] \
		[template use www-main-speakers]]
}

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

proc ::cm::conference::make_location {} {