Subversion Repositories wimsdev

  !if $mtest=$empty and ($modreq!=.new or $inddef=$empty)

  mod=$modreq

  !if $inddef!=$empty

    inddef=

    !if $mod=.new

      !read scripts/target

      !if $error!=$empty or $target=$empty

        job=create

        !distribute item $target1,$t2,$t3,$target4 into o1,o2,o3,o4

        !changeto create.proc

      !endif

      mod=$target

    !endif

    !for i in title, description, category

      i_$i=!trim $(i_$i)

      !if $(i_$i)=$empty

        error=empty_data

        empty_data=$i

        job=index

        mod=

        !exit

      !endif

    !next i

    !if exercise isitemof $i_category or oef isitemof $i_category or\

        deductio isitemof $i_category

      !if exercise notitemof $i_category

        i_category=$i_category, exercise

      !endif

      !if oef isitemof $i_category or $deductio isitemof $i_category

        default=yes

      !else

        default=no

      !endif

      !bound i_scoring within yes, no default $default

    !else

      i_scoring=no

    !endif

    !if deductio isitemof $i_category

      i_vardef=deduc/var.def

    !endif

    !if oef isitemof $i_category

      i_vardef=oef/var.def

    !endif

    !if document isitemof $i_category

      i_vardef=docu/var.def

    !endif

    c=!char 1 of $i_description

    c=!lower $c

    i_description=!replace char number 1 by $c in $i_description

    c=!char -1 of $i_description

    !if $c!=.

      i_description=$i_description.

    !endif

    !if $i_translation_language!=$empty

      !for l_ in $i_translation_language

        c=!char 1 of $(i_description_$l_)

        c=!lower $c

        i_description_$l_=!replace char number 1 by $c in $(i_description_$l_)

        c=!char -1 of $(i_description_$l_)

        !if $c!=. and $(i_description_$l_)!= $empty

          i_description_$l_=$(i_description_$l_).

        !endif

      !next

    !endif

    !bound i_language within $langlist default $module_language

    i_level=!listintersect $i_level and $levellist

    i_level_cnt=!itemcnt $i_level

    !if $i_level issametext $levellist or $i_level_cnt >= 10

      !reset i_level

    !endif

    level_def=!replace internal ~ by , in $modreq

    !default i_level=!listintersect $(level_def[1]) and $levellist

    i_copyright=$copyright

    !default i_copyright=$gnu

    i_copyright=!replace internal \COPYING\> by "COPYING"> in $i_copyright

    !if $year notwordof $i_copyright

      i_copyright=$i_copyright $year

    !endif

    i_require=!listintersect $i_require and $swlist

    !default i_author=$auth_name

    i_author=!char 1 to 100 of $i_author

    !if , notin in $i_author

      author1=!word 1 of $i_author

      author2=!word 2 to -1 of $i_author

      i_author=$author1, $author2

    !endif

    !default i_address=$auth_email

    i_address=!items2words $i_address

    !!i_address=!word 1 of $i_address

    i_address=!words2items $i_address

    i_address=!text select ;,$mailchar in $i_address

    i_translator=!char 1 to 100 of $i_translator

    i_translator_address=!word 1 of $i_translator_address

    i_translator_address=!text select $mailchar in $i_translator_address

    !if $i_translation_language!=$empty

      !for l_ in $i_translation_language

        i_translator_$l_=!char 1 to 100 of $(i_translator_$l_)

        i_translator_address_$l_=!word 1 of $(i_translator_address_$l_)

        i_translator_address_$l_=!text select $mailchar in $(i_translator_address_$l_)

      !next

    !endif

    i_version=!word 1 of $i_version

    tmp=!replace internal . by , in $i_version

    tmp=!charcnt $(tmp[2])

    !if $tmp<2

      !if $tmp=0

        !if . notin $i_version

          i_version=$i_version.00

        !else

          i_version=$(i_version)00

        !endif

      !endif

      !if $tmp=1

        i_version=$(i_version)0

      !endif

    !endif

    !reset tmp

    i_version=!char 1 to 4 of $i_version

    i_wims_version=!word 1 of $i_wims_version

    !default i_version=1.00

    !default i_wims_version=$wims_version

    !for l in $deflist1

      i_$l=$(i_$l)

    !next

    i_translation_language=!items2words $i_translation_language

    ###add fields not accessible by the interface for the moment

    ### will be useful in case of translation in the module itself

    i_mod_related=!words2items $i_mod_related

    i_mod_related=!text select _.-/,$alnum in $i_mod_related

    !default i_mod_related=$mod_related

    !if .. isin $i_mod_related

      i_mod_related=

    !endif

    !endif

    !read scripts/getindex $mod

    wims_module_log=$mod/INDEX

  !read files

  !default useropts1=2

  !default useropts2=1

  !default useropts3=0

  !set usersize=$[$wims_texbasesize + ($useropts4)]

!endif