Subversion Repositories wimsdev

!if $cf_abandon!=$empty

  !reset cf_abandon

  job=home

  !read home.proc

  !exit

!endif

!if $cf_set!=$empty

  !reset cf_set

  cf_title=!trim $cf_title

  !if $cf_title=$empty

    cf_title=$wims_name_cdt

  !endif

  cf_description=!singlespace $cf_description

  cf_title=!singlespace $cf_title

  cf_title=!char 1 to 50 of $cf_title

  cf_link=!char 1 to 20 of $cf_link

  !bound cf_reversedate between 0 and 1 default $cdt_reversedate

  !bound cf_showyear between 0 and 1 default $cdt_showyear

  !bound cf_hide within yes,no default $cdt_hide

  test=!nospace $cf_link

  !if $test=$empty

    cf_link=$cdt_link

  !endif

  cf_description=!char 1 to 1024 of $cf_description

  !setdef !set cdt_title=$cf_title\

  !set cdt_description=$cf_description\

  !set cdt_link=$cf_link\

  !set cdt_reversedate=$cf_reversedate\

  !set cdt_showyear=$cf_showyear\

  !set cdt_hide=$cf_hide in wimshome/log/classes/$wims_class/cdt/.def

  cdt_description=$cf_description

  cdt_title=$cf_title

  cdt_link=$cf_link

  cdt_reversedate=$cf_reversedate

  cdt_showyear=$cf_showyear

  cdt_hide=$cf_hide

  !if $cdt_showyear=1

    dateoption=$empty

  !else

    dateoption=noyear

  !endif

!else

  !for k in title,description,reversedate,showyear,hide

    cf_$k=$(cdt_$k)

  !next k

  !default cf_reversedate=0

  !default cf_showyear=0

  !default cf_hide=no

!endif