crop-monitor/core/cache/includes/elements/modsnippet/39.include.cache.php

<?php
//error_reporting(E_ALL);
error_reporting(E_ALL ^ E_NOTICE);
ini_set('display_errors', 1);
$errorLog = 1;

if(isset($_POST['SoilcsvForm'])) {
    
    if ($errorLog = "1") { error_log(print_r($_POST, true)); }
    
    $sql = null;
    $con = mysqli_connect("localhost", "root", "R3M0T31", "cropmonitor");
    
    //set todays date
    $date = date("Y-m-d H:i:s");
    
    // ****************************************************************************
    // Client Details
    $client_id = (isset($_POST["client_id"])) ? $_POST["client_id"] : "";
    $modx_id = (isset($_POST["m_user"])) ? $_POST["m_user"] : "";
    $email = (isset($_POST["email"])) ? $_POST["email"] : "";
    $client_name = (isset($_POST["name"])) ? $_POST["name"] : "";
    $site_address = (isset($_POST["site_address"])) ? $_POST["site_address"] : "";
    $state_postcode = (isset($_POST["state_postcode"])) ? $_POST["state_postcode"] : "";
    
    // Analysis Details
    $analysis_type = "Soil Test";  //for future types of Soil Analysis
    $lab_no = (isset($_POST["lab_no"])) ? $_POST["lab_no"] : "";
    $batch_no = (isset($_POST["batch_no"])) ? $_POST["batch_no"] : "";
    $sample_id = (isset($_POST["sample_id"])) ? $_POST["sample_id"] : "";
    $site_id = (isset($_POST["site_id"])) ? $_POST["site_id"] : "";
    $crop_type = (isset($_POST["crop_type"])) ? $_POST["crop_type"] : "";
    $soil_type = (isset($_POST["soil_type"])) ? $_POST["soil_type"] : ""; 
    $date_sampled = (isset($_POST["date_sampled"])) ? $_POST["date_sampled"] : "";
    $date_sampled = date("Y-m-d", strtotime($date_sampled));

    // Sample Details
    $texture = (isset($_POST["texture"])) ? $_POST["texture"] : "";
    $gravel = (isset($_POST["gravel"])) ? $_POST["gravel"] : "";
    $colour = (isset($_POST["colour"])) ? $_POST["colour"] : "";
    $ocarbon = (isset($_POST["ocarbon"])) ? $_POST["ocarbon"] : "";
    $omatter = (isset($_POST["omatter"])) ? $_POST["omatter"] : "";
    
    $ph_cacl2 = (isset($_POST["ph_cacl2"])) ? $_POST["ph_cacl2"] : "";
    $ph_h2o = (isset($_POST["ph_h2o"])) ? $_POST["ph_h2o"] : "";
    $paramag = (isset($_POST["paramag"])) ? $_POST["paramag"] : "";
    $ec = (isset($_POST["ec"])) ? $_POST["ec"] : "";
    
    // Nutrient Details
    $NO3_N = (isset($_POST["NO3_N"])) ? $_POST["NO3_N"] : "";
    $NH3_N = (isset($_POST["NH3_N"])) ? $_POST["NH3_N"] : "";
    $p_mehlick = (isset($_POST["p_mehlick"])) ? $_POST["p_mehlick"] : "";
    $p_bray2 = (isset($_POST["p_bray2"])) ? $_POST["p_bray2"] : "";
    $p_morgan = (isset($_POST["p_morgan"])) ? $_POST["p_morgan"] : "";
    $k_morgan = (isset($_POST["k_morgan"])) ? $_POST["k_morgan"] : "";
    $ca_morgan = (isset($_POST["ca_morgan"])) ? $_POST["ca_morgan"] : "";
    $mg_morgan = (isset($_POST["mg_morgan"])) ? $_POST["mg_morgan"] : "";
    $na_morgan = (isset($_POST["na_morgan"])) ? $_POST["na_morgan"] : "";
    $ch_h2o = (isset($_POST["ch_h2o"])) ? $_POST["ch_h2o"] : "";
    $fe = (isset($_POST["fe"])) ? $_POST["fe"] : "";
    
    $s_morgan = (isset($_POST["s_morgan"])) ? $_POST["s_morgan"] : "";
    $b_cacl2 = (isset($_POST["b_cacl2"])) ? $_POST["b_cacl2"] : "";
    $mn_dtpa = (isset($_POST["mn_dtpa"])) ? $_POST["mn_dtpa"] : "";
    $zn_dtpa = (isset($_POST["zn_dtpa"])) ? $_POST["zn_dtpa"] : "";
    $fe_dtpa = (isset($_POST["fe_dtpa"])) ? $_POST["fe_dtpa"] : "";
    $cu_dtpa = (isset($_POST["cu_dtpa"])) ? $_POST["cu_dtpa"] : "";
    $al = (isset($_POST["al"])) ? $_POST["al"] : "";
    $sl_cacl2 = (isset($_POST["sl_cacl2"])) ? $_POST["sl_cacl2"] : "";
    $m_dtpa = (isset($_POST["m_dtpa"])) ? $_POST["m_dtpa"] : "";
    $co_dtpa = (isset($_POST["co_dtpa"])) ? $_POST["co_dtpa"] : "";
    $se = (isset($_POST["se"])) ? $_POST["se"] : "";

    // Base Saturation Details
    $tec = (isset($_POST["tec"])) ? $_POST["tec"] : "";
    $cec = (isset($_POST["cec"])) ? $_POST["cec"] : "";
    
    //Base Saturation as M.E./100g
    $ca_mehlick3 = (isset($_POST["ca_mehlick3"])) ? $_POST["ca_mehlick3"] : "";
    $mg_mehlick3 = (isset($_POST["mg_mehlick3"])) ? $_POST["mg_mehlick3"] : "";
    $k_mehlick3 = (isset($_POST["k_mehlick3"])) ? $_POST["k_mehlick3"] : "";
    $na_mehlick3 = (isset($_POST["na_mehlick3"])) ? $_POST["na_mehlick3"] : "";
    $al_mehlick3 = (isset($_POST["al_mehlick3"])) ? $_POST["al_mehlick3"] : "";
    
    //Base Saturation as PPM
    if ($_POST["calcium_me3"] == "ppm") {
        $ca_mehlick3 = (isset($_POST["ca_mehlick3_ppm"])) ? ($_POST["ca_mehlick3_ppm"] / 200) : "";
    }
    if ($_POST["magnesium_me3"] == "ppm") {
        $mg_mehlick3 = (isset($_POST["mg_mehlick3_ppm"])) ? ($_POST["mg_mehlick3_ppm"] / 120) : "";
    }
    if ($_POST["postassium_me3"] == "ppm") {
        $k_mehlick = (isset($_POST["k_mehlick3_ppm"])) ? ($_POST["k_mehlick3_ppm"] / 390) : "";
    }
    if ($_POST["soduim_me3"] == "ppm") {
        $na_mehlick3 = (isset($_POST["na_mehlick3_ppm"])) ? ($_POST["na_mehlick3_ppm"] / 230) : "";
    }

    // Totals for Ratis
    $c_total = (isset($_POST["c_total"])) ? $_POST["c_total"] : "";
    $n_total = (isset($_POST["n_total"])) ? $_POST["n_total"] : "";
    
    //Create Carbon Nitrogen Ratio if not specified
    if ($_POST["c_nRatio"] = "") {
        $c_nRatio = (isset($_POST["c_nRatio"])) ? $_POST["c_nRatio"] : "";
    } else {
        $c_nRatio = ( $c_total / $n_total );
    }
    
    //Create CA MG Ratio if not specified
    if ($_POST["ca_mgRatio"] = "") {
        $ca_mgRatio = (isset($_POST["ca_mgRatio"])) ? $_POST["ca_mgRatio"] : "";
    } else {
        $ca_mgRatio = ( (int)$ca_mehlick3 / (int)$mg_mehlick3 );
    }
    
    
    //$rand = substr(md5(microtime()),rand(0,26),5);
    $rand = mt_rand(10000, 99999);
    
    
    // PH lookup table (ph*10 rounded to single decimal point for easy lookup)
    $phrange = array(
        30 => [75.0, 11.4],
        31 => [74.0, 11.2],
        32 => [73.0, 11.0],
        33 => [72.0, 10.8],
        34 => [71.0, 10.6],
        35 => [70.0, 10.4],
        36 => [69.0, 10.2],
        37 => [68.0, 10.0],
        38 => [67.0, 9.8],
        39 => [66.0, 9.6],
        40 => [65.0, 9.4],
        41 => [63.0, 9.2],
        42 => [61.0, 9.0],
        43 => [59.0, 8.8],
        44 => [57.0, 8.6],
        45 => [55.0, 8.4],
        46 => [53.0, 8.2],
        47 => [51.0, 8.0],
        48 => [49.0, 7.8],
        49 => [47.0, 7.6],
        50 => [45.0, 7.4],
        51 => [42.0, 7.2],
        52 => [39.0, 7.0],
        53 => [36.0, 6.8],
        54 => [33.0, 6.6],
        55 => [30.0, 6.4],
        56 => [27.0, 6.2],
        57 => [24.0, 6.0],
        58 => [21.0, 5.8],
        59 => [18.0, 5.6],
        60 => [15.0, 5.4],
        61 => [13.5, 5.3],
        62 => [12.0, 5.2],
        63 => [10.5, 5.1],
        64 => [9.0, 5.0],
        65 => [7.5, 4.9],
        66 => [6.0, 4.8],
        67 => [4.5, 4.7],
        68 => [3.0, 4.6],
        69 => [1.5, 4.5],
        70 => [0.0, 4.4],
        71 => [0.0, 4.3],
        72 => [0.0, 4.2],
        73 => [0.0, 4.1],
        74 => [0.0, 4.0],
        75 => [0.0, 3.9],
        76 => [0.0, 3.8],
        77 => [0.0, 3.7],
        78 => [0.0, 3.6],
        79 => [0.0, 3.5],
        80 => [0.0, 3.4],
        81 => [0.0, 3.3],
        82 => [0.0, 3.2],
        83 => [0.0, 3.1],
        84 => [0.0, 3.0],
        85 => [0.0, 2.9],
        86 => [0.0, 2.8],
        87 => [0.0, 2.7],
        88 => [0.0, 2.6],
        89 => [0.0, 2.5],
        90 => [0.0, 2.4],
        91 => [0.0, 2.3],
        92 => [0.0, 2.2],
        93 => [0.0, 2.1],
        94 => [0.0, 2.0],
        95 => [0.0, 1.9],
        96 => [0.0, 1.8],
        97 => [0.0, 1.7],
        98 => [0.0, 1.6],
        99 => [0.0, 1.5],
        100 => [0.0, 1.4],
    );
    
    
    
    /* ********* START ********* */
    /* ********* ADD BASE SATURATION CALCULATION HERE ********* */
    
    
    // Calculating hydrogen and otherbases
    $ph = $ph_h2o;      // $ph_h2o from above
    $aluminium = $al_mehlick3;
    
    // round the ph value to single decimal point    
    $ph_lookup = round($ph, 2); 
    if ($errorLog = "1") { error_log(print_r("ph_lookup: " . $ph_lookup . " ph: " . $ph, true )); }
    
    // lookup Hydrogen and Other Bases
    $hydrogen = $phrange[($ph_lookup * 10)][0];
    $otherbases = $phrange[($ph_lookup * 10)][1];
    $h_rec = round($hydrogen, 2); // recommended level added to DB
    $ob_rec = round($otherbases, 2); // recommended level added to DB
    
    if ($errorLog = "1") { error_log(print_r("Hydrogen: " . $hydrogen . " Other Bases: " . $otherbases, true)); }

    if ( $aluminium < 0 ) {
        $otherbases = 0;
    }

    $obresult = 0; //  obresult  == Other Bases Result
    $hresult = 0; //  hresult   == Hydrogen Result
    
    
    // IF ********************************************************************************
    if ( $otherbases > 0 ) {
        while ( (($obresult * 100) / $cec) <= $otherbases ) {
            $obresult += 0.001;
            $tempNo = $obresult;
            $tempNo1 = $otherbases;
            $tempNo2 = $hydrogen;
            // CAUTION: storing value in Calc:E16
            $hresult = ($tempNo * $tempNo2) / $tempNo1;
        }
        $obresult -=  0.001;
        if ( $hresult != 0 ){
            $hresult -= 0.001;
        }
    } else {
        while( (($hresult * 100) / $tec) <= $hydrogen ) {
            $hresultl += 0.001;
        }
        $hresult -= 0.001;
    }
    if ($errorLog = "1") { error_log(print_r("hresult: " . $hresult . " obresult: " . $obresult, true)); }
    // END If ********************************************************************************
    
    
    // Calculating Ca Mg K Na levels based on temp
    // *** I think that the tecTemp needs to be a sum of $tec and $hresult and $obresult ***
    // *** As far as I can see on the spreadsheet the TEC in CALC:B16 is "CEC + obresult + CALC:E16"
    
    $tecTemp = $cec + $obresult + $hresult;
    $tec = round($tecTemp, 2);
    $cec = round($cec, 2);
    if ($errorLog = "1") { error_log(print_r("tecTemp: " . $tecTemp . " cec: " . $cec . " tec: " . $tec, true)); }
    
    
    // CAUTION: for $tecTemp values below 1 and above 100000 this will not work
    if ( ( 1.0 < $tecTemp  ) && ( $tecTemp >= 3.0 ) ) {
        $cabs = $CABS = 0;
        $cabsmax = $CABSMAX = 60.00;
        $mgbs = $MGBS = 0;
        $mgbsmax = $MGBSMAX = 20.00;
        $kbs = $KBS = 5.00;
        $kbsmax = $KBSMAX = 7.00; 
        $nabs = $NABS = 0.50;
        $nabsmax = $NABSMAX = 1.50; 
    }
    elseif ( ( 3.0 < $tecTemp  ) && ( $tecTemp >= 5.0 ) ) {
        $cabs = $CABS = 0;
        $cabsmax = $CABSMAX = 62.00;
        $mgbs = $MGBS = 0;
        $mgbsmax = $MGBSMAX = 18.00;
        $kbs = $KBS = 5.00;
        $kbsmax = $KBSMAX = 7.00; 
        $nabs = $NABS = 0.50;
        $nabsmax = $NABSMAX = 1.50; 
    }
    elseif ( ( 5.0 < $tecTemp  ) && ( $tecTemp >= 7.0 ) ) {
        $cabs = $CABS = 0;
        $cabsmax = $CABSMAX = 64.00;
        $mgbs = $MGBS = 0;
        $mgbsmax = $MGBSMAX = 16.00;
        $kbs = $KBS = 4.00;
        $kbsmax = $KBSMAX = 7.00; 
        $nabs = $NABS = 0.50;
        $nabsmax = $NABSMAX = 1.50; 
    }
    elseif ( ( 7.0 < $tecTemp  ) && ( $tecTemp >= 9.0 ) ) {
        $cabs = $CABS = 0;
        $cabsmax = $CABSMAX = 65.00;
        $mgbs = $MGBS = 0;
        $mgbsmax = $MGBSMAX = 15.00;
        $kbs = $KBS = 4.00;
        $kbsmax = $KBSMAX = 7.00; 
        $nabs = $NABS = 0.50;
        $nabsmax = $NABSMAX = 1.50; 
    }
    elseif ( ( 9.0 < $tecTemp  ) && ( $tecTemp >= 11.0 ) ) {
        $cabs = $CABS = 0;
        $cabsmax = $CABSMAX = 67.00;
        $mgbs = $MGBS = 0;
        $mgbsmax = $MGBSMAX = 13.00;
        $kbs = $KBS = 4.00;
        $kbsmax = $KBSMAX = 7.00; 
        $nabs = $NABS = 0.50;
        $nabsmax = $NABSMAX = 1.50; 
    }
    elseif ( ( 11.0 < $tecTemp  ) && ( $tecTemp >= 30.0 ) ) {
        $cabs = $CABS = 0;
        $cabsmax = $CABSMAX = 68.00;
        $mgbs = $MGBS = 0;
        $mgbsmax = $MGBSMAX = 12.00;
        $kbs = $KBS = 4.00;
        $kbsmax = $KBSMAX = 7.00; 
        $nabs = $NABS = 0.50;
        $nabsmax = $NABSMAX = 1.50; 
    }
    elseif ( ( 30.0 < $tecTemp  ) && ( $tecTemp >= 100000.0 ) ) {
        $cabs = $CABS = 0;
        $cabsmax = $CABSMAX = 70.00;
        $mgbs = $MGBS = 0;
        $mgbsmax = $MGBSMAX = 10.00;
        $kbs = $KBS = 3.00;
        $kbsmax = $KBSMAX = 6.00; 
        $nabs = $NABS = 0.50;
        $nabsmax = $NABSMAX = 1.50; 
    }
    
    // *** CALCULATED TEC % AND PPM MIN / MAX LEVELS
    $cabs_min = $cabs;
    $ca_ppm_min = ( $tec * $cabs_min *2 );
    $cabs_max = $cabsmax;
    $ca_ppm_max = ( $tec * $cabs_max * 2);
    $mgbs_min = $mgbs;
    $mg_ppm_min = ( $tec * $mgbs_min * 1.2 );
    $mgbs_max = $mgbsmax;
    $mg_ppm_max = ( $tec * $mgbs_max * 1.2 );
    $kbs_min = $kbs;
    $k_ppm_min = ( $tec * $kbs_min * 3.9 );
    $kbs_max = $kbsmax;
    $k_ppm_max = ( $tec * $kbs_max * 3.9 );
    $nabs_min = $nabs;
    $na_ppm_min = ( $tec * $nabs_min * 2.3 );
    $nabs_max = $nabsmax;
    $na_ppm_max = ( $tec * $nabs_max * 2.3 );
    $albs_min = "0";
    $al_ppm_min = ( $tec * $albs_min * 0.9 );
    $albs_max = "0.5";
    $al_ppm_max = ( $tec * $albs_max * 0.9 );
    
    // *** CALCULATED TEC LEVELS
    $cabs_tec = ( $ca_mehlick3 / $tec ) * 100;
        $cabs_tec = round($cabs_tec, 2);
    $mgbs_tec = ( $mg_mehlick3 / $tec ) * 100;
        $mgbs_tec = round($mgbs_tec, 2);
    $kbs_tec = ( $k_mehlick3 / $tec ) * 100;
        $kbs_tec = round($kbs_tec, 2);
    $nabs_tec = ( $na_mehlick3 / $tec ) * 100;
        $nabs_tec = round($nabs_tec, 2);
    $albs_tec = ( $al_mehlick3 / $tec ) * 100;
        $albs_tec = round($albs_tec, 2);
    
    // *** CALCULATED PPM FROM MEQ
    $BS_ca_ppm =  $ca_mehlick3 * 200;
    $BS_mg_ppm =  $mg_mehlick3 * 120;
    $BS_k_ppm =  $k_mehlick3 * 390;
    $BS_na_ppm =  $na_mehlick3 * 230;
    $BS_al_ppm =  $al_mehlick3 * 90;
    
    
    /* ********* ADD BASE SATURATION CALCULATION HERE ********* */
    /* ********* END ********* */
    
    // Check connection
    if (mysqli_connect_errno())
    {
        echo "Failed to connect to MySQL: " . mysqli_connect_error();
    }
    		
    $sql = mysqli_query($con, "INSERT into `soil_records`
                (
                    client_records_id,
                    modx_user_id,
                    date,
                    email,
                    client_name,
                    site_address,
                    state_postcode,
                    analysis_type,
                    lab_no,
                    batch_no,
                    sample_id,
                    site_id,
                    crop_type,
                    soil_type,
                    date_sampled,
                    tec,
                    cec,
                    texture,
                    gravel,
                    colour,
                    NO3_N,
                    NH3_N,
                    p_mehlick,
                    p_bray2,
                    p_morgan,
                    k_morgan,
                    ca_morgan,
                    mg_morgan,
                    na_morgan,
                    ch_h2o,
                    ocarbon,
                    omatter,
                    fe,
                    ec,
                    ph_cacl2,
                    ph_h2o,
                    paramag,
                    s_morgan,
                    b_cacl2,
                    mn_dtpa,
                    zn_dtpa,
                    fe_dtpa,
                    cu_dtpa,
                    al,
                    sl_cacl2,
                    m_dtpa,
                    co_dtpa,
                    se,
                    
                    ca_mehlick3,
    				BS_ca_ppm,
                    mg_mehlick3,
    				BS_mg_ppm,
                    k_mehlick3,
    				BS_k_ppm,
                    na_mehlick3,
    				BS_na_ppm,
                    al_mehlick3,
    				BS_al_ppm,
    				BS_ca2,
    				BS_mg2,
    				BS_k,
    				BS_na,
    				BS_al3,
    				BS_ob,
    				BS_h,
    				
    				cabs_min,
    				ca_ppm_min,
    				cabs_max,
    				ca_ppm_max,
    				mgbs_min,
    				mg_ppm_min,
    				mgbs_max,
    				mg_ppm_max,
    				kbs_min,
    				k_ppm_min,
    				kbs_max,
    				k_ppm_max,
    				nabs_min,
    				na_ppm_min,
    				nabs_max,
    				na_ppm_max,
    				albs_min,
    				al_ppm_min,
    				albs_max,
    				al_ppm_max,
    				
    				ob_rec,
    				h_rec,
    				
    				ca_mg_ratio,
    				
                    rand
                ) VALUES (
                    '" . $client_id . "',
                    '" . $modx_id . "',
                    '" . $date . "',
                    '" . $email . "',
                    '" . $client_name . "',
                    '" . $site_address . "',
                    '" . $state_postcode . "',
                    '" . $analysis_type . "',
                    '" . $lab_no . "',
                    '" . $batch_no . "',
                    '" . $sample_id . "',
                    '" . $site_id . "',
                    '" . $crop_type . "',
                    '" . $soil_type . "',
                    '" . $date_sampled . "',
                    '" . $tec . "',
                    '" . $cec . "',
                    IF('" . $texture . "'='',NULL,'" . $texture . "'),
                    IF('" . $gravel . "'='',NULL,'" . $gravel . "'),
                    IF('" . $colour . "'='',NULL,'" . $colour . "'),
                    '" . $NO3_N . "',
                    '" . $NH3_N . "',
                    '" . $p_mehlick . "',
                    '" . $p_bray2 . "',
                    '" . $p_morgan . "',
                    '" . $k_morgan . "',
                    '" . $ca_morgan . "',
                    '" . $mg_morgan . "',
                    '" . $na_morgan . "',
                    '" . $ch_h2o . "',
                    '" . $ocarbon . "',
                    '" . $omatter . "',
                    '" . $fe . "',
                    '" . $ec . "',
                    '" . $ph_cacl2 . "',
                    '" . $ph_h2o . "',
                    IF('" . $paramag . "'='',NULL,'" . $paramag . "'),
                    '" . $s_morgan . "',
                    '" . $b_cacl2 . "',
                    '" . $mn_dtpa . "',
                    '" . $zn_dtpa . "',
                    '" . $fe_dtpa . "',
                    '" . $cu_dtpa . "',
                    '" . $al . "',
                    '" . $sl_cacl2 . "',
                    '" . $m_dtpa . "',
                    '" . $co_dtpa . "',
                    '" . $se . "',
                    
                    '" . $ca_mehlick3 . "',
    				'" . $BS_ca_ppm . "',
                    '" . $mg_mehlick3 . "',
    				'" . $BS_mg_ppm . "',
                    '" . $k_mehlick3 . "',
    				'" . $BS_k_ppm . "',
                    '" . $na_mehlick3 . "',
    				'" . $BS_na_ppm . "',
                    '" . $al_mehlick3 . "',	
    				'" . $BS_al_ppm . "',
    				
    				'" . $cabs_tec . "',
    				'" . $mgbs_tec . "',
    				'" . $kbs_tec . "',
    				'" . $nabs_tec . "',
    				'" . $aluminium . "',
    				'" . $otherbases . "',
    				'" . $hydrogen . "',
    
    				'" . $cabs_min . "',
    				'" . $ca_ppm_min . "',
    				'" . $cabs_max . "',
    				'" . $ca_ppm_max . "',
    				'" . $mgbs_min . "',
    				'" . $mg_ppm_min . "',
    				'" . $mgbs_max . "',
    				'" . $mg_ppm_max . "',
    				'" . $kbs_min . "',
    				'" . $k_ppm_min . "',
    				'" . $kbs_max . "',
    				'" . $k_ppm_max . "',
    				'" . $nabs_min . "',
    				'" . $na_ppm_min . "',
    				'" . $nabs_max . "',
    				'" . $na_ppm_max . "',
    				'" . $albs_min . "',
    				'" . $al_ppm_min . "',
    				'" . $albs_max . "',
    				'" . $al_ppm_max . "',
    				
    				'" . $ob_rec . "',
    				'" . $h_rec . "',
    				
    				'" . $ca_mgRatio . "',
    				
                    '" . $rand . "'
                )" );
    
    $insert_id = mysqli_insert_id($con);
                
    if ($sql === TRUE)
    	{
    	// forward to results page if successfully inserts to database  [[~32]]
    	echo "<script>location.href = '[[~41]]?rand=" . $rand . "&cid=" . $sample_id . "&rid=" . $insert_id . "&stid=" .$crop_type . "';</script>";
        } else {
        die(mysqli_error($con)); // TODO: better error handling
        //echo "User Profile incorrect";
    }
}
return;