function tbs_Html_MergeItems(&$Txt,&$Loc,&$SelValue,&$SelArray,&$NewEnd) {
// Merge items of a list, or radio or check buttons.
// At this point, the Locator is already merged with $SelValue.
if ($Loc->PrmLst['selected']===true) {
$IsList = true;
$MainTag = 'SELECT';
$ItemTag = 'OPTION';
$ItemPrm = 'selected';
} else {
$IsList = false;
$MainTag = 'FORM';
$ItemTag = 'INPUT';
$ItemPrm = 'checked';
}
if (isset($Loc->PrmLst['selbounds'])) $MainTag = $Loc->PrmLst['selbounds'];
$ItemPrmZ = ' '.$ItemPrm.'="'.$ItemPrm.'"';
$TagO = tbs_Html_FindTag($Txt,$MainTag,true,$Loc->PosBeg-1,false,0,false);
if ($TagO!==false) {
$TagC = tbs_Html_FindTag($Txt,$MainTag,false,$Loc->PosBeg,true,0,false);
if ($TagC!==false) {
// We get the main block without the main tags
$MainSrc = substr($Txt,$TagO->PosEnd+1,$TagC->PosBeg - $TagO->PosEnd -1);
if ($IsList) {
// Information about the item that was used for the TBS field
$Item0Beg = $Loc->PosBeg - ($TagO->PosEnd+1);
$Item0Src = '';
$Item0Ok = false;
} else {
// We delete the merged value
$MainSrc = substr_replace($MainSrc,'',$Loc->PosBeg - ($TagO->PosEnd+1), strlen($SelValue));
}
// Now, we going to scan all of the item tags
$Pos = 0;
$SelNbr = 0;
while ($ItemLoc = tbs_Html_FindTag($MainSrc,$ItemTag,true,$Pos,true,0,true)) {
// we get the value of the item
$ItemValue = false;
if ($IsList) {
// Look for the end of the item
$OptCPos = strpos($MainSrc,'<',$ItemLoc->PosEnd+1);
if ($OptCPos===false) $OptCPos = strlen($MainSrc);
if (($Item0Ok===false) and ($ItemLoc->PosBeg<$Item0Beg) and ($Item0Beg<=$OptCPos)) {
// If it's the original item, we save it and delete it.
if (($OptCPos+1<strlen($MainSrc)) and ($MainSrc[$OptCPos+1]==='/')) {
$OptCPos = strpos($MainSrc,'>',$OptCPos);
if ($OptCPos===false) {
$OptCPos = strlen($MainSrc);
} else {
$OptCPos++;
}
}
$Item0Src = substr($MainSrc,$ItemLoc->PosBeg,$OptCPos-$ItemLoc->PosBeg);
$MainSrc = substr_replace($MainSrc,'',$ItemLoc->PosBeg,strlen($Item0Src));
if (!isset($ItemLoc->PrmLst[$ItemPrm])) tbs_Html_InsertAttribute($Item0Src,$ItemPrmZ,$ItemLoc->PosEnd-$ItemLoc->PosBeg);
$OptCPos = min($ItemLoc->PosBeg,strlen($MainSrc)-1);
$Select = false;
$Item0Ok = true;
} else {
if (isset($ItemLoc->PrmLst['value'])) {
$ItemValue = $ItemLoc->PrmLst['value'];
} else { // The value of the option is its caption.
$ItemValue = substr($MainSrc,$ItemLoc->PosEnd+1,$OptCPos - $ItemLoc->PosEnd - 1);
$ItemValue = str_replace(chr(9),' ',$ItemValue);
$ItemValue = str_replace(chr(10),' ',$ItemValue);
$ItemValue = str_replace(chr(13),' ',$ItemValue);
$ItemValue = trim($ItemValue);
}
}
$Pos = $OptCPos;
} else {
if ((isset($ItemLoc->PrmLst['name'])) and (isset($ItemLoc->PrmLst['value']))) {
if (strcasecmp($Loc->PrmLst['selected'],$ItemLoc->PrmLst['name'])==0) {
$ItemValue = $ItemLoc->PrmLst['value'];
}
}
$Pos = $ItemLoc->PosEnd;
}
if ($ItemValue!==false) {
// we look if we select the item
$Select = false;
if ($SelArray===false) {
if (strcasecmp($ItemValue,$SelValue)==0) {
if ($SelNbr==0) $Select = true;
}
} else {
if (array_search($ItemValue,$SelArray,false)!==false) $Select = true;
}
// Select the item
if ($Select) {
if (!isset($ItemLoc->PrmLst[$ItemPrm])) {
tbs_Html_InsertAttribute($MainSrc,$ItemPrmZ,$ItemLoc->PosEnd);
$Pos = $Pos + strlen($ItemPrmZ);
if ($IsList and ($ItemLoc->PosBeg<$Item0Beg)) $Item0Beg = $Item0Beg + strlen($ItemPrmZ);
}
$SelNbr++;
}
}
} //--> while ($ItemLoc = ... ) {
if ($IsList) {
// Add the original item if it's not found
if (($SelArray===false) and ($SelNbr==0)) $MainSrc = $MainSrc.$Item0Src;
$NewEnd = $TagO->PosEnd;
} else {
$NewEnd = $Loc->PosBeg;
}
$Txt = substr_replace($Txt,$MainSrc,$TagO->PosEnd+1,$TagC->PosBeg-$TagO->PosEnd-1);
} //--> if ($TagC!==false) {
} //--> if ($TagO!==false) {
}
function tbs_Html_MergeItems(&$Txt, $ValueLst, $PrmLst, $PosBeg)
{
// Select items of a list, or radio or check buttons.
if ($PrmLst['select'] === true) {
// Means set with no value
$IsList = true;
$MainTag = 'SELECT';
$ItemTag = 'OPTION';
$ItemPrm = 'selected';
} else {
$IsList = false;
$MainTag = 'FORM';
$ItemTag = 'INPUT';
$ItemPrm = 'checked';
}
if (is_array($ValueLst)) {
$ValNbr = count($ValueLst);
} else {
$ValueLst = array($ValueLst);
$ValNbr = 1;
}
$AddMissing = ($IsList and isset($PrmLst['addmissing']));
if ($AddMissing) {
$Missing = $ValueLst;
}
if (isset($PrmLst['selbounds'])) {
$MainTag = $PrmLst['selbounds'];
}
$ItemPrmZ = ' ' . $ItemPrm . '="' . $ItemPrm . '"';
$TagO = tbs_Html_FindTag($Txt, $MainTag, true, $PosBeg - 1, false, 1, false);
if ($TagO !== false) {
$TagC = tbs_Html_FindTag($Txt, $MainTag, false, $PosBeg, true, -1, false);
if ($TagC !== false) {
// We get the main block without the main tags
$MainSrc = substr($Txt, $TagO->PosEnd + 1, $TagC->PosBeg - $TagO->PosEnd - 1);
if ($IsList) {
// Information about the item that was used for the TBS field
$Item0Beg = $PosBeg - ($TagO->PosEnd + 1);
$Item0Src = '';
$Item0Ok = false;
}
// Now, we going to scan all of the item tags
$Pos = 0;
$SelNbr = 0;
while ($ItemLoc = tbs_Html_FindTag($MainSrc, $ItemTag, true, $Pos, true, false, true)) {
// we get the value of the item
$ItemValue = false;
if ($IsList) {
// Look for the end of the item
$OptCPos = strpos($MainSrc, '<', $ItemLoc->PosEnd + 1);
if ($OptCPos === false) {
$OptCPos = strlen($MainSrc);
}
if ($Item0Ok === false and $ItemLoc->PosBeg < $Item0Beg and $Item0Beg <= $OptCPos) {
// If it's the original item, we save it and take it off.
if ($OptCPos + 1 < strlen($MainSrc) and $MainSrc[$OptCPos + 1] === '/') {
$OptCPos = strpos($MainSrc, '>', $OptCPos);
if ($OptCPos === false) {
$OptCPos = strlen($MainSrc);
} else {
$OptCPos++;
}
}
$Item0Src = substr($MainSrc, $ItemLoc->PosBeg, $OptCPos - $ItemLoc->PosBeg);
$Item0Beg = $Item0Beg - $ItemLoc->PosBeg;
$MainSrc = substr_replace($MainSrc, '', $ItemLoc->PosBeg, strlen($Item0Src));
if (!isset($ItemLoc->PrmLst[$ItemPrm])) {
tbs_Html_InsertAttribute($Item0Src, $ItemPrmZ, $ItemLoc->PosEnd - $ItemLoc->PosBeg);
}
$OptCPos = min($ItemLoc->PosBeg, strlen($MainSrc) - 1);
$Item0Ok = true;
} else {
if (isset($ItemLoc->PrmLst['value'])) {
$ItemValue = $ItemLoc->PrmLst['value'];
} else {
// The value of the option is its caption.
$ItemValue = substr($MainSrc, $ItemLoc->PosEnd + 1, $OptCPos - $ItemLoc->PosEnd - 1);
$ItemValue = str_replace(chr(9), ' ', $ItemValue);
$ItemValue = str_replace(chr(10), ' ', $ItemValue);
$ItemValue = str_replace(chr(13), ' ', $ItemValue);
$ItemValue = trim($ItemValue);
}
}
$Pos = $OptCPos;
} else {
if (isset($ItemLoc->PrmLst['name']) and isset($ItemLoc->PrmLst['value'])) {
if (strcasecmp($PrmLst['select'], $ItemLoc->PrmLst['name']) == 0) {
$ItemValue = $ItemLoc->PrmLst['value'];
}
}
$Pos = $ItemLoc->PosEnd;
}
// Check the value and select the current item
if ($ItemValue !== false) {
$x = array_search($ItemValue, $ValueLst, false);
if ($x !== false) {
if (!isset($ItemLoc->PrmLst[$ItemPrm])) {
tbs_Html_InsertAttribute($MainSrc, $ItemPrmZ, $ItemLoc->PosEnd);
$Pos = $Pos + strlen($ItemPrmZ);
//if ($IsList and ($ItemLoc->PosBeg<$Item0Beg)) $Item0Beg = $Item0Beg + strlen($ItemPrmZ);
}
if ($AddMissing) {
unset($Missing[$x]);
}
$SelNbr++;
if ($IsList and $SelNbr >= $ValNbr) {
// Optimization: in a list of options, values should be unique.
$AddMissing = false;
break;
}
}
}
}
//--> while ($ItemLoc = ... ) {
if ($AddMissing) {
foreach ($Missing as $x) {
$MainSrc = $MainSrc . substr($Item0Src, 0, $Item0Beg) . $x . substr($Item0Src, $Item0Beg);
}
}
$Txt = substr_replace($Txt, $MainSrc, $TagO->PosEnd + 1, $TagC->PosBeg - $TagO->PosEnd - 1);
}
//--> if ($TagC!==false) {
}
//--> if ($TagO!==false) {
}
