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