16d15
< $inrecsis=[];
38a38
> $initialrec="";
57d56
< 
61,65d59
<  if ((wasi + 'z').substring(0,1) == ' ' && wasi.indexOf('[') != -1) {
<   iois=iois.replace(/\ \+\ /g, \"+\");
<   iois=iois.replace(/\ \+/g, \"+\");
<   iois=iois.replace(/\+\ /g, \"+\");
<  }
147,355c141
< function unsquarebracket($inversus, $inrecsis, $colsarris, $thistablename, $thistabledata, $willplonkinto) {
<   global $inrecsis;
<   $versus=$inversus;
<    //echo "prez0-0011 " . sizeof($inrecsis) . " " . $inversus . " " . $thistabledata . "<br>";
<   if (substr(($versus . "z"),0,1) == " " && strpos($versus,"[") !== false) {  
<    //echo "z0-0011" . $versus . " " . $thistabledata . "<br>";
<    if ($thistabledata == "") {
<      $madeup="";
<      $mud="";
<      for ($ku=0; $ku<sizeof($colsarris); $ku++) {    
<       if (sizeof($inrecsis) > $ku) {
<    //echo "inrecsis=" . $ku . $inrecsis[$ku] . "<br>";
<       $xpi=explode("max(",$inrecsis[$ku]);
<    //echo "sizeof" . sizeof($xpi) . " " . $inrecsis[$ku] . "<br>";
<       if (sizeof($xpi) > 1 && strpos(explode(",",$xpi[1])[0],"[") === false) {
<       $madeup.=$mud . explode(",",$xpi[1])[0];
<       } else {
<       $madeup.=$mud . "0";
<       }
<       } else {
<       $madeup.=$mud . "0";
<       }
<       $mud=",";
<      }
<    $allrecs=explode("~", $madeup);
<    } else {
<    $allrecs=explode("~", $thistabledata);
<    }
<    $partsoi=explode("[", $versus);
<    for ($ip=1; $ip<sizeof($partsoi); $ip++) {
<     $fprefix="";
<     $fsuffix="";
<     if (strpos(ltrim($partsoi[-1 + $ip]),"(") !== false) {
<      //$fprefix=ltrim($partsoi[-1 + $ip]) . "(";
<      //$fsuffix=explode(" ,",explode("]",$partsoi[$ip])[-1 + sizeof(explode("]",$partsoi[$ip]))])[0]; 
<     }
<     $fldname=explode("]",$partsoi[$ip])[0];    
<     $uparts=explode("_",$fldname);   
<    //echo "' [0_thisf]',' max([-1_thisf]+[0_thisf],1)',' [0_thisf]/[0_prevf]' fvf " . sizeof($partsoi) . " " . $fprefix . $versus . $fsuffix . "<br>";
<     if (sizeof($uparts) == 1) {   // just [col1of7] type of syntax
<    //echo "zz0-0011" . $fprefix . $versus . $fsuffix . "<br>";
<      for ($ku=0; $ku<sizeof($colsarris); $ku++) {
<        if (strtolower($fldname) == strtolower($colsarris[$ku])) {
<          $versus=str_replace("(+","(0+",str_replace("[" . $fldname . "]", $inrecsis[$ku], $versus)); 
<          for ($iip=1; $iip<sizeof($inrecsis); $iip++) {
<             $inrecsis[$iip]=str_replace("(+","(0+",str_replace("[" . $fldname . "]", $inrecsis[$ku], $inrecsis[$iip]));  
<          }
<    //echo "2fvf " . $fprefix . $versus . $fsuffix . "<br>";
<    if (is_numeric(str_replace(' ','',('' . $inrecsis[$ku]))) && strpos($versus,"[") === false) {
<         eval("\$nournum " . "=0 + " . $fprefix . $versus . $fsuffix . ";");    
<         $versus = "" . $nournum;    
<    }        
<        }
<      }
<     } else if (is_numeric($uparts[0])) {   // record number referencing syntaxes Vs those [!+=_col1of7] sum of others types of syntaxes in next else if level down
<    //echo "zzzz0-0011" . $versus . " " . $uparts[0] . "<br>";
< 
<      if ($uparts[0] <= 0) {   // [0_col1of7] is last value of col1of7 column,  [-1_col1of7] is second last value of col_1of7 column 
<    //echo "zero-zzzz0-0011" . $versus . "<br>";
<       for ($ku=0; $ku<sizeof($colsarris); $ku++) {
<        if (strtolower($fldname) == strtolower($uparts[0] . "_" . $colsarris[$ku])) {
<    //echo "azero-zzzz0-0011" . $thistabledata . " *" . ($uparts[0] - 1 + sizeof($allrecs)) . "* " . $versus . " ku=" . $ku . " " . $allrecs[max(0,($uparts[0] - 1 + sizeof($allrecs)))] . "<br>";
<          $versus=str_replace("(+","(0+",str_replace("`","",str_replace("+`","+0`",
<          str_replace("+)","+0)",
<          str_replace("[" . $fldname . "]", 
<             explode(",",$allrecs[max(0,($uparts[0] - 1 + sizeof($allrecs)))])[$ku], 
<             $versus . "`")))));
<          for ($iip=1; $iip<sizeof($inrecsis); $iip++) {
<             $inrecsis[$iip]=str_replace("(+","(0+",str_replace("`","",str_replace("+`","+0`",str_replace("+)","+0)",str_replace("[" . $fldname . "]", explode(",",$allrecs[max(0,($uparts[0] - 1 + sizeof($allrecs)))])[$ku], $inrecsis[$iip] . "`")))));  
<          }
<    //echo "3fvf " . $fprefix . $versus . $fsuffix . "<br>";
<    //echo "bzero-zzzz0-0011" . $versus . "<br>";
<    if (is_numeric(str_replace(' ','',('' . explode(",",$allrecs[max(0,($uparts[0] - 1 + sizeof($allrecs)))])[$ku]))) && strpos($versus,"[") === false) {
<         eval("\$nournum " . "=0 + " . $fprefix . $versus . $fsuffix . ";");    
<         $versus = "" . $nournum;    
<    //echo "bbzero-zzzz0-0011" . $versus . "<br>";
<    } else if (strpos($versus,"[") === false) {
<         eval("\$nournum " . "=0 + " . $fprefix . $versus . $fsuffix . ";");    
<         $versus = "" . $nournum;    
<    //echo "bbbzero-zzzz0-0011" . $versus . "<br>";
<    } //else {
<    //echo "bbbbzero-zzzz0-0011" . $versus . "<br>";
<    //}        
<       }
<      }   
<      } else {    // [1_col1of7] is first value of col1of7 column
<    //echo "0-0011" . $versus . "<br>";
<       for ($ku=0; $ku<sizeof($colsarris); $ku++) {
<        if (strtolower($fldname) == strtolower($uparts[0] . "_" . $colsarris[$ku])) {
<          $versus=str_replace("(+","(0+",str_replace("[" . $fldname . "]", explode(",",$allrecs[max((-1 + sizeof($uparts)),$uparts[0])])[$ku], $versus));
<          for ($iip=1; $iip<sizeof($inrecsis); $iip++) {
<             $inrecsis[$iip]=str_replace("(+","(0+",str_replace("[" . $fldname . "]", explode(",",$allrecs[max((-1 + sizeof($uparts)),$uparts[0])])[$ku], $inrecsis[$iip]));  
<          }
<    //echo "4fvf " . $fprefix . $versus . $fsuffix . "<br>";
<    //echo "00-0011" . $versus . "<br>";
<    if (is_numeric(str_replace(' ','',('' . explode(",",$allrecs[max((-1 + sizeof($uparts)),$uparts[0])])[$ku]))) && strpos($versus,"[") === false) {
<         eval("\$nournum " . "=0 + " . $fprefix . $versus . $fsuffix . ";");    
<         $versus = "" . $nournum;    
<    //echo "000-0011" . $versus . "<br>";
<    }        
<       }
<      }  
<      }
< 
<     } else if ($uparts[0] == "!=" || $uparts[0] == "!+=" || $uparts[0] == "!+" || $uparts[0] == "!-=" || $uparts[0] == "!-" || $uparts[0] == "!*=" || $uparts[0] == "!*" || $uparts[0] == "!/=" || $uparts[0] == "!/") {
<      $paredf=str_replace("]","",str_replace($uparts[0],"[" . $uparts[0] . "_","",$versus));
<      $uparts[0]=str_replace("!=","!+=",$uparts[0]);
<    //echo "zzz " . $versus . "<br>";
<      if (strpos($uparts[0],"=") !== false) {
<      for ($xku=0; $xku<sizeof($allrecs); $xku++) {
<      $xbits=explode(",",$allrecs[$xku]);
<      for ($ku=0; $ku<sizeof($colsarris); $ku++) {
<        if (strtolower($paredf) == strtolower($colsarris[$ku])) {
<           if ($ku == 0 && is_numeric($xbits[$ku]) && is_numeric($inrecsis[$ku])) {
<           $sum=$inrecsis[$ku];   
<           } else if ($ku == 0 && is_numeric($xbits[$ku])) {
<           $sum=0;
<           } else if ($ku == 0) {
<           $sum="";
<           }
<    //echo "' min(0,[0_thisf]+[0_prevf])',' max(1,[0_prevf]+[0_thisf])',' [0_thisf]/[0_prevf]'     zzzz " . $versus . " " . $xbits[$ku] . "<br>";
<           if (is_numeric($xbits[$ku]) && substr($uparts[0],0,2) == "!+") {
<             if (is_numeric($sum)) $sum+=$xbits[$ku];
<           } else if (is_numeric($xbits[$ku]) && substr($uparts[0],0,2) == "!-") {
<             if (is_numeric($sum)) $sum-=$xbits[$ku];
<           } else if (is_numeric($xbits[$ku]) && substr($uparts[0],0,2) == "!*") {
<             if (is_numeric($sum)) $sum*=$xbits[$ku];
<           } else if (is_numeric($xbits[$ku]) && substr($uparts[0],0,2) == "!/") {
<             if (is_numeric($sum)) $sum/=$xbits[$ku];
<           } else if (!is_numeric($xbits[$ku]) && substr($uparts[0],0,2) == "!+") {
<             $sum=("" . $sum) . ("" . $xbits[$ku]);
<           } else if (!is_numeric($xbits[$ku]) && substr($uparts[0],0,2) == "!-") {
<             $sum=str_replace(("" . $xbits[$ku]),"",("" . $sum));
<           } else if (!is_numeric($xbits[$ku]) && substr($uparts[0],0,2) == "!*") {
<             $sum=("" . $sum) . "\n" . ("" . $xbits[$ku]);
<           } else if (!is_numeric($xbits[$ku]) && substr($uparts[0],0,2) == "!/") {
<             $forsum="";
<             for ($iip=0; $iip<strlen(("" . $sum)); $iip++) {
<               if (strpos($xbits[$ku], substr(("" . $sum),$iip,1)) !== false) {
<                $forsum.=substr(("" . $sum),$iip,1);
<               }
<             }
<             $sum=$forsum;
<           }
<    //echo "zzzzz " . $sum . "<br>";
<        }
<      }
<      }
<      
<      } else {
<      for ($ku=0; $ku<sizeof($colsarris); $ku++) {
<        if (strtolower($willplonkinto) == strtolower($uparts[0] . "_" . $colsarris[$ku])) {
<          if (is_numeric($inrecsis[$ku])) {    
<           //if (strpos($uparts[0],"=") === false) {
<            $sum=0;
<           //} else {
<           // $sum=$inrecsis[$ku];
<           //}
<          } else {
<           //if (strpos($uparts[0],"=") === false) {
<            $sum="";
<           //} else {
<           // $sum="" . $inrecsis[$ku];
<           //}
<          }
<        }
<      }
<      for ($ku=0; $ku<sizeof($colsarris); $ku++) {
<        if (strtolower($willplonkinto) != strtolower($colsarris[$ku])) {
<    //echo "zzzz " . $versus . " " . $inrecsis[$ku] . "<br>";
<           if (is_numeric($inrecsis[$ku]) && substr($uparts[0],0,2) == "!+") {
<             if (is_numeric($sum)) $sum+=$inrecsis[$ku];
<           } else if (is_numeric($inrecsis[$ku]) && substr($uparts[0],0,2) == "!-") {
<             if (is_numeric($sum)) $sum-=$inrecsis[$ku];
<           } else if (is_numeric($inrecsis[$ku]) && substr($uparts[0],0,2) == "!*") {
<             if (is_numeric($sum)) $sum*=$inrecsis[$ku];
<           } else if (is_numeric($inrecsis[$ku]) && substr($uparts[0],0,2) == "!/") {
<             if (is_numeric($sum)) $sum/=$inrecsis[$ku];
<           } else if (!is_numeric($inrecsis[$ku]) && substr($uparts[0],0,2) == "!+") {
<             $sum=("" . $sum) . ("" . $inrecsis[$ku]);
<           } else if (!is_numeric($inrecsis[$ku]) && substr($uparts[0],0,2) == "!-") {
<             $sum=str_replace(("" . $inrecsis[$ku]),"",("" . $sum));
<           } else if (!is_numeric($inrecsis[$ku]) && substr($uparts[0],0,2) == "!*") {
<             $sum=("" . $sum) . "\n" . ("" . $inrecsis[$ku]);
<           } else if (!is_numeric($inrecsis[$ku]) && substr($uparts[0],0,2) == "!/") {
<             $forsum="";
<             for ($iip=0; $iip<strlen(("" . $sum)); $iip++) {
<               if (strpos($inrecsis[$ku], substr(("" . $sum),$iip,1)) !== false) {
<                $forsum.=substr(("" . $sum),$iip,1);
<               }
<             }
<             $sum=$forsum;
<           }
<    //echo "zzzzz " . $sum . "<br>";
<        }
<      }
<      }
<     }
<    }   
<    if (is_numeric(str_replace(' ','',('' . $versus)))) {
<         eval("\$nournum " . "=0 + " . $versus . ";");    
<         $versus = "" . $nournum;    
<    }        
<   }
<   return $versus;
< }
< 
< function lastmapping($proposed, $beforebits, $ndel, $inrecis, $thiscollist, $thistablename, $thistabledata) {
<   global $inrecsis;
---
> function lastmapping($proposed, $beforebits, $ndel, $inrecis, $thiscollist) {
358,359c144
<   //echo "prepre0" . $inrecis . " and " . $thistabledata . "<br>";
<   $inrecsis=explode(" ,", $inrecis);
---
>   $inrecsis=explode(",", $inrecis);
364,423d148
<   $jnterim=$beforebits . $ndel;
<   $jndelim="";
<   for ($ip=0; $ip<sizeof($inrecsis); $ip++) {
<    $inrecsis[$ip]=str_replace("/0","",$inrecsis[$ip]);
<    //echo "qq00011" . " " . substr($inrecsis[$ip],0,1) . " " . $inrecsis[$ip] . " ~~~" . $versus . "<br>";
<    if (substr(($inrecsis[$ip] . "z"),0,1) == " " && strpos($inrecsis[$ip],"[") !== false) {
<      $versus=explode(" ,", $inrecis)[$ip];
<      $vsversus=$versus; 
<   //echo "00" . $proposed . " vs " . $thistabledata . "<br>";
<      if (substr(($versus . "z"),0,1) == " " && strpos($versus,"[") !== false) {
<    //echo "0011" . $versus . "<br>";
<         $versus=unsquarebracket($versus,$inrecsis,$colsarris,$thistablename,$thistabledata,$colsarris[$ip]);
<    //echo "00011" . $versus . "<br>";
<         eval("\$ournum " . "=" . " \"$versus\";");         
<         $jnterim.=$jndelim . $ournum;
<         $jndelim=",";
<      } else {
<       $jnterim.=$jndelim . $inrecsis[$ip];   
<       $jndelim=",";
<      }
<    } else if (strpos(ltrim($inrecsis[$ip]),"(") !== false && strpos(substr((ltrim($inrecsis[$ip]) . "x"),1),"(") !== false) {      
<      eval("\$ournum " . "=" . " $inrecsis[$ip];");         
<      $jnterim.=$jndelim . $ournum;   
<      $jndelim=",";
<    } else if (strpos(substr($inrecsis[$ip],0,1),"+") !== false && is_numeric(str_replace(" ","",str_replace("+","",$inrecsis[$ip]))) && strpos(substr(($inrecsis[$ip] . "x"),1),"+") !== false) {      
<      $inrecsis[$ip]=str_replace("/0","",str_replace(" ","+",substr($inrecsis[$ip],1)));
<      //echo "q+00011" . " " . $inrecsis[$ip] . " ~~~" . $versus . "<br>";
<      eval("\$ournum " . "=" . " $inrecsis[$ip];");         
<      $jnterim.=$jndelim . $ournum;   
<      $jndelim=",";
<    } else if (strpos($inrecsis[$ip],"+") !== false && is_numeric(str_replace(" ","",str_replace("+","",$inrecsis[$ip]))) && strpos(substr(($inrecsis[$ip] . "x"),1),"+") !== false) {      
<      //echo "preq00011" . " " . $inrecsis[$ip] . "  ~~~" . $versus . "<br>";
<      $inrecsis[$ip]=str_replace("/0","",str_replace("++","+0+",substr($inrecsis[$ip],0,1) . str_replace(" ","+",substr($inrecsis[$ip],1))));
<      //echo "q00011" . " " . $inrecsis[$ip] . "  ~~~" . $versus . "<br>";
<      eval("\$ournum " . "=" . " $inrecsis[$ip];");         
<      $jnterim.=$jndelim . $ournum;   
<      $jndelim=",";
<      //echo "' [0_thisf]',' max([-1_thisf]+[0_thisf],1)',' max([-1_thisf]+[0_thisf],1)/[0_thisf]'   qw00011" . " " . $jnterim . "<br>";
<    } else if (strpos($inrecsis[$ip],"-") !== false && is_numeric(str_replace(" ","",str_replace("-","",$inrecsis[$ip]))) && strpos(substr(($inrecsis[$ip] . "x"),1),"-") !== false) {      
<      eval("\$ournum " . "=" . " $inrecsis[$ip];");         
<      $jnterim.=$jndelim . $ournum;   
<      $jndelim=",";
<    } else if (strpos($inrecsis[$ip],"*") !== false && is_numeric(str_replace(" ","",str_replace("*","",$inrecsis[$ip]))) && strpos(substr(($inrecsis[$ip] . "x"),1),"*") !== false) {      
<      eval("\$ournum " . "=" . " $inrecsis[$ip];");         
<      $jnterim.=$jndelim . $ournum;   
<      $jndelim=",";
<    } else if (strpos($inrecsis[$ip],"/") !== false && is_numeric(str_replace(" ","",str_replace("/","",$inrecsis[$ip]))) && strpos(substr(($inrecsis[$ip] . "x"),1),"/") !== false) {      
<      eval("\$ournum " . "=" . " $inrecsis[$ip];");         
<      $jnterim.=$jndelim . $ournum;   
<      $jndelim=",";
<    } else if (strpos($inrecsis[$ip],"%") !== false && is_numeric(str_replace(" ","",str_replace("%","",$inrecsis[$ip]))) && strpos(substr(($inrecsis[$ip] . "x"),1),"%") !== false) {      
<      eval("\$ournum " . "=" . " $inrecsis[$ip];");         
<      $jnterim.=$jndelim . $ournum;   
<      $jndelim=",";
<    } else {      
<      $jnterim.=$jndelim . $inrecsis[$ip];   
<      $jndelim=",";
<    } 
<   }     
<   if ($jnterim != ($beforebits . $ndel)) $interim=$jnterim;   
425c150
<   //echo "0" . $proposed . " vs " . $interim . "<br>";
---
>    //echo "0" . $proposed . "<br>";
428c153
<    $versus=str_replace("(+","(0+",str_replace("] ","]+",explode(",", $inrecis)[-1 + sizeof(explode(",", $inrecis))]));
---
>    $versus=explode(",", $inrecis)[-1 + sizeof(explode(",", $inrecis))];
432d156
< 
447c171
<   //echo $isnum . "<br>";
---
>   // echo $isnum . "<br>";
484,485c208
< function within($cwheresset, $inrecis, $inrecsis, $colsarris, $thistablename, $thistabledata) {
<   global $inrecsis;
---
> function within($cwheresset, $inrecis, $inrecsis, $colsarris) {
496,500c219
<     } 
<     $vsversus=$versus; 
<     if (substr(($versus . "z"),0,1) == " " && strpos($versus,"[") !== false) {
<      $versus=unsquarebracket($versus,$inrecsis,$colsarris,$thistablename,$thistabledata,$fldname);
<     }
---
>     }  
506,509c225
<         if ($vsversus != $versus) {
<         eval("\$ournum " . "=" . " \"$versus\";");        
<         $interim.=$idel . $ournum;
<         } else if (is_numeric($inrecsis[$ku]) && in_array($huhseq[0],$op) && is_numeric($huhseq[1]) && $huhseq[1] != "" && strpos($versus,"=") !== false && substr(($versus . "z"),0,1) == " ") {
---
>         if (is_numeric($inrecsis[$ku]) && in_array($huhseq[0],$op) && is_numeric($huhseq[1]) && $huhseq[1] != "" && strpos($versus,"=") !== false && substr(($versus . "z"),0,1) == " ") {
536,537c252,253
< function isrec_relevant($inrecis, $colarris, $arrayindex, $uptonow, $thistablename, $thistabledata) {
<   global $inrecsis,$initialrec,$hshr,$hrvs,$bitsd,$cwhereset,$cwherefld,$cwhereeq,$cwhereval,$cwhereao,$cwheretrues,$cwheredelim,$cwheretrue,$deletenow,$updatenow,$shownow;
---
> function isrec_relevant($inrecis, $colarris, $arrayindex, $uptonow) {
>   global $initialrec,$hshr,$hrvs,$bitsd,$cwhereset,$cwherefld,$cwhereeq,$cwhereval,$cwhereao,$cwheretrues,$cwheredelim,$cwheretrue,$deletenow,$updatenow,$shownow;
629c345
<     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris, $thistablename, $thistabledata);
---
>     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris);
637c353
<     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris, $thistablename, $thistabledata);
---
>     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris);
645c361
<     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris, $thistablename, $thistabledata);
---
>     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris);
663c379
<     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris, $thistablename, $thistabledata);
---
>     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris);
671c387
<     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris, $thistablename, $thistabledata);
---
>     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris);
679c395
<     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris, $thistablename, $thistabledata);
---
>     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris);
698c414
<     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris, $thistablename, $thistabledata);
---
>     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris);
706c422
<     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris, $thistablename, $thistabledata);
---
>     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris);
714c430
<     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris, $thistablename, $thistabledata);
---
>     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris);
732c448
<     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris, $thistablename, $thistabledata);
---
>     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris);
740c456
<     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris, $thistablename, $thistabledata);
---
>     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris);
748c464
<     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris, $thistablename, $thistabledata);
---
>     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris);
768c484
<     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris, $thistablename, $thistabledata);
---
>     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris);
776c492
<     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris, $thistablename, $thistabledata);
---
>     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris);
784c500
<     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris, $thistablename, $thistabledata);
---
>     $outrecis=within($cwheresset, $inrecis, $inrecsis, $colsarris);
844d559
< $bits3="";
847,853c562
<   if (strpos(urldecode($_POST['ddl']),"' ") !== false) {
<   $ddl_statement=str_replace("! =_","!+=_",str_replace("! _","!+_",str_replace("' char(43) '","+",      str_replace("] ","]+",str_replace("' =","'+=",str_replace("'  '","'++'",str_replace("'  =","' +=",str_replace("'   '","' ++'",urldecode($_POST['ddl'])))))))));  
< //echo $ddl_statement . "<br>";
<   } else {
<   $ddl_statement=str_replace("! =_","!+=_",str_replace("! _","!+_",str_replace("' char(43) '","+",      str_replace("' =","'+=",str_replace("'  '","'++'",str_replace("'  =","' +=",str_replace("'   '","' ++'",urldecode($_POST['ddl']))))))));  
< //echo $ddl_statement . " huh<br>";
<   }
---
>   $ddl_statement=str_replace("' =","'+=",str_replace("'  '","'++'",str_replace("'  =","' +=",str_replace("'   '","' ++'",urldecode($_POST['ddl'])))));  
856c565
<   $ddlb=explode(" (", $ddl_statement);
---
>   $ddlb=explode("(", $ddl_statement);
858c567
<     $ddl_table=explode(" (",explode(",",explode(";",explode(" ",$ddls[1])[0])[0])[0])[0]; 
---
>     $ddl_table=explode("(",explode(",",explode(";",explode(" ",$ddls[1])[0])[0])[0])[0]; 
860c569
<     $ddl_owner=str_replace("","",str_replace("https:","",$hshr));
---
>     $ddl_owner=str_replace("http:","",str_replace("https:","",$hshr));
869d577
<           $bits3=$bits[3];
886,887c594
<       $bits=explode("|",$dbrecs[$i]);    
<       $bits3=$bits[3];   
---
>       $bits=explode("|",$dbrecs[$i]);       
904c611
<        $hdata.=$hdelim . "[~" . explode(",",$hdatas[$ih])[-2 + sizeof(explode(",",$hdatas[$ih]))] . "~," . explode(",",$hdatas[$ih])[-1 + sizeof(explode(",",$hdatas[$ih]))] . "]";    
---
>        $hdata.=$hdelim . "[~" . explode(",",$hdatas[$ih])[0] . "~," . explode(",",$hdatas[$ih])[1] . "]";    
910c617
<       if (str_replace("\n","",$bits[3]) != "") $formbits="<form target='myhiframe' action='//www.rjmprogramming.com.au/PHP/PieChart/pie_chart.php' method='POST'>
---
>       if (str_replace("\n","",$bits[3]) != "") $formbits="<form target='myhiframe' action='http://www.rjmprogramming.com.au/PHP/PieChart/pie_chart.php' method='POST'>
917c624
< <iframe style=width:100%;height:600px; name=myhiframe id=myhiframe src='//www.rjmprogramming.com.au/PHP/PieChart/pie_chart.php' title='Pie Chart'></iframe>";
---
> <iframe style=width:100%;height:600px; name=myhiframe id=myhiframe src='http://www.rjmprogramming.com.au/PHP/PieChart/pie_chart.php' title='Pie Chart'></iframe>";
923,925c630,632
<         if ((sizeof($ddlis) > 1) && strpos(str_replace("","",str_replace("https:","",$hshr)),$hrvs) !== false) {   
<          $xddl_table=explode(" (",explode(",",explode(";",explode(" ",$ddlis[1])[0])[0])[0])[0];
<          $xddl_owner=str_replace("","",str_replace("https:","",$hshr));     
---
>         if ((sizeof($ddlis) > 1) && strpos(str_replace("http:","",str_replace("https:","",$hshr)),$hrvs) !== false) {   
>          $xddl_table=explode("(",explode(",",explode(";",explode(" ",$ddlis[1])[0])[0])[0])[0];
>          $xddl_owner=str_replace("http:","",str_replace("https:","",$hshr));     
928,931c635,636
<   //echo "preinitialrec=" . $ddlb[-1 + sizeof($ddlb)] . "<br>";
<           $initialrec=str_replace("`","",str_replace("`'","",str_replace("'`","",("`" . str_replace("\n","",str_replace("'","",str_replace("','"," ,",explode(");",$ddlb[-1 + sizeof($ddlb)])[0])) . "`")))));    
<   //echo "initialrec=" . $initialrec . "<br>";
<           $ddlis=explode(" (", " ");   
---
>           $initialrec=str_replace("`","",str_replace("`'","",str_replace("'`","",str_replace("','",",",("`" . str_replace("\n","",str_replace("'","",explode(")",$ddlb[-1 + sizeof($ddlb)])[0])) . "`")))));    
>           $ddlis=explode("(", " ");   
940,941c645
<   //echo "q00" . " " . $bits3 . "<br>";
<         file_put_contents($fis, rtrim($datais) . "\n" . $ddl_table . "\n|" . str_replace("\n","",str_replace("'","",explode(")",$ddlb[1])[0])) . "\n|" . $ddl_owner . "^" . $_SERVER['REMOTE_ADDR'] . ";\n|" . lastmapping("",rtrim($dbrecs[$i]),$ndelim,$initialrec,str_replace("\n","",str_replace("'","",explode(")",$ddlb[1])[0]))  ,str_replace("\n","",$bits[1]) ,str_replace("\n","",$bits3)    ) . "\n`"); 
---
>         file_put_contents($fis, rtrim($datais) . "\n" . $ddl_table . "\n|" . str_replace("\n","",str_replace("'","",explode(")",$ddlb[1])[0])) . "\n|" . $ddl_owner . "^" . $_SERVER['REMOTE_ADDR'] . ";\n|" . lastmapping("",rtrim($dbrecs[$i]),$ndelim,$initialrec,str_replace("\n","",str_replace("'","",explode(")",$ddlb[1])[0]))) . "\n`"); 
945,946c649
<   //echo "qq00" . " " . $bits3 . "<br>";
<         file_put_contents($fis, rtrim($datais) . "\n" . $ddl_table . "\n|" . str_replace("\n","",str_replace("'","",explode(")",$ddlb[1])[0])) . "\n|" . $ddl_owner . "^" . $_SERVER['REMOTE_ADDR'] . ";" . urldecode($_POST['listddl']) . "\n|" . lastmapping("",rtrim($dbrecs[$i]),$ndelim,$initialrec,str_replace("\n","",str_replace("'","",explode(")",$ddlb[1])[0]))  ,str_replace("\n","",$bits[1]) ,str_replace("\n","",$bits3)    ) . "\n`"); 
---
>         file_put_contents($fis, rtrim($datais) . "\n" . $ddl_table . "\n|" . str_replace("\n","",str_replace("'","",explode(")",$ddlb[1])[0])) . "\n|" . $ddl_owner . "^" . $_SERVER['REMOTE_ADDR'] . ";" . urldecode($_POST['listddl']) . "\n|" . lastmapping("",rtrim($dbrecs[$i]),$ndelim,$initialrec,str_replace("\n","",str_replace("'","",explode(")",$ddlb[1])[0]))) . "\n`"); 
951,952c654
<   //echo "qqq00" . " " . $bits3 . " "; // . lastmapping("",rtrim($dbrecs[$i]),$ndelim,$initialrec,str_replace("\n","",str_replace("'","",explode(")",$ddlb[1])[0]))  ,str_replace("\n","",$bits[1]) ,str_replace("\n","",$bits3)    ) . "<br>";
<         file_put_contents($fis, rtrim($datais) . "\n" . $ddl_table . "\n|" . str_replace("\n","",str_replace("'","",explode(")",$ddlb[1])[0])) . "\n|" . $ddl_owner . "^" . $_SERVER['REMOTE_ADDR'] . ";\n|" . lastmapping("",rtrim($dbrecs[$i]),$ndelim,$initialrec,str_replace("\n","",str_replace("'","",explode(")",$ddlb[1])[0]))  ,str_replace("\n","",$bits[1]) ,str_replace("\n","",$bits3)    ) . "\n`"); 
---
>         file_put_contents($fis, rtrim($datais) . "\n" . $ddl_table . "\n|" . str_replace("\n","",str_replace("'","",explode(")",$ddlb[1])[0])) . "\n|" . $ddl_owner . "^" . $_SERVER['REMOTE_ADDR'] . ";\n|" . lastmapping("",rtrim($dbrecs[$i]),$ndelim,$initialrec,str_replace("\n","",str_replace("'","",explode(")",$ddlb[1])[0]))) . "\n`"); 
976c678
<        $hdata.=$hdelim . "[~" . explode(",",$hdatas[$ih])[-2 + sizeof(explode(",",$hdatas[$ih]))] . "~," . explode(",",$hdatas[$ih])[-1 + sizeof(explode(",",$hdatas[$ih]))] . "]";    
---
>        $hdata.=$hdelim . "[~" . explode(",",$hdatas[$ih])[0] . "~," . explode(",",$hdatas[$ih])[1] . "]";    
982c684
<       if (str_replace("\n","",$bits[3]) != "") $formbits="<form target='myhiframe' action='//www.rjmprogramming.com.au/PHP/PieChart/pie_chart.php' method='POST'>
---
>       if (str_replace("\n","",$bits[3]) != "") $formbits="<form target='myhiframe' action='http://www.rjmprogramming.com.au/PHP/PieChart/pie_chart.php' method='POST'>
989c691
< <iframe style=width:100%;height:600px; name=myhiframe id=myhiframe src='//www.rjmprogramming.com.au/PHP/PieChart/pie_chart.php' title='Pie Chart'></iframe>";
---
> <iframe style=width:100%;height:600px; name=myhiframe id=myhiframe src='http://www.rjmprogramming.com.au/PHP/PieChart/pie_chart.php' title='Pie Chart'></iframe>";
999,1000c701,702
<   if ((sizeof($ddlis) > 1) && strpos(str_replace("","",str_replace("https:","",$hshr)),$hrvs) !== false) { 
<     $ddl_table=explode(" (",explode(",",explode(";",explode(" ",$ddlis[1])[0])[0])[0])[0];
---
>   if ((sizeof($ddlis) > 1) && strpos(str_replace("http:","",str_replace("https:","",$hshr)),$hrvs) !== false) { 
>     $ddl_table=explode("(",explode(",",explode(";",explode(" ",$ddlis[1])[0])[0])[0])[0];
1002c704
<     $ddl_owner=str_replace("","",str_replace("https:","",$hshr));
---
>     $ddl_owner=str_replace("http:","",str_replace("https:","",$hshr));
1008,1011c710
<         if (str_replace("\n","",$bits[0]) == $ddl_table) {
<            $ddl_exists=true;
<            $bits3=$bits[3];
<         }
---
>         if (str_replace("\n","",$bits[0]) == $ddl_table) $ddl_exists=true;
1035c734
<        $hdata.=$hdelim . "[~" . explode(",",$hdatas[$ih])[-2 + sizeof(explode(",",$hdatas[$ih]))] . "~," . explode(",",$hdatas[$ih])[-1 + sizeof(explode(",",$hdatas[$ih]))] . "]";    
---
>        $hdata.=$hdelim . "[~" . explode(",",$hdatas[$ih])[0] . "~," . explode(",",$hdatas[$ih])[1] . "]";    
1041c740
<       if (str_replace("\n","",$bits[3]) != "") $formbits="<form target='myhiframe' action='//www.rjmprogramming.com.au/PHP/PieChart/pie_chart.php' method='POST'>
---
>       if (str_replace("\n","",$bits[3]) != "") $formbits="<form target='myhiframe' action='http://www.rjmprogramming.com.au/PHP/PieChart/pie_chart.php' method='POST'>
1048c747
< <iframe style=width:100%;height:600px; name=myhiframe id=myhiframe src='//www.rjmprogramming.com.au/PHP/PieChart/pie_chart.php' title='Pie Chart'></iframe>";
---
> <iframe style=width:100%;height:600px; name=myhiframe id=myhiframe src='http://www.rjmprogramming.com.au/PHP/PieChart/pie_chart.php' title='Pie Chart'></iframe>";
1052,1054c751,752
<         $initialrec=str_replace("`","",str_replace("`'","",str_replace("'`","",("`" . str_replace("\n","",str_replace("'","",str_replace("','"," ,",explode(");",$ddlb[-1 + sizeof($ddlb)])[0])) . "`")))));    
<   //echo "initialrEc=" . $initialrec . "<br>";    
<   }
---
>         $initialrec=str_replace("`","",str_replace("`'","",str_replace("'`","",str_replace("','",",",("`" . str_replace("\n","",str_replace("'","",explode(")",$ddlb[-1 + sizeof($ddlb)])[0])) . "`")))));    
>     }
1068,1069c766,767
<         $onlyallow=str_replace("","",str_replace("https:","",explode("^", $bits[2])[0]));
<         if (explode("?",explode("#",str_replace("","",str_replace("https:","",$hshr)))[0])[0] != explode("?",explode("#",$onlyallow)[0])[0]) {
---
>         $onlyallow=str_replace("http:","",str_replace("https:","",explode("^", $bits[2])[0]));
>         if (explode("?",explode("#",str_replace("http:","",str_replace("https:","",$hshr)))[0])[0] != explode("?",explode("#",$onlyallow)[0])[0]) {
1074,1075c772
<   //echo "qqqq00" . " " . $bits[3] . " " . lastmapping(rtrim($dbrecs[$i]) . $ndelim . $initialrec,rtrim($dbrecs[$i]),$ndelim,$initialrec,str_replace("\n","",$bits[1])  ,str_replace("\n","",$bits[1]) ,str_replace("\n","",$bits[3])    ) . "<br>";
<           $newdatais=str_replace(rtrim($dbrecs[$i]), lastmapping(rtrim($dbrecs[$i]) . $ndelim . $initialrec,rtrim($dbrecs[$i]),$ndelim,$initialrec,str_replace("\n","",$bits[1])  ,str_replace("\n","",$bits[1]) ,str_replace("\n","",$bits[3])    ), $datais);
---
>           $newdatais=str_replace(rtrim($dbrecs[$i]), lastmapping(rtrim($dbrecs[$i]) . $ndelim . $initialrec,rtrim($dbrecs[$i]),$ndelim,$initialrec,str_replace("\n","",$bits[1])), $datais);
1084d780
<     $bits3=$bits[3];
1101c797
<        $hdata.=$hdelim . "[~" . explode(",",$hdatas[$ih])[-2 + sizeof(explode(",",$hdatas[$ih]))] . "~," . explode(",",$hdatas[$ih])[-1 + sizeof(explode(",",$hdatas[$ih]))] . "]";    
---
>        $hdata.=$hdelim . "[~" . explode(",",$hdatas[$ih])[0] . "~," . explode(",",$hdatas[$ih])[1] . "]";    
1107c803
<       if (str_replace("\n","",$bits[3]) != "") $formbits="<form target='myhiframe' action='//www.rjmprogramming.com.au/PHP/PieChart/pie_chart.php' method='POST'>
---
>       if (str_replace("\n","",$bits[3]) != "") $formbits="<form target='myhiframe' action='http://www.rjmprogramming.com.au/PHP/PieChart/pie_chart.php' method='POST'>
1114c810
< <iframe style=width:100%;height:600px; name=myhiframe id=myhiframe src='//www.rjmprogramming.com.au/PHP/PieChart/pie_chart.php' title='Pie Chart'></iframe>";
---
> <iframe style=width:100%;height:600px; name=myhiframe id=myhiframe src='http://www.rjmprogramming.com.au/PHP/PieChart/pie_chart.php' title='Pie Chart'></iframe>";
1149c845
<        $hdata.=$hdelim . "[~" . explode(",",$hdatas[$ih])[-2 + sizeof(explode(",",$hdatas[$ih]))] . "~," . explode(",",$hdatas[$ih])[-1 + sizeof(explode(",",$hdatas[$ih]))] . "]";    
---
>        $hdata.=$hdelim . "[~" . explode(",",$hdatas[$ih])[0] . "~," . explode(",",$hdatas[$ih])[1] . "]";    
1155c851
<       if (str_replace("\n","",$bits[3]) != "") $formbits="<form target='myhiframe' action='//www.rjmprogramming.com.au/PHP/PieChart/pie_chart.php' method='POST'>
---
>       if (str_replace("\n","",$bits[3]) != "") $formbits="<form target='myhiframe' action='http://www.rjmprogramming.com.au/PHP/PieChart/pie_chart.php' method='POST'>
1162c858
< <iframe style=width:100%;height:600px; name=myhiframe id=myhiframe src='//www.rjmprogramming.com.au/PHP/PieChart/pie_chart.php' title='Pie Chart'></iframe>";
---
> <iframe style=width:100%;height:600px; name=myhiframe id=myhiframe src='http://www.rjmprogramming.com.au/PHP/PieChart/pie_chart.php' title='Pie Chart'></iframe>";
1277d972
<     $bits3=$bits[3];
1294c989
<        $hdata.=$hdelim . "[~" . explode(",",$hdatas[$ih])[-2 + sizeof(explode(",",$hdatas[$ih]))] . "~," . explode(",",$hdatas[$ih])[-1 + sizeof(explode(",",$hdatas[$ih]))] . "]";    
---
>        $hdata.=$hdelim . "[~" . explode(",",$hdatas[$ih])[0] . "~," . explode(",",$hdatas[$ih])[1] . "]";    
1300c995
<       if (str_replace("\n","",$bits[3]) != "") $formbits="<form target='myhiframe' action='//www.rjmprogramming.com.au/PHP/PieChart/pie_chart.php' method='POST'>
---
>       if (str_replace("\n","",$bits[3]) != "") $formbits="<form target='myhiframe' action='http://www.rjmprogramming.com.au/PHP/PieChart/pie_chart.php' method='POST'>
1307c1002
< <iframe style=width:100%;height:600px; name=myhiframe id=myhiframe src='//www.rjmprogramming.com.au/PHP/PieChart/pie_chart.php' title='Pie Chart'></iframe>";
---
> <iframe style=width:100%;height:600px; name=myhiframe id=myhiframe src='http://www.rjmprogramming.com.au/PHP/PieChart/pie_chart.php' title='Pie Chart'></iframe>";
1318,1319c1013
<             if (rtrim($bits[3]) != "") {  
<             
---
>             if (rtrim($bits[3]) != "") {             
1324c1018
<                if ($jj == 0) $show=isrec_relevant(reverse_filter($rows[$j]), str_replace("\n","",$bits[1]), $j, false, str_replace("\n","",$bits[0]), str_replace("\n","",$bits[3]));
---
>                if ($jj == 0) $show=isrec_relevant(reverse_filter($rows[$j]), str_replace("\n","",$bits[1]), $j, false);
1327,1329d1020
<                if (strpos($bits[0],"fibonacci_") !== false) {
<                $results=str_replace("</th></tr>", "</th></tr><tr><td><i>" . ($jnum + 1) . "</i></td> </tr>", $results);
<                } else {
1331d1021
<                }
1334d1023
<              $rhs="";
1338,1344c1027
<               if ($show) {
<                if (strpos($bits[0],"fibonacci_") !== false) {
<                 $rhs.="<td>" . reverse_filter($rowcols[$jj]) . "</td>";
<                } else {
<                 $results=str_replace("</tr></tbody>", "<td>" . reverse_filter($rowcols[$jj]) . "</td></tr></tbody>", $results);
<                }
<               }
---
>               if ($show) $results=str_replace("</tr></tbody>", "<td>" . reverse_filter($rowcols[$jj]) . "</td></tr></tbody>", $results);
1346d1028
<              $results=str_replace("<td><i>" . ($jnum) . "</i></td> <", "<td><i>" . ($jnum) . "</i></td>" . $rhs . "<", $results);
1384d1065
<     $bits3=$bits[3];
1397c1078
<                if ($jj == 0) $show=isrec_relevant(reverse_filter($rows[$j]), str_replace("\n","",$bits[1]), $j, false, str_replace("\n","",$bits[0]), str_replace("\n","",$bits[3]));
---
>                if ($jj == 0) $show=isrec_relevant(reverse_filter($rows[$j]), str_replace("\n","",$bits[1]), $j, false);
1400,1402d1080
<                if (strpos($bits[0],"fibonacci_") !== false) {
<                $results=str_replace("</th></tr>", "</th></tr><tr><td><i>" . ($jnum + 1) . "</i></td> </tr>", $results);
<                } else {
1404d1081
<                }
1407d1083
<              $rhs="";
1411,1420c1087
<               //if ($show) {
<               //  $results=str_replace("</tr></tbody>", "<td>" . reverse_filter($rowcols[$jj]) . "</td></tr></tbody>", $results);
<               //}
<               if ($show) {
<                if (strpos($bits[0],"fibonacci_") !== false) {
<                 $rhs.="<td>" . reverse_filter($rowcols[$jj]) . "</td>";
<                } else {
<                 $results=str_replace("</tr></tbody>", "<td>" . reverse_filter($rowcols[$jj]) . "</td></tr></tbody>", $results);
<                }
<               }
---
>               if ($show) $results=str_replace("</tr></tbody>", "<td>" . reverse_filter($rowcols[$jj]) . "</td></tr></tbody>", $results);
1422d1088
<              $results=str_replace("<td><i>" . ($jnum) . "</i></td> <", "<td><i>" . ($jnum) . "</i></td>" . $rhs . "<", $results);
1511d1176
<     $bits3=str_replace(" ,",",",$bits[3]);
1518c1183
<             $rows=explode("~",rtrim(str_replace(" ,",",",$bits[3])));
---
>             $rows=explode("~",rtrim($bits[3]));
1524c1189
<                if ($jj == 0) $show=isrec_relevant(reverse_filter($rows[$j]), str_replace("\n","",$bits[1]), $j, false, str_replace("\n","",$bits[0]), str_replace(" ,",",",str_replace("\n","",$bits[3])));
---
>                if ($jj == 0) $show=isrec_relevant(reverse_filter($rows[$j]), str_replace("\n","",$bits[1]), $j, false);
1527,1529d1191
<                if (strpos($bits[0],"fibonacci_") !== false) {
<                $results=str_replace("</th></tr>", "</th></tr><tr><td><i>" . ($jnum + 1) . "</i></td> </tr>", $results);
<                } else {
1531d1192
<                }
1534d1194
<              $rhs="";
1538,1545c1198
<               //if ($show) $results=str_replace("</tr></tbody>", "<td>" . reverse_filter($rowcols[$jj]) . "</td></tr></tbody>", $results);
<               if ($show) {
<                if (strpos($bits[0],"fibonacci_") !== false) {
<                 $rhs.="<td>" . reverse_filter($rowcols[$jj]) . "</td>";
<                } else {
<                 $results=str_replace("</tr></tbody>", "<td>" . reverse_filter($rowcols[$jj]) . "</td></tr></tbody>", $results);
<                }
<               }
---
>               if ($show) $results=str_replace("</tr></tbody>", "<td>" . reverse_filter($rowcols[$jj]) . "</td></tr></tbody>", $results);
1547d1199
<              $results=str_replace("<td><i>" . ($jnum) . "</i></td> <", "<td><i>" . ($jnum) . "</i></td>" . $rhs . "<", $results);
1576c1228
<   echo "<!doctype html<html><head><title>Flat file data source engine - RJM Programming - April, 2017</title><scr" . "ipt type='text/javascript'> var ltitle='ClickDeletes'; " . $cfilter . " function oc(othis) { if (ltitle == 'ClickDeletes') { othis.innerHTML=String.fromCharCode(32); } ltitle='ClickDeletes';  } function ocsuw() { document.getElementById('suwcollist').innerHTML='';  }  function ocsuwd() { document.getElementById('suwdcollist').innerHTML='';  } </scr" . "ipt></head><body " . $bonload . " style='background-color:" . $yellow . ";'><h1>Flat File SQL Engine</h1><h3>RJM Programming - April, 2017</h3>" . $results . $ask . "</body></html>";
---
>   echo "<!doctype html<html><head><title>Flat file data source engine - RJM Programming - April, 2017</title><scr" . "ipt type='text/javascript'> var ltitle='ClickDeletes'; " . $cfilter . " function oc(othis) { if (ltitle == 'ClickDeletes') { othis.innerHTML=String.fromCharCode(32); } ltitle='ClickDeletes';  } function ocsuw() { document.getElementById('suwcollist').innerHTML='';  }  function ocsuwd() { document.getElementById('suwdcollist').innerHTML='';  } </scr" . "ipt></head><body " . $bonload . " style='background-color:" . $yellow . ";'><h1>Flat File SQL Engine</h1><h3>RJM Programming</h3><h3>April, 2017</h3>" . $results . $ask . "</body></html>";