<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 />
 
Public Function OdsecenDel(Podatok As String, Optional DelBroj As Integer = 1)
Dim RedPod As String
Dim BrojVar As Integer
Dim ArrPodaci
Dim Arr() As String
Dim I As Integer
 
RedPod = Podatok ' "+CRLP: 61,61,78,6"
Vrati_Podatak RedPod, BrojVar, ArrPodaci
 
 If IsNull(ArrPodaci) Or ArrPodaci = "" Then
    Exit Function
 Else
    Arr = Split(ArrPodaci, ",")
   'For I = 0 To BrojVar
    OdsecenDel = Arr(DelBroj)
 'Next I
 End If

End Function
 
 
Public Function Vrati_Podatak(UlazniPodatak As String, Optional BrojVar As Integer = 0, Optional ArrPodaci = "")
Dim Poz As Integer, Duzina As Integer, I As Integer
Dim PrviDio As String, DrugiDio As String, Skupa As String
Dim Znak As String

Poz = InStr(1, UlazniPodatak, "(", vbBinaryCompare)
If Poz = 0 Then GoTo Kraj

PrviDio = Mid(UlazniPodatak, 1, Poz - 1)
DrugiDio = Mid(UlazniPodatak, Poz + 1)
Skupa = PrviDio & "," & DrugiDio
Duzina = Len(UlazniPodatak) - 1
BrojVar = 0
    For I = 1 To Duzina
    Znak = Mid(Skupa, I, 1)
        If Znak = "," Then