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