Subversion Repositories wimsdev

$techvar=$[$techvar*1]
nblocalvar=!itemcnt $tv_listlocal
!if ($techvar<1 or $techvar>$nblocalvar)
    error=badtechvarnumber
    job=listvar
    !changeto $job.proc
    !exit
!endif

!if $stechvar=$empty
    stechvar=$techvar
    !reset tc_abandon,tc_set
    don=!record $stechvar of wimshome/log/classes/$wims_class/.techvar
    !distribute line $don into ol_name,ol_value
    tc_name=$ol_name
    tc_value=$ol_value
!endif


!if $tc_abandon!=$empty
    !reset tc_abandon,tc_value,tc_name,tc_set,stechvar
    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 and $tc_name!=$ol_name
        error=namealreadyuse
        !reset tc_set
        !exit
    !endif

!! check list of value
    tc_value=!listuniq $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
!! old list must be include (or delete value not in use in the class TODO).
!! il y a une amélioration à faire pour poster un message et effacer les valeurs qui ne sont plus disponibles.
    li=!listcomplement $tc_value in $ol_value
    !if $li!=$empty
        error=valuedisappear
        !reset tc_set
    !endif
!! save
    donnees=$empty
    !for k=1 to $nblocalvar
        !if $k=$stechvar
            donnees=!append line :$tc_name\
$tc_value to $donnees
        !else
            tmp=!record $k of wimshome/log/classes/$wims_class/.techvar
            donnees=!append line :$tmp to $donnees
        !endif
    !next k
    !filewrite wimshome/log/classes/$wims_class/.techvar $donnees
    !if $ol_name!=$tc_name
        nb=!recordcnt wimshome/log/classes/$tv_Sclass/.indextechvar
        donnees=$empty
        !for k=1 to $nb
            tmp=!record $k of wimshome/log/classes/$tv_Sclass/.indextechvar
            !if $(tmp[2])=$wims_class and $(tmp[3])=$stechvar
                donnees=!append line :$tc_name,$wims_class,$stechvar to $donnees
            !else
                donnees=!append line :$tmp to $donnees
            !endif
        !next k
        !filewrite wimshome/log/classes/$tv_Sclass/.indextechvar $donnees
    !endif
    !restart module=adm/class/techvar
!endif