Subversion Repositories wimsdev

Rev

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

Rev 13082 Rev 14334
Line 129... Line 129...
129 
  !endif
 129 
  !endif
130 
 
 130 
 
131 
  iniparm=$empty
 131 
  iniparm=$empty
132 
  !if $expert_=yes
 132 
  !if $expert_=yes
133 
    !if $intro_check!=$empty
 133 
    !if $intro_check!=$empty
134 
  	  !for k in $intro_check
 134 
      !for k in $intro_check
135 
  	    iniparm=$(iniparm)&intro_check=$k
 135 
        iniparm=$(iniparm)&intro_check=$k
136 
      !next k
 136 
      !next k
137 
    !endif
 137 
    !endif
138 
    !for c in expow,sepow,precw,sol,hint,good,feed,qcmpresent
 138 
    !for c in expow,sepow,precw,sol,hint,good,feed,qcmpresent
139 
      iniparm=$(iniparm)&intro_$c=$(intro_$c)
 139 
      iniparm=$(iniparm)&intro_$c=$(intro_$c)
140 
    !next
 140 
    !next
Line 146... Line 146...
146 
  listmod=$empty
 146 
  listmod=$empty
147 
  listiniparm=$empty
 147 
  listiniparm=$empty
148 
  !for i=1 to $shexocnt
 148 
  !for i=1 to $shexocnt
149 
    e=!record $i of wimshome/log/classes/$wims_class/sheets/.sheet$picksheet
 149 
    e=!record $i of wimshome/log/classes/$wims_class/sheets/.sheet$picksheet
150 
    !distribute lines $e into wdi,win
 150 
    !distribute lines $e into wdi,win
151 
   	listmod=!append line $wdi to $listmod
 151 
    listmod=!append line $wdi to $listmod
152 
    listiniparm=!append line $win to $listiniparm
 152 
    listiniparm=!append line $win to $listiniparm
153 
  !next i
 153 
  !next i
154 
  !! Ecriture
 154 
  !! Ecriture
155 
  writedon=$empty
 155 
  writedon=$empty
156 
  listalready=$empty
 156 
  listalready=$empty
157 
  !for j=1 to $exocnt
 157 
  !for j=1 to $exocnt
158 
    ex=!item $j of $exolist
 158 
    ex=!item $j of $exolist
159 
    lerror=0
 159 
    lerror=0
160 
    exoiniparm=exo=$ex&$iniparm
 160 
    exoiniparm=exo=$ex&$iniparm
161 
    !for i=1 to $shexocnt
 161 
    !for i=1 to $shexocnt
162 
  	  wdi=!line $i of $listmod
 162 
      wdi=!line $i of $listmod
163 
  	  win=!line $i of $listiniparm
 163 
      win=!line $i of $listiniparm
164 
   	  !if $smodule=$wdi and $exoiniparm=$win
 164 
      !if $smodule=$wdi and $exoiniparm=$win
165 
      	lerror=1
 165 
        lerror=1
166 
   	 	!endif
 166 
      !endif
167 
  	!next i
 167 
    !next i
168 
    !if $lerror=1
 168 
    !if $lerror=1
169 
	    listalready=!append item $ex to $listalready
 169 
      listalready=!append item $ex to $listalready
170 
    !else
 170 
    !else
171 
      !reset desc
 171 
      !reset desc
172 
      desc_=!lookup $ex in wimshome/public_html/modules/$smodule/Descindex
 172 
      desc_=!lookup $ex in wimshome/public_html/modules/$smodule/Descindex
173 
      !if $desc_!=$empty
 173 
      !if $desc_!=$empty
174 
        desc=$desc_
 174 
        desc=$desc_
175 
      !endif
 175 
      !endif
176 
      !default desc=$desc_module
 176 
      !default desc=$desc_module
177 
      obs_=!lookup $ex in wimshome/public_html/modules/$smodule/Obsindex
 177 
      obs_=!lookup $ex in wimshome/public_html/modules/$smodule/Obsindex
178 
	    writedon=!append line :$smodule\
 178 
      writedon=!append line :$smodule\
179 
$exoiniparm\
 179 
$exoiniparm\
180 
$require\
 180 
$require\
181 
$weight\
 181 
$weight\
182 
$(exotitle[$j])\
 182 
$(exotitle[$j])\
183 
$desc\
 183 
$desc\