Subversion Repositories wimsdev

!if ($wims_class notitemof $nei_sup,$nei_part or\
        $nei notitemof $n_sup,$n_part) and \
    all notitemof $nei_sup,$nei_part
  error=not_neighbor
  job2=first
  !exit
!endif

!read scripts/reccnt.proc me log/classes/$wims_class
!read scripts/reccnt.proc it log/classes/$nei
import=!trim $import
!if $import=$empty
  :noimp
  job2=import
  !changeto neighbor/import.proc
!endif

!bound impmethod within add,replace default add
!distribute items $import into itype,iname
imported=1
!if $itype notitemof motd,exo,sheet,exam,doc,user,livret,glossary,pdoc,tool
  !goto noimp
!endif

!if ($wims_class notitemof $nei_sup or $nei notitemof $n_sup) and \
    all notitemof $nei_sup
  !if $itype!=user
    !goto noimp
  !endif
!endif

!if $itype=livret
  !if $confirm!=yes and $impmethod=replace
    test=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$replace
    !if $test>0
      result=confirm
      cfm=$cfm replace
      !exit
    !endif
  !endif
  nbnei=!recordcnt wimshome/log/classes/$nei/livret/.comps
  !if $impmethod=replace
    !sh rm -f $wims_home/log/classes/$wims_class/livret/.comp[0-9]*;\
rm -f $wims_home/log/classes/$wims_class/livret/.comps
  !endif
  !sh cp $wims_home/log/classes/$nei/livret/.comps $wims_home/log/classes/$wims_class/livret/.comps
  nb=!recordcnt wimshome/log/classes/$nei/livret/.comps
  !for k=1 to $nb
    comp=$empty
    nbp=!recordcnt wimshome/log/classes/$nei/livret/.comp$k
    !for l=1 to $nbp
      d=!record $l of wimshome/log/classes/$nei/livret/.comp$k
      d=!line 1 of $d
      comp=!append line :$d\
    to $comp
    !next l
    !writefile wimshome/log/classes/$wims_class/livret/.comp$[$k] $comp
  !next k
  verif=module=adm/class/livret
  !exit
!endif

!distribute line doc/.docindex\
tool/.toolindex into file_pdoc,file_tool
!if $itype=pdoc or $itype=tool
  !if $confirm!=yes and $impmethod=replace
    test=!recordcnt wimshome/log/classes/$wims_class/$(file_$itype)
    !if $test>0
      result=confirm
      cfm=$cfm replace
      !exit
    !endif
  !endif
  nbnei=!recordcnt wimshome/log/classes/$nei/$(file_$itype)
  !if $impmethod=replace
    !sh rm -f $wims_home/log/classes/$wims_class/$(file_$itype)
  !endif
  !sh cp $wims_home/log/classes/$nei/$(file_$itype) $wims_home/log/classes/$wims_class/$(file_$itype)
  verif=module=home
  !exit
!endif

!if $itype=motd
  result=!mexec neighbor/import2.sh
  verif=module=adm/class/motd
  !exit
!endif

!if $itype=exo
  result=!mexec neighbor/import2.sh
  verif=module=classes/$lang
  !exit
!endif

!if $itype=sheet
  !if $confirm!=yes
    !if $it_exocnt>0
      result=confirm
      cfm=$cfm dep
      !exit
    !endif
    !if $impmethod=replace
      test=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$replace
      !if $test>0
        result=confirm
        cfm=$cfm replace
        !exit
      !endif
    !endif
  !endif
  header=!record $iname of wimshome/log/classes/$nei/sheets/.sheets
  header=!line 2 to -1 of $header
  header=!replace line number 1 by $class_expiration in $header
  !! --- delete reference to a doc for sheet presentation
  tmp=!line 4 of $header
  !if $tmp notitemof yes,no,$empty
    header=!replace line number 4 by $empty in $header
  !endif
  !! --- delete reference to a technical variable to hide sheet
  header=!replace line number 8 by $empty in $header
  !if $impmethod=add
    !appendfile wimshome/log/classes/$wims_class/sheets/.sheets :0\
$header
    replace=$[$me_sheetcnt+1]
  !endif
  result=!mexec neighbor/import2.sh
  verif=module=adm/class/sheet&sheet=$replace
  !exit
!endif

!if $itype=exam
  !if $confirm!=yes
    result=confirm
    cfm=$cfm dep
    !if $impmethod=replace
      test=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$replace
      !if $test>0
        result=confirm
        cfm=$cfm replace
        !exit
      !endif
    !endif
    !exit
  !endif
  header=!record $iname of wimshome/log/classes/$nei/exams/.exams
  header=!line 2 to -1 of $header
  !if $impmethod=add
    !appendfile wimshome/log/classes/$wims_class/exams/.exams :0\
$header
    replace=$[$me_examcnt+1]
  !endif
  result=!mexec neighbor/import2.sh
  verif=module=adm/class/exam&exam=$replace
  !exit
!endif

!if $itype=glossary
  !if $confirm!=yes
    result=confirm
    cfm=$cfm dep
    !if $impmethod=replace
      test=!recordcnt wimshome/log/classes/$wims_class/tool/.glossary$replace
      !if $test>0
        result=confirm
        cfm=$cfm replace
        !exit
      !endif
    !endif
    !exit
  !endif
  header=!record $iname of wimshome/log/classes/$nei/tool/.glossaryindex
  header=!line 2 to -1 of $header
  !if $impmethod=add
    !appendfile wimshome/log/classes/$wims_class/tool/.glossaryindex :0\
$header
    replace=$[$me_examcnt+1]
  !endif
  result=!mexec neighbor/import2.sh
  verif=module=adm/tool/glossary&gl=$replace
  !exit
!endif

!if $itype=doc
  !if $confirm!=yes
    !if $impmethod=replace
      result=confirm
      cfm=$cfm replace
      !exit
    !endif
  !endif
  !if $impmethod=add
    replace=$[$me_doccnt+1]
  !endif
  result=!mexec neighbor/import2.sh
  Docdir=log/classes/$wims_class/doc
  docdir=wimshome/$Docdir
  !read adm/docindex.proc
  verif=module=adm/doc&job=read&doc=c$replace
  !exit
!endif

!if $itype=user
  imported=
  !read adm/class/userremain.proc
  !for i=1 to $it_usercnt
    t=!record $i of wimshome/log/classes/$nei/.userlist
    u=!item 3 of $t
    !if $u isitemof $iname or $iname=-all-
      test1=!defof user_exists in wimshome/log/classes/$wims_class/.users/$u
      !default test1=!defof user_exists in wimshome/log/classes/$wims_class/.users/.$u
      !if $test1=$empty
        !if $dispo>0
          ud=!record 0 of wimshome/log/classes/$nei/.users/$u
          !writefile wimshome/log/classes/$wims_class/.users/$u $ud
          !! userphoto copy
          cls=!defof class_superclass in wimshome/log/classes/$nei/.def
          !if $cls=$empty
            photodir=$nei
          !else
            photodir=$cls
          !endif
          !sh mkdir -p $wims_home/log/classes/$wims_class/photoboard/; \
cp $wims_home/log/classes/$photodir/photoboard/$u $wims_home/log/classes/$wims_class/photoboard/$u
          !! end userphoto copy
          imported=!append item $u to $imported
        !endif
      !endif
    !endif
  !next i
  !if $imported!=$empty
    !read adm/class/mkuserlist
    !read adm/class/stat
    result=success
    importedcnt=!itemcnt $imported
  !else
    result=none
  !endif
  verif=module=adm/class/usermanage
  !exit
!endif