Subversion Repositories wimsdev

Rev

Rev 10536 | Rev 10721 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 10536 Rev 10702
Line 68... Line 68...
68 
:$testointro
 68 
:$testointro
69 
!endif
 69 
!endif
70 
 
 70 
 
71 
!if $gstep>=2
 71 
!if $gstep>=2
72 
!! get list of value for the technical variable :
 72 
!! get list of value for the technical variable :
73 
 tmp=!positionof item $namevar in $tv_listname
 73 
 numvar=!positionof item $namevar in $tv_listname
74 
 tmp=!line $tmp of $tv_listtechvar
 74 
 tmp=!line $numvar of $tv_listtechvar
- 
 
 75 
 varcode=!item $numvar of $tv_listcode
75 
 !distribute item $tmp into bb,classid,num
 76 
 !distribute item $tmp into bb,classid,num
76 
 don=!record $num of wimshome/log/classes/$wims_class/.techvar
 77 
 don=!record $num of wimshome/log/classes/$wims_class/.techvar
77 
 listval=!line 2 of $don
 78 
 listval=!line 2 of $don
78 
 numsess=!itemcnt $listval
 79 
 numsess=!itemcnt $listval
79 
!endif
 80 
!endif
Line 84... Line 85...
84 
   testointro=!replace internal \$i by INVALID in $testointro
 85 
   testointro=!replace internal \$i by INVALID in $testointro
85 
 !next i
 86 
 !next i
86 
 donfile=$namevar\
 87 
 donfile=$namevar\
87 
$defconnip
 88 
$defconnip
88 
 
 89 
 
89 
 classid2=!replace internal / by A in $classid
 - 
 
90 
 techvartable=\$(classid2)_$num\
 90 
 techvartable=\$varcode\
91 
!set techvar_EMPTY=>$class_expiration
 91 
!set techvar_EMPTY=>$class_expiration
92 
 !for i=1 to $numsess
 92 
 !for i=1 to $numsess
93 
  !!## need to check no "," in exconnip/testoextra and numerical for date variable.
 93 
  !!## need to check no "," in exconnip/testoextra and numerical for date variable.
94 
  exconnip$i=!replace internal , by . in $(exconnip$i)
 94 
  exconnip$i=!replace internal , by . in $(exconnip$i)
95 
  testoextra$i=!replace internal , by . in $(testoextra$i)
 95 
  testoextra$i=!replace internal , by . in $(testoextra$i)
Line 152... Line 152...
152 
}\
 152 
}\
153 
$reg_src2\
 153 
$reg_src2\
154 
$empty\
 154 
$empty\
155 
}
 155 
}
156 
 !sh mkdir $wims_home/log/classes/$wims_class/techvar
 156 
 !sh mkdir $wims_home/log/classes/$wims_class/techvar
157 
 !writefile wimshome/log/classes/$wims_class/techvar/$(classid2)_$num $techvartable
 157 
 !writefile wimshome/log/classes/$wims_class/techvar/$varcode $techvartable
158 
!endif
 158 
!endif