Subversion Repositories wimsdev

Rev

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

Rev 12315 Rev 12489
Line 133... Line 133...
133 
    !endif
 133 
    !endif
134 
    iniparm=qnum=$qnum&qcmlevel=$qcmlevel&scoredelay=$scoredelay&intro_presentsol=$intro_presentsol$(iniparm)&intro_qcmpresent=$intro_presentsol&intro_expow=$intro_expow&intro_sepow=$intro_sepow&intro_precw=$intro_precw&intro_expert=yes
 134 
    iniparm=qnum=$qnum&qcmlevel=$qcmlevel&scoredelay=$scoredelay&intro_presentsol=$intro_presentsol$(iniparm)&intro_qcmpresent=$intro_presentsol&intro_expow=$intro_expow&intro_sepow=$intro_sepow&intro_precw=$intro_precw&intro_expert=yes
135 
  !else
 135 
  !else
136 
    iniparm=qnum=$qnum&qcmlevel=$qcmlevel&scoredelay=$scoredelay
 136 
    iniparm=qnum=$qnum&qcmlevel=$qcmlevel&scoredelay=$scoredelay
137 
  !endif
 137 
  !endif
138 
!! ------  write data in the sheet file.
 138 
  !! ------  write data in the sheet file.
139 
 !! analyse series already in the sheet
 139 
  !! analyse series already in the sheet
140 
  listmod=$empty
 140 
  listmod=$empty
141 
  listiniparm=$empty
 141 
  listiniparm=$empty
142 
  !for i=1 to $shexocnt
 142 
  !for i=1 to $shexocnt
143 
    e=!record $i of wimshome/log/classes/$wims_class/sheets/.sheet$picksheet
 143 
    e=!record $i of wimshome/log/classes/$wims_class/sheets/.sheet$picksheet
144 
    !distribute lines $e into wdi,win
 144 
    !distribute lines $e into wdi,win
Line 153... Line 153...
153 
    lerror=0
 153 
    lerror=0
154 
    exoiniparm=exo=$ex&$iniparm
 154 
    exoiniparm=exo=$ex&$iniparm
155 
    !for i=1 to $shexocnt
 155 
    !for i=1 to $shexocnt
156 
  	  wdi=!line $i of $listmod
 156 
  	  wdi=!line $i of $listmod
157 
  	  win=!line $i of $listiniparm
 157 
  	  win=!line $i of $listiniparm
158 
   	  	!if $smodule=$wdi and $exoiniparm=$win
 158 
   	  !if $smodule=$wdi and $exoiniparm=$win
159 
      	  lerror=1
 159 
      	lerror=1
160 
   	  	!endif
 160 
   	 	!endif
161 
  	!next i
 161 
  	!next i
162 
    !if $lerror=1
 162 
    !if $lerror=1
163 
	    listalready=!append item $ex to $listalready
 163 
	    listalready=!append item $ex to $listalready
164 
    !else
 164 
    !else
165 
      !reset desc
 165 
      !reset desc