!goto $job

:linksheet
:adduser
:buildexos
:checkuser
:checkident
:checkclass
:checksheet
:cleanclass
:delclass
:delsheet
:deluser
:modclass
:recuser
:listexos
:movexo
:movexos
:sharecontent
:getexosheet
:getsheetscores

!exit

:getinfoserver
!shortout server_version=$version\
compilation_date=$date_compil\
wims_session=$wims_session\
site_manager=$wims_site_manager\


!exit

:listexams
:listsheets
 !shortout queryclass=$qclass\
count=$cnt\
titlelist=$titles\

!exit


:listlinks
!shortout nblinks=$nblink\
listlinks=$listlinks\

!exit

:getsheet
 !shortout queryclass=$qclass\
querysheet=$qsheet\
sheet_properties=$sheet_properties\
exocnt=$exocnt\

!exit

:addsheet
 !shortout queryclass=$qclass\
sheet_id=$qsheet
!exit

:addclass
 !shortout $cd
!exit

:getclass
!shortout queryclass=$qclass\

!for d in $option
 !shortout $d=$(class_$d)\

!next d
!exit

:getclassmodif
!shortout $modif
!exit

:getuser
!shortout queryclass=$qclass\
queryuser=$quser\

!for d in $option
 !shortout $d=$(user_$d)\

!next d
!exit

:getscore
!for v in examscore, weights, requires, persheet, gotdetail, meandetail
 $v=!trim $($v)
 $v=!replace internal $\
$ by \\
$ in $($v)
!next v

!shortout queryclass=$qclass\
queryuser=$quser\
scoremax=$scoremax\
\
examscores=$examscore\
\
weights=$weights\
\
requirepoints=$requires\
\
sheetsummaries=$persheet\
\
gotpoints=$gotdetail\
\
scoreaverages=$meandetail\

!exit

:getlog

!if $option=score or $option=noscore
 !sh cd $wims_home/log/classes/$qclass\
	cat $option/$quser 2>/dev/null
!else
 !sh cd $wims_home/log/classes/$qclass\
	cat score/$quser noscore/$quser 2>/dev/null | sort
!endif
!exit

:gettime
 !shortout $now_year$now_month$now_day.$now_hour:$now_min:$now_sec
!exit

:authuser
 !shortout $num_session
# !shortout $wims_ref_name?session=$num_session.1&module=home


:listclasses
list_cnt=!itemcnt $listclasses

!for i = 1 to $list_cnt
   qclass=!item $i of $listclasses
   rclass=!item $i of $list_rclasses
   !read jobs/checkclass.proc
   !if $error!=$empty
    !exit
   !endif
   !readdef $classdeffile
   !shortout  qclass=$qclass

   !for d in $options
	!shortout   :$d=$(class_$d)
   !next d

   !shortout  \

!next i
!exit


:getclassesuser
list_cnt=!itemcnt $listclassesuser
!shortout $listclassesuser\

!for i = 1 to $list_cnt
   qclass=!item $i of $listclassesuser
   !reset error
   !read jobs/getclass.proc
   !shortout $qclass:\\

   !for d in $option
     !shortout $d=$(class_$d)\\

   !next d

   !shortout END\

!next i
!exit

:getexamscores
!for v in weights
 $v=!trim $($v)
 !if $v != $empty
   $v=!wordstoitems $($v)
   $v=[$($v)]
 !else
   $v=""
 !endif
!next v

!shortout query_exam:$qexam\
query_class: $qclass \
active_index:$active_index\
score_status:$score_status\
class_scoremax:$scoremax\
class_user_cnt:$usercnt\
user_cnt:$real_usercnt\
score_max:$max_score\
score_mean:$mean_score\

!if $data_scores != $empty
   !for k in $data_scores
     l=!replace internal " by $empty in $k
     l=!replace internal : by , in $l
     !shortout $(l[1]) : $(l[2])\

   !next k
!endif

!exit
