!goto $job

:adduser
:checkuser
:checkident
:checkclass
:checksheet
:cleanclass
:delclass
:delsheet
:deluser
:modclass
:recuser

!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\
exotitlelist=$exotitlelist\

!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 $wims_session
# !shortout $wims_ref_name?session=$wims_session.1&module=home

:listclasses
list_cnt=!linecnt $listclasses
!for i = 1 to $list_cnt
   qrclass=!line $i of $listclasses
   qclass=$(qrclass[1])
   !reset error
   !read jobs/getclass.proc
  !! inutile ? obtenu par option
   !shortout $qclass:connection=$ident/$(qrclass[2])\\

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

   !next d

!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

!exit
