!! html for create a individual class copying an exemple class
!if $step=-3
<div class="wims_content">
!read proc/search.phtml
<p>$name_clickclone</p>
!if $debcls!=$empty
!set table_id=TABLE_clonelist
!set table_class=sortable
$table_header
<thead>
$table_hdtr<th scope="col">$wims_name_name</th><th scope="col">$wims_name_supervisor</th>
<th scope="col">$name_cloning</th>
</thead>
<tbody>
!for i=$debcls to $ccnt
!! find if classe is clonable
!let l
=!record
$i of wimshome
/log/classes
/.index
!distribute items $l into code,expire,inst,cl,la,ty
!if $ty!=4
!let l1=!deaccent $l
!let l1=!tolower $l1
!let c1
=!text
extract 0123456789 in
$code !let k=yes
!if $kw!=$empty
!for w in $kw
!if $w notin $l1
!let k=no
!break
!endif
!endif
!if $k=no and $ty=2 and $kw!=$empty
!! find of keyword in subclasses
!let sbcnt
=!recordcnt wimshome
/log/classes
/$code/.subclasses
!let sb=1
!while $sb<=$sbcnt and $k=no
!let ksb=yes
!let l1sb
=!record
$sb of wimshome
/log/classes
/$code/.subclasses
!let l1sb=!deaccent $l1sb
!let l1sb=!tolower $l1sb
!for w in $kw
!if $w notin $l1sb
!let ksb=no
!break
!endif
!if $ksb=yes
!let k=yes
!endif
!increase sb
!endwhile
!endif
!if $k!=yes
!endif
!else
!endif
!! display clonable class
!if $l!=$empty
!distribute items $l into code,expire,inst,cl,la,ty,b,b,first,last
!let testneighbors
=!defof sharing_all in wimshome
/log/classes
/$code/neighbors
!let test
=!defof class_allowcloning in wimshome
/log/classes
/$code/.def
!if ($testneighbors=$empty and $test=yes) or ($code<=9999 and $code notin $noopenclone) or $ty=2
!if $ty!=2
$table_tr
<td>$inst <br />
!href cmd=reply&step=-2&sourcecls=$code $cl
!if $class_info!=$empty
<br /> $class_info
!endif
</td>
<td>$first $last</td>
<td>
!if $code<=9999
$name_free
!else
!if $test=yes
$name_protected
!else
$name_disallowed
!endif
!endif
</td>
</tr>
!else
!! class_type=2 display subclasses
!let nbsubclass
=!recordcnt wimshome
/log/classes
/$code/.subclasses
!let auth=$empty
!for j=1 to $nbsubclass
!let tmp
=!record
$j of wimshome
/log/classes
/$code/.subclasses
!let test
=!defof class_allowcloning in wimshome
/log/classes
/$code/$j/.def
!if $test=yes
!let auth=!append item $j to $auth
!endif
!if $auth!=$empty
!for j in $auth
!let tmp
=!record
$j of wimshome
/log/classes
/$code/.subclasses
!distribute items $tmp into codes,expires,insts,cls,las,tys,b,b,firsts,lasts
$table_tr
<td>$name_subclass $inst $cl <br />
!href cmd=reply&step=-2&sourcecls=$codes $cls
</td>
<td>$firsts $lasts</td>
<td>$name_protected</td>
</tr>
!endif
!endif
!endif
!endif
</tbody>
$table_end
!read tablesort.phtml
!else
$name_nofound
!endif
</div>
!endif
!if $step=-2
!! saisie du mot de passe de clonage pour les classes privées.
$name_getcloningpwd
!form reply
<input size="20" name="clonepwd" value="$clonepwd" id="clonepwd" />
<input type="hidden" name="step" value="-1" />
<input type="submit" value="$wims_name_tosave" />
!formend
!endif
!if $step>=-1 and $step<3
<div class="wims_msg info">
$name_cpexempleintro.
</div>
!endif
!if $step=-1
<div class="wims_content spacer">
$(name_choosemode):
<p>
!set wims_ref_class=wims_button
!href cmd=reply&methodecp=0&step=0 $name_btcpexemplemeth0
$name_cpexemplemeth0
</p><p>
!set wims_ref_class=wims_button
!href cmd=reply&methodecp=1&step=0 $name_btcpexemplemeth1
$name_cpexemplemeth1
</p>
$name_cpexemplecomment
!! <span class="wims_warning">$wims_name_help</span>:
!! !read lang/help.phtml.$modu_lang 1
</div>
!endif
!if $step>=0
!changeto proc/newclass.phtml
!endif