Subversion Repositories wimsdev

Rev

Rev 10189 | Rev 14043 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1
 
2
!if $cf_abandon!=$empty
3
 !reset cf_abandon
4
 job=home
5
 !read home.proc
6
 !exit
7
!endif
8
 
9
!if $cf_set!=$empty
10
 !reset cf_set
11
 cf_title=!trim $cf_title
12
 !if $cf_title=$empty
2130 bpr 13
  cf_title=$wims_name_cdt
23 reyssat 14
 !endif
15
 cf_description=!singlespace $cf_description
16
 cf_title=!singlespace $cf_title
17
 cf_title=!char 1 to 50 of $cf_title
18
 cf_link=!char 1 to 20 of $cf_link
6366 guerimand 19
 !bound cf_reversedate between 0 and 1 default $cdt_reversedate
9598 guerimand 20
 !bound cf_showyear between 0 and 1 default $cdt_showyear
11978 guerimand 21
 !bound cf_hide within yes,no default $cdt_hide
23 reyssat 22
 test=!nospace $cf_link
23
 !if $test=$empty
24
  cf_link=$cdt_link
25
 !endif
26
 cf_description=!char 1 to 1024 of $cf_description
27
 !setdef !set cdt_title=$cf_title\
28
!set cdt_description=$cf_description\
6366 guerimand 29
!set cdt_link=$cf_link\
9598 guerimand 30
!set cdt_reversedate=$cf_reversedate\
11978 guerimand 31
!set cdt_showyear=$cf_showyear\
32
!set cdt_hide=$cf_hide in wimshome/log/classes/$wims_class/cdt/.def
23 reyssat 33
 cdt_description=$cf_description
34
 cdt_title=$cf_title
35
 cdt_link=$cf_link
6366 guerimand 36
 cdt_reversedate=$cf_reversedate
9598 guerimand 37
 cdt_showyear=$cf_showyear
11978 guerimand 38
 cdt_hide=$cf_hide
9598 guerimand 39
 !if $cdt_showyear=1
40
    dateoption=withyear
41
 !else
42
    dateoption=$empty
43
 !endif
23 reyssat 44
!else
11978 guerimand 45
 !for k in title,description,reversedate,showyear,hide
23 reyssat 46
  cf_$k=$(cdt_$k)
47
 !next k
6366 guerimand 48
 !default cf_reversedate=0
9598 guerimand 49
 !default cf_showyear=0
11978 guerimand 50
 !default cf_hide=no
23 reyssat 51
!endif