WebSVN – wimsdev – Diff – /trunk/wims/public_html/modules/adm/class/sheet/var.proc

 # Variable calculations should be done in this file.
 # It is read and interpreted by wims for all valid calls to the module.
 !read adm/class/classlang names.phtml
 !! number of lines in a record of a sheet
 !set sheetrecordlimit=11
+scnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
+!if $job=cleantechvar
+  !bound sheet between 1 and $scnt default $empty
+  !if $sheet!=$empty
+    !readproc proc/checktechvar.proc clean
+  !endif
+  job=$empty
+!endif
 !if $job!=$empty and $job notwordof text modify
   job1=$job
   !!for the icon and the title
   !if $job=getsource
 !else
   !set wims_ariane=!append line sheetadmin,8 to $wims_ariane
 !endif
 !set wims_ariane_self=no
-scnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
 !if $sheet>$scnt
   wims_infoshow=yes
   !setdef wims_infoshow=$wims_infoshow in wimshome/sessions/$wims_session/var.stat
 !endif
 !if $cmd=resume
       don=!record $number of wimshome/log/classes/$classid/.techvar
       listval=!line 2 of $don
       nbtechvalue=!itemcnt $listval
     !else
       !reset indivtechvar
     !endif
   !endif
   !if $job=prep_activate
-     nb=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$sheet
+    nb=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$sheet
-     !if $nb>$max_exos
+    !if $nb>$max_exos
-       error=toomanyexo
+      error=toomanyexo
-       !reset job
+      !reset job
-       !exit
+      !exit
-     !endif
+    !endif
-     !read adm/sheet/checkdepindiv
+    !read adm/sheet/checkdepindiv
-     !if $sheet isitemof $sheet_dependancy and $sheet isitemof $sheet_indivtechvar
+    !if $sheet isitemof $sheet_dependancy and $sheet isitemof $sheet_indivtechvar
-        error=depindiv
+      error=depindiv
+      !reset job
+      !exit
+    !endif
+    !readproc proc/checktechvar.proc
+    !if $listvalues!=$empty
+      error=techvardiscord $listvalues
-        !reset job
+      !reset job
-     !endif
+    !endif
   !endif
   !exit
 !endif
 scnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
 !if $job=erase and $sheet<=$scnt and $sheet>=1
   test=
   !for s=$sheet to $scnt
   !restart module=home
 !endif
 !if $job=duplicate
   !changeto $job.proc
 !endif
 !if $job=expire
   !distribute item 1,2 into update_field,update_content
   !read update.sheet
   job=
 !endif
 !if $job=hide
   !distribute item 1,3 into update_field,update_content
   !read update.sheet
   job=
 !endif
 !if $job=reactivate
   !distribute item 1,1 into update_field,update_content
   !read update.sheet
   job=
 !endif
 !if $job=deactivate
   !read var.proc.deactivate
 !else
   confirmed=!replace word share by $ in $confirmed
   confirmed=!singlespace $confirmed
 !endif
 activetest=!record $sheet of wimshome/log/classes/$wims_class/sheets/.sheets
 a_=!line 1 of $activetest
 a_=!trim $a_
 expp=!line 2 of $activetest
 !default expiration=$expp
 !if $expiration>$class_expiration or $test_expire!=$empty
   expiration=$class_expiration
 !endif
 ecnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$sheet
 wims_listexo=!values v for v=1 to $ecnt
 !setdef wims_listexo=$wims_listexo in wimshome/sessions/$wims_session/var.stat
 activetest=!replace line number 3 by $ecnt in $activetest
       !next k
       !if NaN isin $[$re]$[$we] or $[$wre*$wwe*$wdi]!=1 or $wpa>1 or $ti=$empty or\
           .. isin $di or $re<0 or $we<0 or ($re>0 and $we=0)
          error=bad_source
          ssource=$source
         !exit
       !endif
       ti=!char 1 to $etitle_limit of $ti
       de=!char 1 to $edesc_limit of $de
       source_$i=$s_
       last=$i
       # last record may be empty
       !if $i!=$putcnt
         error=bad_source
         ssource=$source
         !exit
       !endif
     !endif
   !next i
   !for i=1 to $last
     !appendfile wimshome/log/classes/$wims_class/sheets/.sheet$sheet :$(source_$i)
   !next i
   !reset ssource
 !endif
 !if $activetest!=$empty
   sheet_exist=yes
   !default expiration=!line 2 of $activetest
   activetest=!line 1 of $activetest
   exocnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$sheet
 !else
   sheet_exist=no
   activetest=-1
   exocnt=0
   !default expiration=$class_expiration
 !endif
 !if $job=getsource and $sheet_exist=yes
   !writefile $srcname
   !for i=1 to $exocnt
     l=!record $i of wimshome/log/classes/$wims_class/sheets/.sheet$sheet
     # replace eventual html entities so it will not insert \n in textarea
   !if $allowtype=select and $IPlist=$empty and $save!=$empty
     allowtype=all
   !endif
   !if $allowtype=all
     allow_parm=
   !endif
   !if $allowtype=none
     allow_parm=none
   !endif
   !if $allowtype=select
     allow_parm=$IPlist
 $ by $ $ in $mod_desc
   mod_comment=!replace internal $\
 $ by $ $ in $mod_comment
   !if $title_save$desc_save=$empty
     rec=!record $sheet of wimshome/log/classes/$wims_class/sheets/.sheets
-    !distribute lines $rec into bidon,bidon,title_save,desc_save,prpage_save,\
+    !distribute lines $rec into a,bidon,title_save,desc_save,prpage_save,\
       comment_save,attribut_save,exodescshow_save,formal_hidden_condition_save,\
       indivtechvar_save
-      !bound indivtechvar_save within $empty,$tv_listlocalcode default $empty
+      !if $indivtechvar_save notitemof $tv_listlocalcode
+        !if $a=0
+          !readproc proc/checktechvar.proc
+          !if $listvalues!=$empty
+            error=techvardiscord $listvalues
+            display=1
+          !endif
+        !endif
+      !endif
   !endif
   title=$title_save
   desc=$desc_save
   prpage=$prpage_save
   comment=$comment_save

Subversion Repositories wimsdev

(root)/trunk/wims/public_html/modules/adm/class/sheet/var.proc – Rev 17327 → 17333