Subversion Repositories wimsdev

Rev

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

Rev 9983 Rev 10147
Line 28... Line 28...
28 
    !if $tc_name isitemof $tv_listallname
 28 
    !if $tc_name isitemof $tv_listallname
29 
	error=namealreadyuse
 29 
	error=namealreadyuse
30 
	!reset tc_set
 30 
	!reset tc_set
31 
	!exit
 31 
	!exit
32 
    !endif
 32 
    !endif
- 
 
 33 
 
- 
 
 34 
!! check forbidden name
- 
 
 35 
    !for rac in exam,sheet,vote,manual,login,name,lastname,firstname,password,email,regnum,photourl,comments,external_auth,allscore,averages,average,sheets,sheetexo,exams,manuals,participate,supervisable,supervise,manual
- 
 
 36 
	!if $rac isin $tc_name
- 
 
 37 
	    t=!replace internal $rac by $empty in $tc_name
- 
 
 38 
	    !if $[$t]!=NaN
- 
 
 39 
		error=nameforbidden
- 
 
 40 
		!exit
- 
 
 41 
	    !endif
- 
 
 42 
	!endif
- 
 
 43 
    !next rac
33 
 
 44 
 
34 
!! check list of value
 45 
!! check list of value
35 
    tc_value=!listuniq $tc_value
 46 
    tc_value=!listuniq $tc_value
36 
    tc_value=!listcomplement _EMPTY_ in $tc_value
 47 
    tc_value=!listcomplement _EMPTY_ in $tc_value
37 
    n=!itemcnt $tc_value
 48 
    n=!itemcnt $tc_value