Subversion Repositories wimsdev

Rev

Rev 13731 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 13731 Rev 17904
Line 37... Line 37...
37 
        !else
 37 
        !else
38 
          !set keycut=!replace internal _ by , in $key
 38 
          !set keycut=!replace internal _ by , in $key
39 
          !set keycutcnt=!itemcnt $keycut
 39 
          !set keycutcnt=!itemcnt $keycut
40 
          !set asc=$(keycut[1])_$(keycut[2])
 40 
          !set asc=$(keycut[1])_$(keycut[2])
41 
          !set fullkey=!lookup $asc in $taxodir/$tt.fr
 41 
          !set fullkey=!lookup $asc in $taxodir/$tt.fr
42 
          !for s=3 to $keycutcnt
 42 
          !for s=3 to $keycutcn
43 
            !set asc=$(asc)_$(keycut[$s])
 43 
            !set asc=$(asc)_$(keycut[$s])
44 
            !set keyasc=!lookup $asc in $taxodir/$tt.fr
 44 
            !set keyasc=!lookup $asc in $taxodir/$tt.fr
45 
            !set fullkey=$fullkey > $keyasc
 45 
            !set fullkey=$fullkey > $keyasc
46 
          !next
 46 
          !next
47 
        !endif
 47 
        !endif