Subversion Repositories wimsdev

Rev

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

Rev 10273 Rev 10305
Line 84... Line 84...
84 
   testointro=!replace internal \$i by INVALID in $testointro
 84 
   testointro=!replace internal \$i by INVALID in $testointro
85 
 !next i
 85 
 !next i
86 
 donfile=$namevar\
 86 
 donfile=$namevar\
87 
$defconnip
 87 
$defconnip
88 
 
 88 
 
- 
 
 89 
 classid2=!replace internal / by A in $classid
89 
 techvartable=techvar $namevar $(classid)_$num\
 90 
 techvartable=\$(classid2)_$num\
90 
,>$class_expiration
 91 
!set techvar_EMPTY=>$class_expiration
91 
 !for i=1 to $numsess
 92 
 !for i=1 to $numsess
92 
  !!## 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.
93 
  exconnip$i=!replace internal , by . in $(exconnip$i)
 94 
  exconnip$i=!replace internal , by . in $(exconnip$i)
94 
  testoextra$i=!replace internal , by . in $(testoextra$i)
 95 
  testoextra$i=!replace internal , by . in $(testoextra$i)
95 
  !for v in bday,bmonth,byear,bhour,bmin,ehour,emin
 96 
  !for v in bday,bmonth,byear,bhour,bmin,ehour,emin
Line 124... Line 125...
124 
  bhour$i=!char 2,3 of $[abs(floor($(bhour$i)))+100]
 125 
  bhour$i=!char 2,3 of $[abs(floor($(bhour$i)))+100]
125 
  ehour$i=!char 2,3 of $[abs(floor($(ehour$i)))+100]
 126 
  ehour$i=!char 2,3 of $[abs(floor($(ehour$i)))+100]
126 
  reg_src1=$reg_src1\
 127 
  reg_src1=$reg_src1\
127 
$(nstud$i): $(bday$i) $(mese$i) $(byear$i) - $(bhour$i).$(bmin$i) / $(ehour$i).$(emin$i)$ $(testoextra$i),
 128 
$(nstud$i): $(bday$i) $(mese$i) $(byear$i) - $(bhour$i).$(bmin$i) / $(ehour$i).$(emin$i)$ $(testoextra$i),
128 
  techvartable=$techvartable\
 129 
  techvartable=$techvartable\
129 
$(listval[$i]),>$(byear$i)$(bmonth$i)$(bday$i).$(bhour$i):$(bmin$i) <$(byear$i)$(bmonth$i)$(bday$i).$(ehour$i):$(emin$i) $(exconnip$i),
 130 
!set techvar_$(listval[$i])=>$(byear$i)$(bmonth$i)$(bday$i).$(bhour$i):$(bmin$i) <$(byear$i)$(bmonth$i)$(bday$i).$(ehour$i):$(emin$i) $(exconnip$i)
130 
  reg_src2=$reg_src2\
 131 
  reg_src2=$reg_src2\
131 
$(listval[$i]),
 132 
$(listval[$i]),
132 
 !next i
 133 
 !next i
133 
 
 134 
 
134 
 reg_src=$reg_src1\
 135 
 reg_src=$reg_src1\