Subversion Repositories wimsdev

Rev

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

Rev 2389 Rev 2708
Line 18... Line 18...
18 
!if $mod=$empty
 18 
!if $mod=$empty
19 
 job=modname
 19 
 job=modname
20 
 !changeto $job.proc
 20 
 !changeto $job.proc
21 
!endif
 21 
!endif
22 
 
 22 
 
23 
wver1=!text select 0123456789abcdefghijklmnopqrstuvwxyz. in $wims_version
 23 
tmp=a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z
24 
wver1=!translate internal abcdefghijklmnopqrstuvwxyz to \
 24 
tmp2=!items2words $tmp
25 
			  12345678999999999999999999 in $wver1
 25 
tmp2=!nospace $tmp2
- 
 
 26 
wver1=$wims_version
26 
Wver2=!module wims_version devel/$auth_login/$mod
 27 
Wver2=!module wims_version devel/$auth_login/$mod
- 
 
 28 
wver2=$Wver2
- 
 
 29 
!for k=1 to 2
27 
wver2=!text select 0123456789abcdefghijklmnopqrstuvwxyz. in $Wver2
 30 
  l0=!text select $tmp2 in $(wver$k)
28 
wver2=!translate internal abcdefghijklmnopqrstuvwxyz to \
 31 
  l=!positionof item $l0 in $tmp
- 
 
 32 
  l=$[100+$l]
29 
			  12345678999999999999999999 in $wver2
 33 
  wver$k=!replace internal $l0 by $l in $(wver$k)
- 
 
 34 
!next k
30 
!bound vcheat within yes,no default $
 35 
!bound vcheat within yes,no default $
31 
!if $wver2<$wver1
 36 
!if $wver2<$wver1
32 
 !if $vcheat=$empty
 37 
 !if $vcheat=$empty
33 
  askcheat=yes
 38 
  askcheat=yes
34 
  !exit
 39 
  !exit