Subversion Repositories wimsdev

Rev

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

Rev 2368 Rev 3587
Line 47... Line 47...
47 
 !if ../adm/ isin ../$dir or $dir=home or \
 47 
 !if ../adm/ isin ../$dir or $dir=home or \
48 
   (../devel/ isin ../$dir and $wims_devel_modules notwordof open)
 48 
   (../devel/ isin ../$dir and $wims_devel_modules notwordof open)
49 
  error=insert_fail
 49 
  error=insert_fail
50 
  !exit
 50 
  !exit
51 
 !endif
 51 
 !endif
- 
 
 52 
 picksheet=!word 1 of $picksheet
52 
 !if $picksheet=$empty
 53 
 !if $picksheet=$empty
53 
  error=no_pick
 54 
  error=no_pick
54 
  !exit
 55 
  !exit
55 
 !endif
 56 
 !endif
56 
 picksheet=$[floor($picksheet)]
 57 
 picksheet=$[floor($picksheet)]