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