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

 <instance of xowf::test_item::Answer_manager> allow_answering \
    [ -examwf examwf ] -ip ip 

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

Tell if specified IP address is allowed to answer the exam.

Switches:

-examwf (optional, object)

-ip (required)

Returns:

boolean

Testcases:

No testcase defined.

Source code:

set iprange [$examwf property iprange]
if {$iprange ne ""} {
  set iprangeObj ::xowf::iprange::$iprange
  if {$iprange ne "all"
      && (![nsf::is object $iprangeObj]
          || ![$iprangeObj allow_access $ip]
          )} {
    ns_log notice "ANSWER: [list $iprangeObj allow_access $ip] ->"  [$iprangeObj allow_access $ip]
    return 0
  }
}
return 1

XQL Not present:

Generic, PostgreSQL, Oracle