Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header

  !goto proc

!endif

slib_title=Images in some datamodule

slib_parms=3\

 ,word or words\

eng,language\

small,size (small,medium,large)

slib_out= Look for the word in the imagedir, then in the images in modules/data/language/images\

 and give the code for insertion. Return -- if don't found.

slib_comment=

slib_example=[antelope,tree],eng\

[fourmi],fra\

!exit

:proc

!!!if ...adm/ isin ...$module or .. isin $wims_read_parm or $wims_read_parm=$empty

!! !exit

!!!endif

!reset slib_out slib_word slib_word_mod slib_word_test

!set slib_dir1=language/images.fr

!set slib_dir=$wims_home/public_html/modules/data/$slib_dir1

!distribute items $wims_read_parm into slib_word,slib_lang,slib_size

!default slib_lang=eng

!default slib_size=small

slib_size=small

slib_word=!declosing $slib_word

slib_word_mod=!singlespace $slib_word

slib_word_mod=!trim $slib_word_mod

slib_word_mod=!replace internal $ $ by _ in $slib_word_mod

slib_word_mod=!nospace $slib_word_mod

slib_cnt=!itemcnt $slib_word_mod

!for slib_a =1 to $slib_cnt

  slib_test=0

  !for slib_ext in jpg,png,gif

    !if $slib_test=0

      slib_word_test=!lookup $(slib_word_mod[$slib_a]).$slib_ext in Imindex

      !if $slib_word_test notsametext

        slib_word_test=!replace internal ./ by in $slib_word_test/

        slib_rename=!rename  $imagedir/$slib_word_test$slib_word_mod.$slib_ext

        slib_out=!append item <img src="$slib_rename" alt=""/> to $slib_out

        slib_test=1

      !endif

    !endif

  !next

  !if $slib_test = 0

    slib_word_test2=!lookup $(slib_word[$slib_a]) in datamodule/$slib_dir1/$(slib_lang)_$slib_size.keys

    !if $slib_word_test2 notsametext

      slib_rename= !rename modules/data/$slib_dir1/$slib_word_test2

      slib_out=!append item <img src="$slib_rename"/> to $slib_out

    !else

      slib_out=!append item -- to $slib_out

    !endif

  !endif

!next