chamilo /
chamilo-lms
| @@ 1387-1410 (lines=24) @@ | ||
| 1384 | $attr = array(); |
|
| 1385 | $attrix = -1; |
|
| 1386 | $strlen = strlen( $line ); |
|
| 1387 | for( $cix=0; $cix < $strlen; $cix++ ) { |
|
| 1388 | if(( ':' == $line{$cix} ) && |
|
| 1389 | ( '://' != substr( $line, $cix, 3 )) && |
|
| 1390 | ( 'mailto:' != strtolower( substr( $line, $cix - 6, 7 )))) { |
|
| 1391 | $attrEnd = TRUE; |
|
| 1392 | if(( $cix < ( $strlen - 4 )) && |
|
| 1393 | ctype_digit( substr( $line, $cix+1, 4 ))) { // an URI with a (4pos) portnr?? |
|
| 1394 | for( $c2ix = $cix; 3 < $c2ix; $c2ix-- ) { |
|
| 1395 | if( '://' == substr( $line, $c2ix - 2, 3 )) { |
|
| 1396 | $attrEnd = FALSE; |
|
| 1397 | break; // an URI with a portnr!! |
|
| 1398 | } |
|
| 1399 | } |
|
| 1400 | } |
|
| 1401 | if( $attrEnd) { |
|
| 1402 | $line = substr( $line, $cix + 1 ); |
|
| 1403 | break; |
|
| 1404 | } |
|
| 1405 | } |
|
| 1406 | if( ';' == $line{$cix} ) |
|
| 1407 | $attr[++$attrix] = null; |
|
| 1408 | else |
|
| 1409 | $attr[$attrix] .= $line{$cix}; |
|
| 1410 | } |
|
| 1411 | ||
| 1412 | /* make attributes in array format */ |
|
| 1413 | $propattr = array(); |
|
| @@ 6397-6420 (lines=24) @@ | ||
| 6394 | $attr = array(); |
|
| 6395 | $attrix = -1; |
|
| 6396 | $strlen = strlen( $line ); |
|
| 6397 | for( $cix=0; $cix < $strlen; $cix++ ) { |
|
| 6398 | if(( ':' == $line{$cix} ) && |
|
| 6399 | ( '://' != substr( $line, $cix, 3 )) && |
|
| 6400 | ( 'mailto:' != strtolower( substr( $line, $cix - 6, 7 )))) { |
|
| 6401 | $attrEnd = TRUE; |
|
| 6402 | if(( $cix < ( $strlen - 4 )) && |
|
| 6403 | ctype_digit( substr( $line, $cix+1, 4 ))) { // an URI with a (4pos) portnr?? |
|
| 6404 | for( $c2ix = $cix; 3 < $c2ix; $c2ix-- ) { |
|
| 6405 | if( '://' == substr( $line, $c2ix - 2, 3 )) { |
|
| 6406 | $attrEnd = FALSE; |
|
| 6407 | break; // an URI with a portnr!! |
|
| 6408 | } |
|
| 6409 | } |
|
| 6410 | } |
|
| 6411 | if( $attrEnd) { |
|
| 6412 | $line = substr( $line, $cix + 1 ); |
|
| 6413 | break; |
|
| 6414 | } |
|
| 6415 | } |
|
| 6416 | if( ';' == $line{$cix} ) |
|
| 6417 | $attr[++$attrix] = null; |
|
| 6418 | else |
|
| 6419 | $attr[$attrix] .= $line{$cix}; |
|
| 6420 | } |
|
| 6421 | /* make attributes in array format */ |
|
| 6422 | $propattr = array(); |
|
| 6423 | foreach( $attr as $attribute ) { |
|
