Subversion Repositories wimsdev

Rev

Rev 10933 | Rev 12660 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !! html for create a individual class copying an exemple class
  2.  
  3. !if $step=-3
  4.   <div class="wims_content">
  5.   !read proc/search.phtml
  6.   <p>$name_clickclone</p>
  7.   !if $debcls!=$empty
  8.     $table_header
  9.     $table_hdtr<th>$wims_name_name</th><th>$wims_name_supervisor</th><th>$name_cloning</th>
  10.     !for i=$debcls to $ccnt
  11.       !! find if classe is clonable
  12.       !let l=!record $i of wimshome/log/classes/.index
  13.       !distribute items $l into code,expire,inst,cl,la,ty
  14.       !if $ty!=4
  15.         !let l1=!deaccent $l
  16.         !let l1=!tolower $l1
  17.         !let c1=!text extract 0123456789 in $code
  18.         !let k=yes
  19.         !if $kw!=$empty
  20.           !for w in $kw
  21.             !if $w notin $l1
  22.               !let k=no
  23.               !break
  24.             !endif
  25.           !next w
  26.         !endif
  27.         !if $k=no and $ty=2 and $kw!=$empty
  28.           !! find of keyword in subclasses
  29.           !let sbcnt=!recordcnt wimshome/log/classes/$code/.subclasses
  30.           !let sb=1
  31.           !while $sb<=$sbcnt and $k=no
  32.             !let ksb=yes
  33.             !let l1sb=!record $sb of wimshome/log/classes/$code/.subclasses
  34.             !let l1sb=!deaccent $l1sb
  35.             !let l1sb=!tolower $l1sb
  36.  
  37.             !for w in $kw
  38.                   !if $w notin $l1sb
  39.                     !let ksb=no
  40.                         !break
  41.                   !endif
  42.             !next w
  43.             !if $ksb=yes
  44.                   !let k=yes
  45.             !endif
  46.             !increase sb
  47.           !endwhile
  48.         !endif
  49.         !if $k!=yes
  50.           !reset l
  51.         !endif
  52.       !else
  53.         !reset l
  54.       !endif
  55.       !! display clonable class
  56.       !if $l!=$empty
  57.         !distribute items $l into code,expire,inst,cl,la,ty,b,b,first,last
  58.         !let testneighbors=!defof sharing_all in wimshome/log/classes/$code/neighbors
  59.           !let test=!defof class_allowcloning in wimshome/log/classes/$code/.def
  60.         !if ($testneighbors=$empty and $test=yes) or $code<=9999 or $ty=2
  61.           !if $ty!=2
  62.             $table_tr
  63.             <td>$inst <br />
  64.             !href cmd=reply&step=-2&sourcecls=$code $cl
  65.             !if $class_info!=$empty
  66.               <br /> $class_info
  67.             !endif
  68.             </td>
  69.             <td>$first $last</td>
  70.             <td>
  71.             !if $code<=9999
  72.               $name_free
  73.             !else
  74.               !if $test=yes
  75.                 $name_protected
  76.               !else
  77.                 $name_disallowed
  78.               !endif
  79.             !endif
  80.             </td>
  81.             </tr>
  82.           !else
  83.             !! class_type=2 display subclasses
  84.             !let nbsubclass=!recordcnt wimshome/log/classes/$code/.subclasses
  85.             !let auth=$empty
  86.             !for j=1 to $nbsubclass
  87.               !let tmp=!record $j of wimshome/log/classes/$code/.subclasses
  88.               !let test=!defof class_allowcloning in wimshome/log/classes/$code/$j/.def
  89.               !if $test=yes
  90.                 !let auth=!append item $j to $auth
  91.               !endif
  92.             !next j
  93.             !if $auth!=$empty
  94.               !for j in $auth
  95.                 !let tmp=!record $j of wimshome/log/classes/$code/.subclasses
  96.                 !distribute items $tmp into codes,expires,insts,cls,las,tys,b,b,firsts,lasts
  97.                 $table_tr
  98.                 <td>$name_subclass  $inst $cl <br />
  99.                 !href cmd=reply&step=-2&sourcecls=$codes $cls
  100.                 </td>
  101.                 <td>$firsts $lasts</td>
  102.                 <td>$name_protected</td>
  103.                 </tr>
  104.               !next j
  105.             !endif
  106.           !endif
  107.         !endif
  108.       !endif
  109.     !next i
  110.     $table_end
  111.   !else
  112.     $name_nofound
  113.   !endif
  114.   </div>
  115.   !exit
  116. !endif
  117.  
  118. !if $step=-2
  119.   !! saisie du mot de passe de clonage pour les classes privées.
  120.   $name_getcloningpwd
  121.   !form reply
  122.   <input size="20" name="clonepwd" value="$clonepwd" id="clonepwd"/>
  123.   <input type="hidden" name="step" value="-1"/>
  124.   <input type="submit" value="$wims_name_tosave" />
  125.   !formend
  126.   !exit
  127. !endif
  128.  
  129. !if $step>=-1 and $step<3
  130.   <div class="wims_msg info">
  131.   $name_cpexempleintro.
  132.   </div>
  133. !endif
  134.  
  135. !if $step=-1
  136.   <div class="wims_content spacer">
  137.   $(name_choosemode):
  138.   <p>
  139.   !set wims_ref_class=wims_button
  140.   !href cmd=reply&methodecp=0&step=0 $name_btcpexemplemeth0
  141.   $name_cpexemplemeth0
  142.   </p><p>
  143.   !set wims_ref_class=wims_button
  144.   !href cmd=reply&methodecp=1&step=0 $name_btcpexemplemeth1
  145.   $name_cpexemplemeth1
  146.   </p>
  147.   $name_cpexemplecomment
  148.  
  149.   !!  <span class="wims_warning">$wims_name_help</span>:
  150.   !!  !read lang/help.phtml.$modu_lang 1
  151.   </div>
  152.   !exit
  153. !endif
  154.  
  155. !if $step>=0
  156.   !changeto proc/newclass.phtml
  157. !endif
  158.