Subversion Repositories wimsdev

tmp_themelist=!sh find themes -name visitor.phtml | sed 's!^themes/!!;s!/visitor.phtml$!!'

tmp_themelist=!words2items $tmp_themelist

themelist=$empty

!for i in $tmp_themelist

 test=!defof theme_hide in wimshome/public_html/themes/$i/.def

 !if yes notin $test

  themelist=!append item $i to $themelist

 !endif

!next i

iconlist=!sh cd gifs/themes/;ls | sort

!!not very clean

iconlist=!replace internal mkindex by in $iconlist

iconlist=!words2items $iconlist

!for icon_theme in $iconlist

  !set icon_title=!defof title in wimshome/public_html/gifs/themes/$icon_theme/INDEX

  !set iconpromptlist=!append item $icon_title to $iconpromptlist

!next

csslist=!words2items ---- -theme- class $csslist

csslist=!sh cd html/css/$lang; ls *.css | sed 's/\.css$$//'

csslist=!words2items ---- -theme- class $csslist

cssfile=!record 0 of wimshome/log/classes/$wims_class/css

bgimgs=!filelist gifs/bg

!if $save!=$empty

 !read scripts/setdefr.proc

 !defread wimshome/log/classes/$wims_class/.def

 cssfile=$pr_cssfile

 wims_class_log=Modify class presentation by $wims_realuser

!endif

!read adm/du $wims_home/log/classes/$wims_class