Check-in [6b060df161]

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 description errors for series rename/redirect. Added command to show submission attachments in one table (like the material table in the website).
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | active-on-core
Files: files | file ages | folders
SHA3-256:6b060df161667181fff4e415a210e8bcedc3f3fb5f229744f39186f55e99452c
User & Date: aku 2017-10-25 04:22:28
Context
2017-10-25
23:46
Fix insertion of conference links for visible proceedings. check-in: 82a9c36d43 user: aku tags: active-on-core
04:22
Fix description errors for series rename/redirect. Added command to show submission attachments in one table (like the material table in the website). check-in: 6b060df161 user: aku tags: active-on-core
2017-10-24
20:07
Extended conference/proceedings with global links to show (ex: lulu, pic galleries, etc). Basic commands: add, list, website integration. check-in: 130b6a118d user: aku tags: active-on-core
Changes
Hide Diffs Unified Diffs Show Whitespace Changes Patch

Changes to lib/cm.tcl.

663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
....
1422
1423
1424
1425
1426
1427
1428





1429
1430
1431
1432
1433
1434
1435
	    section {Series Management}
	    description { Show the details of the series }
	    use .title
	} [cm::call series cmd_show]

	private rename {
	    section {Series Management}
	    description { Show the details of the series }
	    use .title
	    input new {
		New name to use
	    } { optional ; interact ; validate [cm::vt notseries] ; generate [stop!] }
	} [cm::call series cmd_rename]

	private redirect {
	    section {Series Management}
	    description { Show the details of the series }
	    use .title
	    input new {
		New location of the index
	    } { optional ; interact ; generate [stop!] }
	} [cm::call series cmd_redirect]

	private remove {
................................................................................
	} [cm::call conference cmd_submission_list]

	private accepted {
	    section {Submission Management}
	    description { Show accepted submissions, aka presentations for the current conference }
	} [cm::call conference cmd_submission_list_accepted]






	private accept {
	    section {Submission Management}
	    description { Accept the specified submission }
	    option type {
		Type of talk. Default is based on the invited
		state of the chosen submission.
		invited => keynote







|








|







 







>
>
>
>
>







663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
....
1422
1423
1424
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
	    section {Series Management}
	    description { Show the details of the series }
	    use .title
	} [cm::call series cmd_show]

	private rename {
	    section {Series Management}
	    description { Rename the series }
	    use .title
	    input new {
		New name to use
	    } { optional ; interact ; validate [cm::vt notseries] ; generate [stop!] }
	} [cm::call series cmd_rename]

	private redirect {
	    section {Series Management}
	    description { Change the index url for the series }
	    use .title
	    input new {
		New location of the index
	    } { optional ; interact ; generate [stop!] }
	} [cm::call series cmd_redirect]

	private remove {
................................................................................
	} [cm::call conference cmd_submission_list]

	private accepted {
	    section {Submission Management}
	    description { Show accepted submissions, aka presentations for the current conference }
	} [cm::call conference cmd_submission_list_accepted]

	private attachments {
	    section {Submission Management}
	    description { Show all attachments to the submissions for the current conference }
	} [cm::call conference cmd_submission_attachments]

	private accept {
	    section {Submission Management}
	    description { Accept the specified submission }
	    option type {
		Type of talk. Default is based on the invited
		state of the chosen submission.
		invited => keynote

Changes to lib/conference.tcl.

63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
....
1148
1149
1150
1151
1152
1153
1154






































1155
1156
1157
1158
1159
1160
1161
	cmd_submission_add cmd_submission_drop cmd_submission_show cmd_submission_list \
	cmd_submission_setsummary cmd_submission_setabstract cmd_registration cmd_proceedings \
	cmd_submission_accept cmd_submission_reject cmd_submission_addspeaker \
	cmd_submission_dropspeaker cmd_submission_attach cmd_submission_detach \
	cmd_submission_settitle cmd_submission_setdate cmd_submission_addsubmitter \
	cmd_submission_dropsubmitter cmd_submission_list_accepted cmd_submission_ping_accepted \
	cmd_submission_ping_speakers cmd_submission_done_accepted cmd_submission_clear_accepted \
	cmd_submission_nag \
	cmd_tutorial_show cmd_tutorial_link cmd_tutorial_unlink cmd_debug_speakers \
	\
	cmd_booking_list cmd_booking_add cmd_booking_remove cmd_booking_nag \
	cmd_registration_list cmd_registration_add cmd_registration_remove cmd_registration_nag \
	\
	cmd_schedule_set cmd_schedule_show cmd_schedule_edit \
	\
................................................................................
		    $t add Attachments [join $attachments \n]
		}
	    }

	    $t add Abstract [util adjust $w $abstract]
	    $t add Summary  [util adjust $w $summary]
	}






































    }] show
    return
}

proc ::cm::conference::cmd_submission_list {config} {
    debug.cm/conference {}
    Setup







|







 







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







63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
....
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
	cmd_submission_add cmd_submission_drop cmd_submission_show cmd_submission_list \
	cmd_submission_setsummary cmd_submission_setabstract cmd_registration cmd_proceedings \
	cmd_submission_accept cmd_submission_reject cmd_submission_addspeaker \
	cmd_submission_dropspeaker cmd_submission_attach cmd_submission_detach \
	cmd_submission_settitle cmd_submission_setdate cmd_submission_addsubmitter \
	cmd_submission_dropsubmitter cmd_submission_list_accepted cmd_submission_ping_accepted \
	cmd_submission_ping_speakers cmd_submission_done_accepted cmd_submission_clear_accepted \
	cmd_submission_nag cmd_submission_attachments \
	cmd_tutorial_show cmd_tutorial_link cmd_tutorial_unlink cmd_debug_speakers \
	\
	cmd_booking_list cmd_booking_add cmd_booking_remove cmd_booking_nag \
	cmd_registration_list cmd_registration_add cmd_registration_remove cmd_registration_nag \
	\
	cmd_schedule_set cmd_schedule_show cmd_schedule_edit \
	\
................................................................................
		    $t add Attachments [join $attachments \n]
		}
	    }

	    $t add Abstract [util adjust $w $abstract]
	    $t add Summary  [util adjust $w $summary]
	}
    }] show
    return
}

proc ::cm::conference::cmd_submission_attachments {config} {
    debug.cm/conference {}
    Setup
    db show-location

    set conference [current]

    [table t {Talk Name Mime} {
	set previous {}
    	db do eval {
	    SELECT S.title AS talk
	    ,      A.type  AS name
	    ,      A.mime  AS mime
	    FROM attachment A
	    ,    talk       T
	    ,    submission S
	    WHERE A.talk       = T.id
	    AND   T.submission = S.id
	    AND   S.conference = :conference
	    ORDER BY talk, name
	} {
	    if {$talk eq $previous} {
		set talk {}
	    } else {
		if {$previous ne {}} {
		    $t add {} {} {}
		}
		set previous $talk
	    }
	    if {[string length $talk] > 25} {
		set talk [string range $talk 0 20]...
	    }
	    $t add $talk $name $mime
	}
    }] show
    return
}

proc ::cm::conference::cmd_submission_list {config} {
    debug.cm/conference {}
    Setup