Subversion Repositories wimsdev

Rev

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

Rev 12425 Rev 12879
Line 25... Line 25...
25 
  cssfile=$pr_cssfile
 25 
  cssfile=$pr_cssfile
26 
  wims_class_log=Modify class presentation by $wims_realuser
 26 
  wims_class_log=Modify class presentation by $wims_realuser
27 
!endif
 27 
!endif
28 
 
 28 
 
29 
!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 
 
 30 
 
37 
!for cl in bgcolor,ref_menucolor,ref_button_bgcolor,ref_menucolor,\
 31 
!for cl in bgcolor,ref_menucolor,ref_button_bgcolor,ref_menucolor,\
38 
  ref_button_bgcolor,ref_button_color,ref_button_help_color,\
 32 
  ref_button_bgcolor,ref_button_color,ref_button_help_color,\
39 
  ref_button_help_bgolor,refcolor,pr_bgcolor
 33 
  ref_button_help_bgcolor,pr_bgcolor
- 
 
 34 
 
40 
  !default class_$cl=$(wims_$cl)
 35 
  !default class_$cl=$(wims_$cl)
41 
  !!set class_$cl=red
 36 
  !default class_$cl=!defof DF_$cl in wimshome/public_html/bases/sys/defaults.conf
42 
 
 37 
 
43 
  !!for compatibility
 38 
  !!for compatibility
44 
  !set class_$cl=!replace internal white by #FFFFFF in $(class_$cl)
 39 
  !set class_$cl=!replace internal white by #FFFFFF in $(class_$cl)
45 
  !set class_$cl=!replace internal red by #FF0000 in $(class_$cl)
 40 
  !set class_$cl=!replace internal red by #FF0000 in $(class_$cl)
46 
  !set class_$cl=!replace internal orange by #FFA500 in $(class_$cl)
 41 
  !set class_$cl=!replace internal orange by #FFA500 in $(class_$cl)
47 
  !set class_$cl=!replace internal yellow by #FFFF00 in $(class_$cl)
 42 
  !set class_$cl=!replace internal yellow by #FFFF00 in $(class_$cl)
48 
  !set class_$cl=!replace internal green by #00FF00 in $(class_$cl)
 43 
  !set class_$cl=!replace internal green by #00FF00 in $(class_$cl)
49 
!next
 44 
!next
50 
 
 45 
 
- 
 
 46 
!! Sadly, wims_refcolor does not exist : it is wims_ref_bgcolor
51 
!default class_refcolor=$(wims_ref_bgcolor)
 47 
!default class_refcolor=$wims_ref_bgcolor