Subversion Repositories wimsdev

Rev

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

Rev 15584 Rev 18287
Line 33... Line 33...
33 
  !set glocnt=!recordcnt $gloss_dir/.glossary$gl
 33 
  !set glocnt=!recordcnt $gloss_dir/.glossary$gl
34 
  !for j=1 to $glocnt
 34 
  !for j=1 to $glocnt
35 
    !set glocontent=!record $j of $gloss_dir/.glossary$gl
 35 
    !set glocontent=!record $j of $gloss_dir/.glossary$gl
36 
    ititle=!singlespace $(title$j)
 36 
    ititle=!singlespace $(title$j)
37 
    idesc=!singlespace $(desc$j)
 37 
    idesc=!singlespace $(desc$j)
- 
 
 38 
    iadress=!singlespace $(adress$j)
38 
    !set glocontent=!record $j of $gloss_dir/.glossary$gl
 39 
    !set glocontent=!record $j of $gloss_dir/.glossary$gl
39 
    !set sglo=!replace line number 2 by $ititle in $glocontent
 40 
    !set sglo=!replace line number 1 by $iadress in $glocontent
- 
 
 41 
    !set sglo=!replace line number 2 by $ititle in $sglo
40 
    !set sglo=!replace line number 3 by $idesc in $sglo
 42 
    !set sglo=!replace line number 3 by $idesc in $sglo
41 
    !if $sglo!=$glocontent
 43 
     !if $sglo!=$glocontent
42 
      !read proc/updatefield.proc $gloss_dir/.glossary$gl\
 44 
      !read proc/updatefield.proc $gloss_dir/.glossary$gl\
43 
$j\
 45 
$j\
44 
\
 46 
\
45 
$sglo
 47 
$sglo
46 
    !endif
 48 
    !endif
Line 55... Line 57...
55 
  !read proc/updatefield.proc $gloss_dir/.glossary$gl\
 57 
  !read proc/updatefield.proc $gloss_dir/.glossary$gl\
56 
2\
 58 
2\
57 
sort
 59 
sort
58 
 
 60 
 
59 
  glo=!record $gl of $gloss_dir/.glossaryindex
 61 
  glo=!record $gl of $gloss_dir/.glossaryindex
- 
 
 62 
  iadress=!singlespace $adress
60 
  ititle=!singlespace $title
 63 
  ititle=!singlespace $title
61 
  idesc=!singlespace $desc
 64 
  idesc=!singlespace $desc
62 
  !set glo=$glo\
 65 
  !set glo=$glo\
63 
\
 66 
\
64 
 
 67 
 
- 
 
 68 
  !set sglo=!replace line number 1 by $iadress in $glo
65 
  !set sglo=!replace line number 2 by $ititle in $glo
 69 
  !set sglo=!replace line number 2 by $ititle in $sglo
66 
  !set sglo=!replace line number 3 by $idesc in $sglo
 70 
  !set sglo=!replace line number 3 by $idesc in $sglo
67 
  !read proc/updatefield.proc $gloss_dir/.glossaryindex\
 71 
  !read proc/updatefield.proc $gloss_dir/.glossaryindex\
68 
$gl\
 72 
$gl\
69 
\
 73 
\
70 
$sglo
 74 
$sglo