Subversion Repositories wimsdev

Rev

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

Rev 2286 Rev 4955
Line 16... Line 16...
16 
authorr=!translate internal !$$ to $      $ in $authorr
 16 
authorr=!translate internal !$$ to $      $ in $authorr
17 
authorr=!singlespace $authorr
 17 
authorr=!singlespace $authorr
18 
authorr=!char 1 to $titlim of $authorr
 18 
authorr=!char 1 to $titlim of $authorr
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=!char 1 to $titlim of $emailr
 23 
emailr=!char 1 to $titlim of $emailr
- 
 
 24 
!if $emailr!=$empty
- 
 
 25 
  etest0=!replace internal ; by , in $emailr
- 
 
 26 
  etest0_cnt=!itemcnt $etest_0
- 
 
 27 
  !for et_ =1 to $etest0
- 
 
 28 
     emailr0=!item $et_ of $etest0
- 
 
 29 
     etest=!translate @ to , in $emailr0
- 
 
 30 
     etes2=!translate @ to $ $ in $emailr0
- 
 
 31 
     ecnt=!itemcnt $etest
- 
 
 32 
     ecnt2=!wordcnt $etes2
- 
 
 33 
    !distribute items $etest into e1,e2
- 
 
 34 
    !if $ecnt!=2 or $ecnt2!=2 or . notin $e2
- 
 
 35 
      error=bad_email
- 
 
 36 
      !exit
- 
 
 37 
    !endif
- 
 
 38 
   !next
- 
 
 39 
!endif
23 
descr=!translate internal $	\
 40 
descr=!translate internal $	\
24 
$ to $ 		   $ in $descr
 41 
$ to $ 		   $ in $descr
25 
descr=!trim $descr
 42 
descr=!trim $descr
26 
!if $emailr!=$empty
 - 
 
27 
 etest=!translate @ to , in $emailr
 - 
 
28 
 etes2=!translate @ to $ $ in $emailr
 - 
 
29 
 ecnt=!itemcnt $etest
 - 
 
30 
 ecnt2=!wordcnt $etes2
 - 
 
31 
 !distribute items $etest into e1,e2
 - 
 
32 
 !if $ecnt!=2 or $ecnt2!=2 or . notin $e2
 - 
 
33 
  error=bad_email
 - 
 
34 
  !exit
 - 
 
35 
 !endif
 - 
 
36 
!endif
 - 
 
37 
dl=!words2items $dlangr
 43 
dl=!words2items $dlangr
38 
dlangr=
 44 
dlangr=
39 
!for l in $dl
 45 
!for l in $dl
40 
 l=!lower $l
 46 
 l=!lower $l
41 
 l=!text select abcdefghijklmnopqrstuvwxyz in $l
 47 
 l=!text select abcdefghijklmnopqrstuvwxyz in $l