Subversion Repositories wimsdev

Rev

Rev 14747 | Rev 16422 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

!! activate freework

!! --- testing if noempty
nb=!record 1 of wimshome/log/classes/$wims_class/freeworks/.freework$freework
nb=!nonempty line $nb
!if $nb=$empty
  error=emptyfreework
  job=configfw
  !changeto $job.proc
!endif

!! --- checking date
d1=!text select char 0123456789 in $(deadline)$(timedeadline)
d2=!text select char 0123456789 in $(soldate)$(timesoldate)
!if $d2<=$d1
  error=badsoldate
  job=configfw
  !changeto $job.proc
!endif

!if $type>=2
  !! checking quota (if type>=2)
  !readproc adm/class/quotafree.proc proc
  nbuser=!recordcnt wimshome/log/classes/$wims_class/.userlist
  space=$[0.25*$nbuser*$sizelimitfile]
  !ifval $quota_free-$space<5
    error=notenoughfreespace
    job=configfw
    !changeto $job.proc
  !endif
!endif

!! ---------- make a column in .grades file for this scoring
!if $scoring=0 and $type>=2
  data=!record 1 of wimshome/log/classes/$wims_class/.grades
  !distribute line $data into l1,l2,l3
  l2=!append item $wims_name_freework $freework to $l2
  l3=!append item 1 to $l3
  update_field=1
  update_content=$l1\
$l2\
$l3
  !read adm/uprecord wimshome/log/classes/$wims_class/.grades
  !increase nbscore
  scoring=$nbscore
!endif

!! change statut
activetest=1
update_content=1\
$class_expiration\
$title\
$desc\
$comment\
$type\
$deadline.$timedeadline\
$soldate.$timesoldate\
$sizelimitfile\
$scoring\
$seealltime

update_field=$freework
update_nbline=11
!read adm/uprecord wimshome/log/classes/$wims_class/freeworks/.freeworks
!sh mkdir -p $wims_home/log/classes/$wims_class/freeworksdata/$freework/work;\
    mkdir -p $wims_home/log/classes/$wims_class/freeworksdata/$freework/co;

success=goodstatut
!if $back=1
  !restart module=home
!else
  job=configfw
  !reset back
  !changeto $job.proc
!endif