<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Function Naziv_Art(NazivASrtikla As String)
    Dim I As Integer
    Dim Pozicija As Integer
    Dim Duz_Art As Integer
     
    Const Znak = ""
     
     
    '-------------------------------
    'Duzina teksta u nazivu artikla
    'Moze se postaviti kao konstanta
    Duz_Art = Me.HCP
    '------------------------------
     
    For I = 33 To 47
Izmjena1:
    Pozicija = InStr(1, NazivASrtikla, Chr(I))
         If Pozicija > 0 Then
         If I <> 44 Or I = 46 Then
         NazivASrtikla = Left(NazivASrtikla, Pozicija - 1) & " " & Mid(NazivASrtikla, Pozicija + 1)
         GoTo Izmjena1
         End If
         End If
    Next I
     
    For I = 58 To 63
Izmjena2:
    Pozicija = InStr(1, NazivASrtikla, Chr(I))
         If Pozicija > 0 Then
         NazivASrtikla = Left(NazivASrtikla, Pozicija - 1) & " " & Mid(NazivASrtikla, Pozicija + 1)
         GoTo Izmjena2
         End If
    Next I
    If Len(NazivASrt