Subversion Repositories wimsdev

Rev

Rev 5267 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5267 Rev 12490
Line 2... Line 2...
2
!read scripts/edfile.proc
2
!read scripts/edfile.proc
3
!if $error!=$empty
3
!if $error!=$empty
4
 !exit
4
  !exit
5
!endif
5
!endif
6
 
6
 
7
!for v in Prev, Next, Upbl
7
!for v in Prev, Next, Upbl
8
 v_=!word 1 of $($v)
8
  v_=!word 1 of $($v)
9
 v_=!text select $namechars in $v_
9
  v_=!text select $namechars in $v_
10
 $v=!char 1 to $namelim of $v_
10
  $v=!char 1 to $namelim of $v_
11
!endif
11
!endif
12
 
12
 
13
Dat1=!text select 0123456789 in $Dat1
13
Dat1=!text select 0123456789 in $Dat1
14
Dat2=!text select 0123456789 in $Dat2
14
Dat2=!text select 0123456789 in $Dat2
15
!bound Dat1 between integer 19000101 and 24000101 default 19000101
15
!bound Dat1 between integer 19000101 and 24000101 default 19000101
Line 19... Line 19...
19
Keyw=!translate internal !$$ to $  $ in $Keyw
19
Keyw=!translate internal !$$ to $  $ in $Keyw
20
Titb=!singlespace $Titb
20
Titb=!singlespace $Titb
21
Keyw=!singlespace $Keyw
21
Keyw=!singlespace $Keyw
22
t_=!charcnt $Titb
22
t_=!charcnt $Titb
23
!if $t_>$titlim
23
!if $t_>$titlim
24
 Titb=!detag $Titb
24
  Titb=!detag $Titb
25
 Titb=!trim $Titb
25
  Titb=!trim $Titb
26
 Titb=!char 1 to $titlim of $Titb
26
  Titb=!char 1 to $titlim of $Titb
27
!endif
27
!endif
28
!default Titb=??
28
!default Titb=??
29
Keyw=!detag $Keyw
29
Keyw=!detag $Keyw
30
Keyw=!char 1 to $titlim of $Keyw
30
Keyw=!char 1 to $titlim of $Keyw
31
 
31
 
Line 39... Line 39...
39
!set upbl=$Upbl\
39
!set upbl=$Upbl\
40
!set dat1=$Dat1\
40
!set dat1=$Dat1\
41
!set dat2=$Dat2\
41
!set dat2=$Dat2\
42
\
42
\
43
!if $$wims_read_parm!=$$empty\
43
!if $$wims_read_parm!=$$empty\
44
 !goto $$wims_read_parm\
44
  !goto $$wims_read_parm\
45
!endif\
45
!endif\
46
\
46
\
47
!exit\
47
!exit\
48
\
48
\
49
:content
49
:content