Subversion Repositories wimsdev

nblocalvar=!itemcnt $tv_listlocal
!if $nblocalvar>=$MAXtechvar
  error=toomanytechvar
  job=listvar
  !changeto $job.proc
  !exit
!endif

!if $tc_abandon!=$empty
  !reset tc_abandon,tc_value,tc_name,tc_set
  job=listvar
  !changeto $job.proc
  !exit
!endif

!if $tc_set!=$empty
  !! check name validity
  tc_name=!text select 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ in $tc_name
  tc_name=!nospace $tc_name
  tc_name=!lower $tc_name
  n=!charcnt $tc_name
  !if $n>$MAXcharname or $n<1
    error=badnamelen
    !reset tc_set
    !exit
  !endif

  !! check list of name already in use
  !if $tc_name isitemof $tv_listallname
    error=namealreadyuse
    !reset tc_set
    !exit
  !endif

  !! check forbidden name
  !for rac in exam,sheet,vote,manual,login,name,lastname,firstname,password,email,\
      regnum,photourl,comments,external_auth,allscore,averages,average,sheets,sheetexo,\
      exams,manuals,participate,supervisable,supervise,manual,\
      regprop
    !if $rac isin $tc_name
      t=!replace internal $rac by $empty in $tc_name
      !if $[$t]!=NaN
        error=nameforbidden
        !exit
      !endif
    !endif
  !next rac

  !! check list of value
  tc_value=!listuniq $tc_value
  tc_value=!text select char azertyuiopqsdfghjklmwxcvbnAZERTYUIOPQSDFGHJKLMWXCVBN,1234567890 in $tc_value
  tc_value=!listcomplement EMPTY in $tc_value
  n=!itemcnt $tc_value
  !if $n<1 or $n>$MAXnbvalue
    error=badvaluenb
    !reset tc_set
    !exit
  !endif
  !! save
  !fileappend wimshome/log/classes/$wims_class/.techvar :$tc_name\
$tc_value
  !fileappend wimshome/log/classes/$tv_Sclass/.indextechvar :$tc_name,$wims_class,$[$nblocalvar+1]
  !restart module=adm/class/techvar
!else
  !if $nblocalvar=0
    olddon=!record 0 of wimshome/s2/$wims_session/oldtechvar.don
    !if $olddon=$empty
      olddon=!sh cd $wims_home/log/classes/$tv_Sclass/.users/;\
grep -r user__ * | awk -F= '$$2!=""{print $$0}'
      olddon=!replace internal :!set user__ by , in $olddon
      olddon=!replace internal = by , in $olddon
      !if $olddon=$empty
        !writefile wimshome/s2/$wims_session/oldtechvar.don EMPTY
      !else
        !writefile wimshome/s2/$wims_session/oldtechvar.don $olddon
      !endif
    !endif
    !if EMPTY=$olddon
      !reset olddon
    !endif
    !if $olddon!=$empty
      msg_info=witholdvar
    !endif
  !endif
!endif