Subversion Repositories wimsdev

Rev

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

Rev 6676 Rev 10430
Line 19... Line 19...
19
authorr=!trim $authorr
19
authorr=!trim $authorr
20
emailr=!translate internal !$$ to $      $ in $emailr
20
emailr=!translate internal !$$ to $      $ in $emailr
21
!!emailr=!word 1 of $emailr
21
!!emailr=!word 1 of $emailr
22
emailr=!replace internal ; by , in $emailr
22
emailr=!replace internal ; by , in $emailr
23
emailr=!char 1 to $titlim of $emailr
23
emailr=!char 1 to $titlim of $emailr
24
!if $emailr!=$empty 
24
!if $emailr!=$empty
25
  etest0=!replace internal ; by , in $emailr
25
  etest0=!replace internal ; by , in $emailr
26
  etest0_cnt=!itemcnt $etest_0
26
  etest0_cnt=!itemcnt $etest_0
27
  !for et_ =1 to $etest0
27
  !for et_ =1 to $etest0
28
     emailr0=!item $et_ of $etest0
28
     emailr0=!item $et_ of $etest0
29
     etest=!translate @ to , in $emailr0
29
     etest=!translate @ to , in $emailr0
Line 33... Line 33...
33
    !distribute items $etest into e1,e2
33
    !distribute items $etest into e1,e2
34
    !if $ecnt!=2 or $ecnt2!=2 or . notin $e2
34
    !if $ecnt!=2 or $ecnt2!=2 or . notin $e2
35
      error=bad_email
35
      error=bad_email
36
      !exit
36
      !exit
37
    !endif
37
    !endif
38
   !next 
38
   !next
39
!endif
39
!endif
40
descr=!translate internal $	\
40
descr=!translate internal $	\
41
$ to $ 		   $ in $descr
41
$ to $ 		   $ in $descr
42
descr=!trim $descr
42
descr=!trim $descr
43
dl=!words2items $dlangr
43
dl=!words2items $dlangr
Line 50... Line 50...
50
  dlangr=$dlangr $l
50
  dlangr=$dlangr $l
51
 !endif
51
 !endif
52
!next l
52
!next l
53
dlangr=!trim $dlangr
53
dlangr=!trim $dlangr
54
!default dlangr=all
54
!default dlangr=all
55
headerr=!translate internal $	\
55
headerr=!translate internal $	 \
56
$ to $ 		   $ in $headerr
56
$ to $ 		$ in $headerr
57
 
57
 
58
!if $titr=$empty
58
!if $titr=$empty
59
 error=no_tit
59
 error=no_tit
60
 !exit
60
 !exit
61
!endif
61
!endif