Subversion Repositories wimsdev

Rev

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

# 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 rŽpertoire de module qui est appelŽ, 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