Subversion Repositories wimsdev

# ListModules

# Permet de lister les modules disponibles dans le niveau specifie par "option"

!if $ident_type=$empty and $format != $empty

	ident_type=$format

!endif

!read scripts/check.option

!if $error!=$empty

 !exit

!endif

!if $option=$empty or $option=None

	option=/

!endif

# On test avec getmodule pour savoir si c'est bien un repertoire de module qui est appele, et non un module directement.

!read jobs/getmodule.proc

!if $title notsametext

	error=sorry, you can't call this job on a module. Try GetModule instead.

	!exit

!endif

!bound lang within cn,en,fr,nl default fr

!readdef adm/levelname.phtml

!read adm/levelname.phtml

!read names.$lang

# list1 represente les noms de fichiers a ne pas inclure dans le decompte

list1=.,..,.DS_Store,.wimshome,.svn,adm,classes,data,devel,home,Remarks,template,Changelog.modif,Changelog.new,translator.README

# list2 liste tous les fichiers du repertoire /sheets

list2=!listfile -a $wims_home/public_html/modules$option

# on retire ensuite de list2 les noms de fichiers de list1

list2=!lines2items  $list2

listContent=!listcomplement $list1 in $list2 

nb_modules=!itemcnt $listContent