xowf::test_item::Answer_manager method recutil_create (public)

 <instance of xowf::test_item::Answer_manager> recutil_create \
    [ -exam_id exam_id ] [ -fn fn ] [ -clear ]

Defined in packages/xowf/tcl/test-item-procs.tcl

Create recfile

Switches:

-exam_id (optional, integer)

-fn (optional, defaults to "answers.rec")

-clear (optional)

See Also:

• http://www.gnu.org/software/recutils/

Testcases:

No testcase defined.

Source code:

set export_dir $::acs::rootdir/log/exam-exports/$exam_id/
if {![file isdirectory $export_dir]} {
  file mkdir $export_dir
}
if {$clear && [file exists $export_dir$fn]} {
  file delete -- $export_dir$fn
}
#
# If we have no recutils, create for the time being a stub
#
if {![nsf::is class ::xo::recutil]} {
  ns_log warning "no recutil class available"
  set r [::xotcl::Object new -proc ins args {;}]
  return $r
}
return [::xo::recutil new -file $export_dir$fn]

XQL Not present:

Generic, PostgreSQL, Oracle