Subversion Repositories wimsdev

Rev

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

Rev 9960 Rev 10820
Line 26... Line 26...
26 
 
 26 
 
27 
!if $tc_set!=$empty
 27 
!if $tc_set!=$empty
28 
!! check name validity
 28 
!! check name validity
29 
    tc_name=!text select 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ in $tc_name
 29 
    tc_name=!text select 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ in $tc_name
30 
    tc_name=!nospace $tc_name
 30 
    tc_name=!nospace $tc_name
- 
 
 31 
    tc_name=!lower $tc_name
31 
    n=!charcnt $tc_name
 32 
    n=!charcnt $tc_name
32 
    !if $n>$MAXcharname or $n<1
 33 
    !if $n>$MAXcharname or $n<1
33 
	error=badnamelen
 34 
	error=badnamelen
34 
	!reset tc_set
 35 
	!reset tc_set
35 
	!exit
 36 
	!exit