Subversion Repositories wimsdev

Rev

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

Rev 16798 Rev 16801
Line 350... Line 350...
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
 354 
    !if $allowtype=techvar
355 
      !readproc adm/vfilter/$validtechvar.proc $allowtechvar\
 355 
      !readproc adm/vfilter/validtechvar.proc $allowtechvar\
356 
$sharers
 356 
$sharers
357 
      !if $output=1
 357 
      !if $output=1
358 
        setclass=!items2words $wims_class,$sharers
 358 
        setclass=!items2words $wims_class,$sharers
359 
      !else
 359 
      !else
360 
        error=badallowshare
 360 
        error=badallowshare
361 
        allowshare=0
 361 
        allowshare=0
362 
        setclass=$wims_class
 362 
        setclass=$wims_class
363 
      !endif
 363 
      !endif
- 
 
 364 
    !else
- 
 
 365 
      setclass=!items2words $wims_class,$sharers
364 
    !endif
 366 
    !endif
365 
    setclass=!items2words $wims_class,$sharers
 - 
 
366 
  !else
 367 
  !else
367 
    setclass=$wims_class
 368 
    setclass=$wims_class
368 
  !endif
 369 
  !endif
369 
  !if $allow_parm=$empty
 370 
  !if $allow_parm=$empty
370 
    !sh for c in $setclass; do rm -f $wims_home/log/classes/$$c/.$sheet; done
 371 
    !sh for c in $setclass; do rm -f $wims_home/log/classes/$$c/.$sheet; done