Subversion Repositories wimsdev

Rev

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

Rev 18287 Rev 18307
Line 38... Line 38...
38 
    iadress=!singlespace $(adress$j)
 38 
    iadress=!singlespace $(adress$j)
39 
    !set glocontent=!record $j of $gloss_dir/.glossary$gl
 39 
    !set glocontent=!record $j of $gloss_dir/.glossary$gl
40 
    !set sglo=!replace line number 1 by $iadress in $glocontent
 40 
    !set sglo=!replace line number 1 by $iadress in $glocontent
41 
    !set sglo=!replace line number 2 by $ititle in $sglo
 41 
    !set sglo=!replace line number 2 by $ititle in $sglo
42 
    !set sglo=!replace line number 3 by $idesc in $sglo
 42 
    !set sglo=!replace line number 3 by $idesc in $sglo
43 
     !if $sglo!=$glocontent
 43 
    !if $sglo!=$glocontent
44 
      !read proc/updatefield.proc $gloss_dir/.glossary$gl\
 44 
      !read proc/updatefield.proc $gloss_dir/.glossary$gl\
45 
$j\
 45 
$j\
46 
\
 46 
\
47 
$sglo
 47 
$sglo
48 
    !endif
 48 
    !endif
Line 52... Line 52...
52 
      !read proc/updatefield.proc $gloss_dir/.glossary$gl\
 52 
      !read proc/updatefield.proc $gloss_dir/.glossary$gl\
53 
$j\
 53 
$j\
54 
delete
 54 
delete
55 
    !endif
 55 
    !endif
56 
  !next
 56 
  !next
- 
 
 57 
  !if $wims_class=$empty or $gl=0
57 
  !read proc/updatefield.proc $gloss_dir/.glossary$gl\
 58 
    !read proc/updatefield.proc $gloss_dir/.glossary$gl\
58 
2\
 59 
2\
59 
sort
 60 
sort
60 
 
 61 
  !endif
61 
  glo=!record $gl of $gloss_dir/.glossaryindex
 62 
  glo=!record $gl of $gloss_dir/.glossaryindex
62 
  iadress=!singlespace $adress
 63 
  iadress=!singlespace $adress
63 
  ititle=!singlespace $title
 64 
  ititle=!singlespace $title
64 
  idesc=!singlespace $desc
 65 
  idesc=!singlespace $desc
65 
  !set glo=$glo\
 66 
  !set glo=$glo\