openacs-4/.../tcl/proctoring-procs.tcl (+1 -0)
1 1 ad_library {
2 2     Proctoring API
3 3 }
4 4
5 5 namespace eval ::proctoring {}
6 6
7 7 ad_proc ::proctoring::folder {
8 8     -object_id:required
9 9     -user_id
10 10 } {
11 11     Returns the proctoring folder on the system
12 12 } {
13 13     set folder [acs_root_dir]/proctoring/$object_id
14 14     if {[info exists user_id]} {
15 15         append folder /$user_id
16 16     }
  17     file mkdir $folder
17 18     return $folder
18 19 }
19 20
20 21 ad_proc ::proctoring::configure {
21 22     -object_id:required
22 23     {-enabled_p true}
23 24     {-examination_statement_p true}
24 25     {-proctoring_p true}
25 26     {-preview_p false}
26 27     {-start_date ""}
27 28     {-end_date ""}
28 29     {-start_time ""}
29 30     {-end_time ""}
30 31 } {
31 32     Configures proctoring for specified object.
32 33
33 34     @param enabled_p enable proctoring.
34 35     @param proctoring_p Do the actual proctoring. This allows to have
35 36                         only the examination statement, without
36 37                         actually taking and uploading pixctures/sound.