Subversion Repositories wimsdev

Rev

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

Rev 10471 Rev 10535
Line 91... Line 91...
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)
- 
 
 96 
  nstud$i=$[max(-1,$(nstud$i))]
- 
 
 97 
  !if NaN isin $(nstud$i) or . isin $(nstud$i)
- 
 
 98 
    nstud$i=-1
- 
 
 99 
  !endif
96 
  !for v in bday,bmonth,byear,bhour,bmin,ehour,emin
 100 
  !for v in bday,bmonth,byear,bhour,bmin,ehour,emin
97 
   !if NaN isin $[$($v$i)*1]
 101 
   !if NaN isin $[$($v$i)*1]
98 
	$v$i=$empty
 102 
	$v$i=$empty
99 
   !endif
 103 
   !endif
100 
  !next v
 104 
  !next v