Check-in [9a5b3bad78]

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:Fixes to tutorial dumping
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | active-on-core
Files: files | file ages | folders
SHA1:9a5b3bad787c7d80307d9c43a1e73b012e16cf58
User & Date: aku 2017-09-25 17:49:20
Context
2017-09-25
17:50
Added introspection/testing for location validation check-in: ac0207111b user: aku tags: active-on-core
17:49
Fixes to tutorial dumping check-in: 9a5b3bad78 user: aku tags: active-on-core
2017-09-13
21:27
Oops. Forgot new flag in contact creation. Fixed. check-in: 2a4296c83b user: aku tags: active-on-core
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to lib/tutorial.tcl.

698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
...
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
}

proc ::cm::tutorial::Dump {} {
    debug.cm/tutorial {}

    db do eval {
	SELECT T.id          AS id,
	       C.dname       AS nspeaker,
	       T.tag         AS tag,
	       T.title       AS title,
	       T.prereq      AS req,
	       T.description AS desc
	FROM   tutorial T,
	       contact  C
	WHERE  C.id = T.speaker
................................................................................
    } {
	cm dump save \
	    tutorial add $nspeaker $tag $title \
	    < [cm dump write tutorial$id $desc]

	if {$req ne {}} {
	    cm dump save \
		tutorial set-prereq $req
	}

	cm dump step
    }
    return
}

# # ## ### ##### ######## ############# ######################
package provide cm::tutorial 0
return







|







 







|










698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
...
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
}

proc ::cm::tutorial::Dump {} {
    debug.cm/tutorial {}

    db do eval {
	SELECT T.id          AS id,
	       C.tag         AS nspeaker,
	       T.tag         AS tag,
	       T.title       AS title,
	       T.prereq      AS req,
	       T.description AS desc
	FROM   tutorial T,
	       contact  C
	WHERE  C.id = T.speaker
................................................................................
    } {
	cm dump save \
	    tutorial add $nspeaker $tag $title \
	    < [cm dump write tutorial$id $desc]

	if {$req ne {}} {
	    cm dump save \
		tutorial set-prereq @${nspeaker}:$tag $req
	}

	cm dump step
    }
    return
}

# # ## ### ##### ######## ############# ######################
package provide cm::tutorial 0
return