Subversion Repositories wimsdev

Rev

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

Rev 16777 Rev 16798
Line 349... Line 349...
349 
!default formulaB=$s_formulaB
 349 
!default formulaB=$s_formulaB
350 
 
 350 
 
351 
!! ---- save modification of allow parameters
 351 
!! ---- save modification of allow parameters
352 
!if $save!=$empty
 352 
!if $save!=$empty
353 
  !if $sharers!=$empty and $allowshare=1
 353 
  !if $sharers!=$empty and $allowshare=1
- 
 
 354 
    !if $allowtype=techvar
- 
 
 355 
      !readproc adm/vfilter/$validtechvar.proc $allowtechvar\
- 
 
 356 
$sharers
- 
 
 357 
      !if $output=1
- 
 
 358 
        setclass=!items2words $wims_class,$sharers
- 
 
 359 
      !else
- 
 
 360 
        error=badallowshare
- 
 
 361 
        allowshare=0
- 
 
 362 
        setclass=$wims_class
- 
 
 363 
      !endif
- 
 
 364 
    !endif
354 
    setclass=!items2words $wims_class,$sharers
 365 
    setclass=!items2words $wims_class,$sharers
355 
  !else
 366 
  !else
356 
    setclass=$wims_class
 367 
    setclass=$wims_class
357 
  !endif
 368 
  !endif
358 
  !if $allow_parm=$empty
 369 
  !if $allow_parm=$empty