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