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