Subversion Repositories wimsdev

Rev

Rev 5807 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5807 Rev 5857
Line 21... Line 21...
21 
!else
 21 
!else
22 
    test=!replace [0-9]e[0-9] by @ in $test
 22 
    test=!replace [0-9]e[0-9] by @ in $test
23 
    !if @ isin $test
 23 
    !if @ isin $test
24 
	maxscore=$[$P1*$maxscore]
 24 
	maxscore=$[$P1*$maxscore]
25 
	testvar1=!replace internal e by e+ in $AAA
 25 
	testvar1=!replace internal e by e+ in $AAA
26 
	testvar1=<font color=green>$testvar1</font>
 26 
	testvar1=<span style="color:green">$testvar1</span>
27 
	testvar2=<br /><font color=red>$AAA</font>
 27 
	testvar2=<br /><span style="color:red">$AAA</span>
28 
	errortext=!record 16 of $remarkdir/commonremarks.$taal
 28 
	errortext=!record 16 of $remarkdir/commonremarks.$taal
29 
	goback=1
 29 
	goback=1
30 
	!exit
 30 
	!exit
31 
    !endif
 31 
    !endif
32 
    AAA=!replace internal ** by ^ in $AAA
 32 
    AAA=!replace internal ** by ^ in $AAA
Line 36... Line 36...
36 
	AAA=!replace internal ** by * in $AAA
 36 
	AAA=!replace internal ** by * in $AAA
37 
    !next p
 37 
    !next p
38 
    t=!char 1 of $AAA
 38 
    t=!char 1 of $AAA
39 
    !if $t=*
 39 
    !if $t=*
40 
	AAA=!char 2 to -1 of $AAA
 40 
	AAA=!char 2 to -1 of $AAA
41 
    !endif
41 
    !endif
42 
!endif
 42 
!endif
43
43 
 
44 
!exit
 44 
!exit