Subversion Repositories wimsdev

Rev

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

Rev 16904 Rev 17035
Line 45... Line 45...
45 
  !ifval $j_<$(l_[$m_])
 45 
  !ifval $j_<$(l_[$m_])
46 
    j_=!char 2 to 3 of $[101+$j_]
 46 
    j_=!char 2 to 3 of $[101+$j_]
47 
    output=$a_$m_$j_
 47 
    output=$a_$m_$j_
48 
  !else
 48 
  !else
49 
    !ifval $m_=12
 49 
    !ifval $m_=12
50 
      a_=!char 2 to 3 of $[101+$a_]
 50 
      a_=!char 2 to 5 of $[10001+$a_]
51 
      output=$(a_)0101
 51 
      output=$(a_)0101
52 
    !else
 52 
    !else
53 
      m_=!char 2 to 3 of $[101+$m_]
 53 
      m_=!char 2 to 3 of $[101+$m_]
54 
      output=$a_$(m_)01
 54 
      output=$a_$(m_)01
55 
    !endif
 55 
    !endif
Line 68... Line 68...
68 
    !else
 68 
    !else
69 
      m_=!char 2 to 3 of $[99+$m_]
 69 
      m_=!char 2 to 3 of $[99+$m_]
70 
      output=$a_$m_$(l_[$[$m_]])
 70 
      output=$a_$m_$(l_[$[$m_]])
71 
    !endif
 71 
    !endif
72 
  !else
 72 
  !else
73 
    a_=$[$a_-1]
 73 
    a_=!char 2 to 5 of $[9999+$a_]
74 
    output=$(a_)1231
 74 
    output=$(a_)1231
75 
  !endif
 75 
  !endif
76 
!endif
 76 
!endif
77 
!exit
 77 
!exit
78 
 
 78