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