Subversion Repositories wimsdev

Rev

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

Rev 10466 Rev 10820
Line 15... Line 15...
15 
 
 15 
 
16 
!if $tc_set!=$empty
 16 
!if $tc_set!=$empty
17 
!! check name validity
 17 
!! check name validity
18 
    tc_name=!text select 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ in $tc_name
 18 
    tc_name=!text select 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ in $tc_name
19 
    tc_name=!nospace $tc_name
 19 
    tc_name=!nospace $tc_name
- 
 
 20 
    tc_name=!lower $tc_name
20 
    n=!charcnt $tc_name
 21 
    n=!charcnt $tc_name
21 
    !if $n>$MAXcharname or $n<1
 22 
    !if $n>$MAXcharname or $n<1
22 
	error=badnamelen
 23 
	error=badnamelen
23 
	!reset tc_set
 24 
	!reset tc_set
24 
	!exit
 25 
	!exit