Subversion Repositories wimsdev

Rev

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

Rev 12595 Rev 15590
Line 24... Line 24...
24 
    error=bad_glossary
 24 
    error=bad_glossary
25 
    !exit
 25 
    !exit
26 
  !endif
 26 
  !endif
27 
  ititle=!singlespace $title
 27 
  ititle=!singlespace $title
28 
  ititle=!char 1 to $title_limit of $ititle
 28 
  ititle=!char 1 to $title_limit of $ititle
- 
 
 29 
  tmp=!checkallpar $ititle
- 
 
 30 
  !if $tmp=no
- 
 
 31 
    ititle=!translate internal (){}[] to ------ in $ititle
- 
 
 32 
  !endif
29 
  !if $pickglossary=$[$glossarytot+1]
 33 
  !if $pickglossary=$[$glossarytot+1]
30 
    !set iglosstitle=!singlespace $new_glossary
 34 
    !set iglosstitle=!singlespace $new_glossary
31 
    !set idesc=!singlespace $new_glossarydesc
 35 
    !set idesc=!singlespace $new_glossarydesc
32 
    !appendfile $gloss_dir/.glossary$pickglossary :$iniparm\
 36 
    !appendfile $gloss_dir/.glossary$pickglossary :$iniparm\
33 
$ititle
 37 
$ititle