Subversion Repositories wimsdev

Rev

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

Rev 15767 Rev 15963
Line 96... Line 96...
96 
      !if $techvarlistval=$empty
 96 
      !if $techvarlistval=$empty
97 
        !readproc adm/vfilter/listvarfilter.proc
 97 
        !readproc adm/vfilter/listvarfilter.proc
98 
        nb=!positionof item $sheet_indivtechvar in $tv_listcode
 98 
        nb=!positionof item $sheet_indivtechvar in $tv_listcode
99 
        !if $nb!=$empty
 99 
        !if $nb!=$empty
100 
          don=!line $nb of $tv_listtechvar
 100 
          don=!line $nb of $tv_listtechvar
101 
          !distribute item $don into name,classid,number
 101 
          !distribute item $don into nametechvar,classid,number
- 
 
 102 
          !if $sheet_active=0
102 
          don=!record $number of wimshome/log/classes/$classid/.techvar
 103 
            don=!record $number of wimshome/log/classes/$classid/.techvar
103 
          techvarlistval=!line 2 of $don
 104 
            techvarlistval=!line 2 of $don
- 
 
 105 
          !else
- 
 
 106 
            don=!record $sh of wimshome/log/classes/$wims_class/sheets/.vars
- 
 
 107 
            techvarlistval=!word 3 to -1 of $don
- 
 
 108 
            techvarlistval=!words2items $techvarlistval
- 
 
 109 
          !endif
104 
        !else
 110 
        !else
105 
          techvarlistval=$empty
 111 
          techvarlistval=$empty
106 
        !endif
 112 
        !endif
107 
      !endif
 113 
      !endif
108 
      !bound choosevalue within EMPTY,$techvarlistval default EMPTY
 114 
      !bound choosevalue within EMPTY,$techvarlistval default EMPTY
Line 116... Line 122...
116 
        userclass=$wims_superclass
 122 
        userclass=$wims_superclass
117 
      !else
 123 
      !else
118 
        userclass=$wims_class
 124 
        userclass=$wims_class
119 
      !endif
 125 
      !endif
120 
      uservartechvalue=!getdef user_techvar_$(sheet_indivtechvar) in wimshome/log/classes/$userclass/.users/$wims_user
 126 
      uservartechvalue=!getdef user_techvar_$(sheet_indivtechvar) in wimshome/log/classes/$userclass/.users/$wims_user
- 
 
 127 
      don=!record $sh of wimshome/log/classes/$wims_class/sheets/.vars
- 
 
 128 
      techvarlistval=!word 3 to -1 of $don
- 
 
 129 
      techvarlistval=!words2items $techvarlistval
- 
 
 130 
      !bound uservartechvalue within $empty,$techvarlistval default $empty
- 
 
 131 
      !if $uservartechvalue!=$empty
- 
 
 132 
        !readproc adm/vfilter/listvarfilter.proc
- 
 
 133 
        nb=!positionof item $sheet_indivtechvar in $tv_listcode
- 
 
 134 
        don=!line $nb of $tv_listtechvar
- 
 
 135 
        !distribute item $don into nametechvar,classid,number
- 
 
 136 
      !endif
121 
    !endif
 137 
    !endif
122 
  !endif
 138 
  !endif
123 
!! ----- end indiv
 139 
!! ----- end indiv
124 
  !if $wims_user != supervisor and $sheet_active notin 12
 140 
  !if $wims_user != supervisor and $sheet_active notin 12
125 
    !distribute items $ into sheet_active,sheet_expiration,sheet_title,sheet_desc,\
 141 
    !distribute items $ into sheet_active,sheet_expiration,sheet_title,sheet_desc,\