Subversion Repositories wimsdev

Rev

Rev 12411 | Rev 12879 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12411 Rev 12425
Line 13... Line 13...
13 
iconlist=!words2items $iconlist
 13 
iconlist=!words2items $iconlist
14 
!for icon_theme in $iconlist
 14 
!for icon_theme in $iconlist
15 
  !set icon_title=!defof title in wimshome/public_html/gifs/themes/$icon_theme/INDEX
 15 
  !set icon_title=!defof title in wimshome/public_html/gifs/themes/$icon_theme/INDEX
16 
  !set iconpromptlist=!append item $icon_title to $iconpromptlist
 16 
  !set iconpromptlist=!append item $icon_title to $iconpromptlist
17 
!next
 17 
!next
18 
csslist=!words2items ---- -theme- class $csslist
 - 
 
19 
csslist=!sh cd html/css/$lang; ls *.css | sed 's/\.css$$//'
 - 
 
20 
csslist=!words2items ---- -theme- class $csslist
 18 
csslist=!words2items -theme- class ----
21 
cssfile=!record 0 of wimshome/log/classes/$wims_class/css
 19 
cssfile=!record 0 of wimshome/log/classes/$wims_class/css
22 
bgimgs=!filelist gifs/bg
 20 
bgimgs=!filelist gifs/bg
23 
 
 21 
 
24 
!if $save!=$empty
 22 
!if $save!=$empty
25 
  !read scripts/setdefr.proc
 23 
  !read scripts/setdefr.proc
Line 27... Line 25...
27 
  cssfile=$pr_cssfile
 25 
  cssfile=$pr_cssfile
28 
  wims_class_log=Modify class presentation by $wims_realuser
 26 
  wims_class_log=Modify class presentation by $wims_realuser
29 
!endif
 27 
!endif
30 
 
 28 
 
31 
!read adm/du $wims_home/log/classes/$wims_class
 29 
!read adm/du $wims_home/log/classes/$wims_class
- 
 
 30 
 
- 
 
 31 
!defread wimshome/public_html/bases/sys/defaults.conf
- 
 
 32 
 
- 
 
 33 
!default wims_ref_bgcolor=!defof DF_ref_bgcolor in wimshome/public_html/bases/sys/defaults.conf
- 
 
 34 
!default wims_ref_bgcolor=!defof DF_ref_bgcolor in wimshome/public_html/bases/sys/defaults.conf
- 
 
 35 
 
- 
 
 36 
 
- 
 
 37 
!for cl in bgcolor,ref_menucolor,ref_button_bgcolor,ref_menucolor,\
- 
 
 38 
  ref_button_bgcolor,ref_button_color,ref_button_help_color,\
- 
 
 39 
  ref_button_help_bgolor,refcolor,pr_bgcolor
- 
 
 40 
  !default class_$cl=$(wims_$cl)
- 
 
 41 
  !!set class_$cl=red
- 
 
 42 
 
- 
 
 43 
  !!for compatibility
- 
 
 44 
  !set class_$cl=!replace internal white by #FFFFFF in $(class_$cl)
- 
 
 45 
  !set class_$cl=!replace internal red by #FF0000 in $(class_$cl)
- 
 
 46 
  !set class_$cl=!replace internal orange by #FFA500 in $(class_$cl)
- 
 
 47 
  !set class_$cl=!replace internal yellow by #FFFF00 in $(class_$cl)
- 
 
 48 
  !set class_$cl=!replace internal green by #00FF00 in $(class_$cl)
- 
 
 49 
!next
- 
 
 50 
 
- 
 
 51 
!default class_refcolor=$(wims_ref_bgcolor)