Subversion Repositories wimsdev

(root)/trunk/wims/public_html/scripts/deduc/var.newcase – Rev 20 → 16204



casecnt=!linecnt of $allcases
!if $casecnt<2
  !exit
!endif
caseline=!line 1 of $allcases
caseline=!translate internal $	$ to $\
$ in $caseline
activecase=!line 1 of $caseline

Rev 20	Rev 16204
Line 2...	Line 2...
2	casecnt=!linecnt of $allcases	2	casecnt=!linecnt of $allcases
3	!if $casecnt<2	3	!if $casecnt<2
4	!exit	4	!exit
5	!endif	5	!endif
6	caseline=!line 1 of $allcases	6	caseline=!line 1 of $allcases
7	caseline=!translate internal $ $ to $\	7	caseline=!translate internal $ $ to $\
8	$ in $caseline	8	$ in $caseline
9	activecase=!line 1 of $caseline	9	activecase=!line 1 of $caseline