Subversion Repositories wimsdev

!! putCSV is at very early draft state. Do not use it yet (WIP).

!if $wims_class=$empty
  error=unauthorized (no class defined)
  !exit
!endif

t=!exec ftype $wims_home/$wims_sesdir/user-deposit
!if $t=$empty
  error=empty
  !exit
!endif
!if $t=binary
  error=binary
  !exit
!endif

!sh cd $wims_home/$wims_sesdir\
 grep . user-deposit | awk '{print ":"$$0}' | tr '      "' ', ' >user_deposit\
 rm -f user-deposit >/dev/null

file=$wims_sesdir/user_deposit
n=!recordcnt wimshome/$file
!if $n<=0
 error=empty
 !exit
!endif

loglist=
!for i=1 to $n
 l=!record $i of wimshome/$file
 !if $gotlogin!=$empty
  ltest=!item $gotlogin of $l
  ll=!wordcnt $ltest
  !if $ll=1 and # notin $ltest
   dep_$ltest=$l
   loglist=!append item $ltest to $loglist
  !endif
 !else
  !if $i>3
   error=no_login
   !exit
  !endif
  !if login isitemof $l
   l=!lower $l
   types=!nospace $l
   gotlogin=!positionof item login in $l
   gotlogin=!item 1 of $gotlogin
  !endif
 !endif
!next i

!if $gotlogin=$empty
 error=no_login
 !exit
!endif

remark=
!if sheet isin $types or exam isin $types or average isin $types
 remark=$remark noauto
!endif

prop=no
!if noauto iswordof $remark or manual isin $types
 remark=$remark noprop
!else
 !if firstname isitemof $types and lastname isitemof $types
  prop=yes
  !read adm/class/userremain.proc
 !endif
!endif

!if manual isin $types
 manual=yes
!endif

replacelist=$types
types=!replace , by ,up_ in up_$types
gotcnt=!itemcnt $loglist
propcnt=0
gradecnt=0
!reset missing erased bad added change
processed=yes

!for l in $loglist
  !reset up_firstname,up_lastname,up_email,up_password,up_comments,up_regnum
  !distribute items $(dep_$l) into $types
  exist=!defof user_exists in wimshome/log/classes/$wims_class/.users/$l
  !if $exist=yes
   !if $prop=yes
    !read adm/class/adduser $l
   !endif
  !else
   exist2=!defof user_exists in wimshome/log/classes/$wims_class/.users/.$l
   !if $exist2=yes
    erased=!append item $i to $erased
   !else
    missing=!append item $l to $missing
    !if $up_firstname!=$empty and $up_lastname!=$empty and $up_password!=$empty
     !if $prop=yes
      !if $userremain>0
       !read adm/class/adduser $l
       !if $l notwordof $bad
        added=!append item $l to $added
       !else
        userremain=$[$userremain-1]
       !endif
      !else
       remark=$remark full
      !endif
     !endif
    !endif
   !endif
  !endif
!next l
missing=!listcomplement $added in $missing

!if $change!=$empty
 !read adm/class/mkuserlist
 !read adm/class/stat
 wims_class_log=spreadsheet userinfo
!endif

!if $manual=yes
 fn=wimshome/log/classes/$wims_class/.grades
 fu=wimshome/log/classes/$wims_class/.userlist
 l=!record 1 of $fn
 t=!line 2 of $l
 n=!itemcnt $t
 n=$[$n-2]
 !if $n<1
  error=no_manual
  !exit
 !endif
 otypes=nn
 !for i=1 to $n
  otypes=$otypes,o_$i
 !next i
 first=$l
 cnt=!recordcnt $fn
 !for u=2 to $cnt
  l=!record $u of $fn
  uu=!item 1 of $l
  orig_$uu=!item 2 to -1 of $l
 !next u
 !writefile $fn :$first
 cnt=!recordcnt $fu
 !for i=1 to $cnt
  l_=!record $i of $fu
  u=!item 3 of $l_
  !distribute items $(dep_$u) into $types
  !distribute items $(orig_$u) into $otypes
  t_=!defof user_firstname user_lastname in wimshome/log/classes/$wims_class/.users/$u
  !for i=1 to $n
   l_=$[$(up_manual$i)]
   !if NaN isin $l_ or Inf isin $l_ or $l_<0 or $l_>100000 or $(up_manual$i)=$empty
    l_=
   !endif
   !default l_=$(o_$i)
   t_=!append item $l_ to $t_
  !next i
  !appendfile $fn :$u,$t_
 !next u
 wims_class_log=spreadsheet grades
!endif