function st_paste($d)
{
    $ret = hidden('', 'cka', 'm' . $d);
    $ret .= ljb('" title="copy" id="cka1', 'mem_storage', '_m1___cka0', picto('copy')) . ' ';
    $ret .= ljb('" title="paste" id="ckb1', 'mem_storage', '_m1_1__ckb0', picto('paste'));
    return btn('nbp', $ret) . ' ';
}

function edit($table, $vyber, $id)
{
    $error_msg = array();
    if ($_POST[submit]) {
        $meno = sec_sql(sec_input($_POST["meno"]));
        $hodnota = sec_sql(sec_input($_POST["hodnota"]));
        if (strlen($meno) > 30 or strlen($meno) < 3) {
            $error_msg[] = "Meno môže mať od 4 do 30 znakov";
        }
        if (strlen($hodnota) > 30 or strlen($hodnota) < 3) {
            $error_msg[] = "Hodnota môže mať od 4 do 30 znakov";
        }
        //var_dump($error_msg);
        if (empty($error_msg)) {
            echo "ok";
        } else {
            echo "<div id=error_message>" . implode("<br>", $error_msg) . "</div>";
        }
    }
    $id = sec_sql($id);
    $query = "Select id, hodnota, meno from " . PREFIX . "{$table} WHERE id={$id}";
    $value = sql_query($query);
    $value = $value[0];
    echo "<form method=\"POST\">";
    hidden("id", $value[id]);
    textfield("meno", $value[meno], "Meno", 50, 20);
    textfield("hodnota", $value[hodnota], "Hodnota", 40, 20);
    submit("submit", "Odoslať");
    echo "</form>";
}

function delete($table, $vyber, $id, $sub)
{
    $id = sec_sql(sec_input($id));
    $query = "Select vymaz from {$table} WHERE id={$id}";
    $value = sql_query($query);
    if ($value[0][vymaz] == 0) {
        $vymaz = 1;
    } else {
        $vymaz = 0;
    }
    if ($table == "uzivatel" and $id == 1) {
        echo "<strong>Nie je možné upravovať hlavného administrátora!</strong>";
        exit;
    }
    //echo $table;
    if (!is_numeric($id) or empty($id)) {
        $error_msg[] = "ID ma nesprávnu hodnotu";
    }
    //var_dump($error_msg);
    if (empty($error_msg)) {
        $query = "UPDATE {$table}\r\n                      SET vymaz = {$vymaz}\r\n                      WHERE id = {$id}";
        sql_update($query);
        header("location: index.php?vyber=nastavenia&sub={$table}");
    } else {
        echo "<div id=error_message>" . implode("<br>", $error_msg) . "</div>";
    }
    echo "<h2>Skutočne chcete vymazať položku " . $value[0][meno] . "?</h2>";
    echo "<form method=\"POST\">";
    echo hidden("id", $value[id]);
    echo submit("submit", "Vymazať");
    echo "</form>";
}

function display_rate_edit()
{
    global $selected_id, $Ajax, $xr_providers, $dflt_xr_provider;
    $xchg_rate_provider = isset($xr_providers) && isset($dflt_xr_provider) ? $xr_providers[$dflt_xr_provider] : 'ECB';
    start_table(TABLESTYLE2);
    if ($selected_id != "") {
        //editing an existing exchange rate
        $myrow = get_exchange_rate($selected_id);
        $_POST['date_'] = sql2date($myrow["date_"]);
        $_POST['BuyRate'] = maxprec_format($myrow["rate_buy"]);
        hidden('selected_id', $selected_id);
        hidden('date_', $_POST['date_']);
        label_row(_("Date to Use From:"), $_POST['date_']);
    } else {
        $_POST['date_'] = Today();
        $_POST['BuyRate'] = '';
        date_row(_("Date to Use From:"), 'date_');
    }
    if (isset($_POST['get_rate'])) {
        $_POST['BuyRate'] = maxprec_format(retrieve_exrate($_POST['curr_abrev'], $_POST['date_']));
        $Ajax->activate('BuyRate');
    }
    amount_row(_("Exchange Rate:"), 'BuyRate', null, '', submit('get_rate', _("Get"), false, _('Get current rate from') . ' ' . $xchg_rate_provider, true), 'max');
    end_table(1);
    submit_add_or_update_center($selected_id == '', '', 'both');
    display_note(_("Exchange rates are entered against the company currency."), 1);
}

function st_paste($d)
{
    $ret = hidden('', 'cka', 'm' . $d);
    $ret .= ljb('" title="' . nms(57) . '" id="cka1', 'mem_storage', '_m1___cka0', picto('save')) . ' ';
    $ret .= ljb('" title="' . nms(95) . '" id="ckb1', 'mem_storage', '_m1_1__ckb0', picto('refresh')) . ' ';
    $ret .= hlpbt('memstorage');
    return btn('nbp', $ret) . ' ';
}

function rec_checkbox($row)
{
    $name = "rec_" . $row['id'];
    $hidden = 'last[' . $row['id'] . ']';
    $value = $row['reconciled'] != '';
    // save also in hidden field for testing during 'Reconcile'
    return checkbox(null, $name, $value, true, _('Reconcile this transaction')) . hidden($hidden, $value, false);
}

 public function parse($orig_name)
 {
     global $CORE;
     ob_start();
     if (is_action()) {
         try {
             $name = post('name');
             if (!$name) {
                 throw new FieldInputError('name', l('Please provide a map name.'));
             }
             if (!preg_match(MATCH_MAP_NAME, $name)) {
                 throw new FieldInputError('name', l('This is not a valid map name (need to match [M])', array('M' => MATCH_MAP_NAME)));
             }
             if (count($CORE->getAvailableMaps('/^' . $name . '$/')) > 0) {
                 throw new FieldInputError('name', l('A map with this name already exists.'));
             }
             // Read the old config
             $MAPCFG = new GlobalMapCfg($orig_name);
             $MAPCFG->readMapConfig();
             // Create a new map config
             $NEW = new GlobalMapCfg($name);
             $NEW->createMapConfig();
             foreach ($MAPCFG->getMapObjects() as $object_id => $cfg) {
                 $NEW->addElement($cfg['type'], $cfg, $perm = true, $object_id);
             }
             success(l('The map has been created.'));
             reload(cfg('paths', 'htmlbase') . '/frontend/nagvis-js/index.php?mod=Map&show=' . $name, 1);
         } catch (FieldInputError $e) {
             form_error($e->field, $e->msg);
         } catch (NagVisException $e) {
             form_error(null, $e->message());
         } catch (Exception $e) {
             if (isset($e->msg)) {
                 form_error(null, $e->msg);
             } else {
                 throw $e;
             }
         }
     }
     echo $this->error;
     echo '<div class="simple_form">' . N;
     js_form_start('to_new_map');
     input('name');
     submit(l('Save'));
     focus('name');
     // Keep the view parameters the users has set
     $params = ltrim(req('view_params'), '&');
     if ($params) {
         $parts = explode('&', $params);
         foreach ($parts as $part) {
             list($key, $val) = explode('=', $part);
             hidden($key, $val);
         }
     }
     form_end();
     echo '</div>' . N;
     return ob_get_clean();
 }

function np_sav($d, $id)
{
    $ret = hidden('', 'cka', 'm' . $d);
    for ($i = 1; $i <= 7; $i++) {
        $c = $i == $d ? 'active' : '';
        $ret .= ljb($c . '" id="ckb' . $i, 'mem_storage', $id . '_m' . $i . '_1_1_ckb' . $i . '_memnu', $i);
    }
    $ret .= ljb('" id="ckc', 'mem_storage', $id . '_cka__1_ckc', 'save');
    return span(atc('nbp') . atd('memnu'), $ret) . hlpbt('memstorage');
}

function np_sav($d, $id)
{
    $ret = hidden('', 'cka', 'm' . $d);
    for ($i = 1; $i <= 9; $i++) {
        $c = $i == $d ? 'active' : '';
        $ret .= ljb('' . $c . '" id="ckb' . $i, 'mem_storage', $id . '_m' . $i . '_1_1_ckb' . $i . '_memnu', $i);
    }
    $ret .= ljb('" id="ckc', 'mem_storage', $id . '_cka__1_ckc', nms(57));
    $ret .= lj('', 'popup_plup___pad_pad*write___' . $id . '', picto('export'));
    return divc('nb_pages', divd('memnu', $ret . hlpbt('memstorage')));
}

 function main()
 {
     hidden('gp_page', 'x_emailblast');
     hidden('gp_table', CleanGet('gp_table', '', false));
     hidden('gp_posted', 1);
     $table = CleanGet('gp_table', '', false);
     if ($table == '') {
         ErrorAdd('Incorrect call to x_emailblast, no table parameter.' . 'This is a programming error, please contact your ' . 'technical support department');
         return;
     }
     // Get an object for the page we need.  Then
     // pull the list of skeys in the current search
     // and pull the rows.
     //
     $obj = DispatchObject($table);
     $a_skeys = ContextGet("tables_" . $obj->table_id . "_skeys", array());
     $l_skeys = implode(',', $a_skeys);
     // get this little detail taken care of
     //
     $this->PageSubtitle = 'Email blast to ' . $obj->table['description'];
     // Get the list of columns of interest, and pull them
     // and slot them by skey, so the list of skeys can be
     // used to order them
     //
     $lDisplayColumns = $obj->table['projections']['email'];
     $aDisplayColumns = explode(',', $lDisplayColumns);
     $EmailColumn = $obj->table['projections']['emailaddr'];
     $sql = 'SELECT skey,' . $EmailColumn . ',' . $lDisplayColumns . ' FROM ' . $table . ' WHERE skey IN (' . $l_skeys . ')';
     $DBRes = SQL($sql);
     $rows = array();
     while ($row = SQL_FETCH_Array($DBRes)) {
         $rows[$row['skey']] = $row;
     }
     $okToSend = false;
     if (CleanGet('gp_posted', '', false) == 1) {
         if (CleanGet('txt_subject', '', false) == '') {
             ErrorAdd('Please fill in a subject first');
         }
         if (trim(CleanGet('txt_email', '', false)) == '') {
             ErrorAdd('Please fill in an email body');
         }
         if (!Errors()) {
             $okToSend = true;
         }
     }
     // Now that we have the results, decide whether we
     // are sending out the email or
     if ($okToSend) {
         $this->EmailBlast($rows, $a_skeys, $EmailColumn, $aDisplayColumns);
     } else {
         $this->EmailHTML($rows, $a_skeys, $aDisplayColumns);
     }
 }

function ftp_ops($p, $f)
{
    $rid = 'inp' . randid();
    $j = 'ops' . $rid . '_plug__2_ftp_ftp*act_' . ajx($p) . '_' . ajx($f) . '_' . $rid;
    if ($p == 'rename' or $p == 'copy') {
        $ret = input(1, $rid, $f, '', '', 16) . ' ';
    } else {
        $ret = hidden('', $rid, $f) . btn('txtx', $f) . ' ';
    }
    $ret .= lj('popbt', $j, pictxt('reload', $p));
    return $ret . divd('ops' . $rid, '');
}

 public function new_form()
 {
     $form = '<div class="hide" id="new_image_form">';
     $form .= form::open_multipart('admin/media/add', array('onsubmit' => "('#image_upload_button').attr('value','Uploading...')"));
     $form .= input(array('title', 'Title'), '');
     $form .= input(array('image_category', 'Category'), '', array('class' => 'media_category_complete'));
     $form .= hidden('media_type_id', 1);
     $form .= '<input class="submit" type="submit" value="Upload" id="image_upload_button">';
     $form .= form::close();
     $form .= "</div>";
     echo $form;
     exit;
 }

 function end_form($breaks = 0)
 {
     global $Ajax;
     $_SESSION['csrf_token'] = hash('sha256', uniqid(mt_rand(), true));
     // 		if ($breaks)
     // 			br($breaks);
     hidden('_focus');
     hidden('_modified', get_post('_modified', 0));
     hidden('_token', $_SESSION['csrf_token']);
     View::get()->render();
     // In case there are any controls between the end of table and the end of form.
     echo ThemeBootstrap::get()->renderBlock('controls.twig.html', 'form_end', array());
     $Ajax->activate('_token');
 }

function plug_sticky($d)
{
    $d = $d != '' ? $d : 1;
    $id = 'np' . randid();
    $ret = hidden('', 'cka', 'm' . $d);
    $ret .= ljb('poph" id="ckb', 'mem_storage', $id . '_m' . $d . '_1_1_ckb' . $d, picto('reload'));
    //$ret.=ljb('popbt" id="ckc','mem_storage',$id.'_m'.$d.'__1_ckc','save');
    //$ret.=ljb('popbt" id="ckb'.$d,'mem_storage',$id.'_m'.$d.'_1_1_ckb'.$d.'_memnu','restore');
    $ret .= ljb('poph" id="ckc', 'mem_storage', $id . '_cka__1_ckc', pictit('save', 'save'));
    $ret = divs('float:right;', $ret);
    $ret .= divedit($id, '', 'height:240px; overflow:auto; padding:10px;', $j, $txt);
    $ret .= js_code('document.getElementById(\'' . $id . '\').innerHTML=localStorage[\'m' . $d . '\']');
    return popup_stick($ret);
}

 function androX6()
 {
     # KFD 1/14/09. copied this from androX4
     # KFD 8/7/08.  Grab any "hold" variables and
     # attach them to the current object.  This was
     # put in for the wholdist application to carry
     # context from screen to screen.
     #
     # KFD 3/20/09 Sourceforge 2697962
     #             Moved this to index_hidden so it works with
     #             androPage w/o modifying androPage
     #$this->hld = aFromGp('hld_');
     # If the x6exit variable was passed in, put it out
     hidden('x6exit', gp('x6exit', 'N'));
 }

    /**
     * Rendering WP File field
     * @package Skip
     * @since 1.0
     * @return string $html Returns The HTML Code.
     */
    public function render()
    {
        global $skip_javascripts;
        $skip_javascripts[] = '	
			$("#skip_filebutton_' . $this->params['id'] . '").click(function() {
				
				if ( typeof wp !== "undefined" && wp.media && wp.media.editor ){
   		   			wp.media.editor.open( "#skip_filebutton_' . $this->params['id'] . '" );
					
					wp.media.editor.send.attachment = function( props, attachment ) {
						console.log( attachment );

						if( attachment.url.match(/\\.jpg$/i) || attachment.url.match(/\\.gif$/i) || attachment.url.match(/\\.png$/i) ){
							preview_file = attachment.url;
			        	}else{
			        		preview_file = attachment.icon;
			        	}
						
						$( "#skip_file_' . $this->params['id'] . '" ).val( attachment.url );
						$( "#skip_filepreview_' . $this->params['id'] . '" ).attr( "src", preview_file );	
						$( "#skip_filename_' . $this->params['id'] . ' a" ).text( preview_file.replace( /.*\\//, "" ) );
						$( "#skip_filename_' . $this->params['id'] . ' a" ).attr( "href", preview_file );	
						$( "#skip_filepreview_src_' . $this->params['id'] . '" ).val( preview_file );
			    	}
		    	}

   			});
   			
			$( "#skip_filepreview_' . $this->params['id'] . '" ).attr( "src", $( "#skip_filepreview_src_' . $this->params['id'] . '" ).val() );
			
   			';
        $html = $this->before_element;
        $html .= '<div class="skip_file ui-state-default ui-corner-all">';
        $html .= '<div class="skip_filepreview">';
        $html .= '<img id="skip_filepreview_' . $this->params['id'] . '" class="skip_filepreview_image" />';
        if (isset($this->value)) {
            $html .= '<div class="skip_filename" id="skip_filename_' . $this->params['id'] . '"><a href="' . $this->value . '" target="_blank">' . basename($this->value) . '</a></div>';
        }
        $html .= '</div>';
        $html .= '<div class="skip_fileuploader">';
        $html .= '<input id="skip_file_' . $this->params['id'] . '" class="skip_file_name" type="text" name="' . $this->params['name'] . '" value="' . $this->value . '" />';
        $html .= '<input id="skip_filebutton_' . $this->params['id'] . '" class="skip_file_button" type="button" value="' . $this->wp_browse . '" />';
        $html .= hidden($this->name . '_icon_src', array('id' => 'skip_filepreview_src_' . $this->params['id']));
        $html .= '</div>';
        $html .= '</div>';
        $html .= $this->after_element;
        return $html;
    }

function etable($datos, $tablea = [], $tha = [], $tra = [], $tda = [])
{
    global $d, $t, $columnas;
    $res = "\n" . t("tr", tarray("th", $columnas, $tha), $tra);
    // aqui acumulamos el resultado parcial - los headings + rows
    // intentamos hacer una fila de edit controls
    $edits = "";
    foreach ($columnas as $i) {
        $edits .= "\n" . t("td", input(["name" => $i]), $tda);
    }
    $res .= t("tr", $edits . t("td", submit("Insertar") . hidden("d", $d) . hidden("t", $t) . hidden("c", "i"), $tda), $tra);
    foreach ($datos[1] as $arr) {
        $res .= "\n" . t("tr", tarray("td", $arr, $tda), $tra);
    }
    return t("table", $res, $tablea);
}

 function prepareRow()
 {
     // Prepare for the insert
     // Get all of the columns and the table that we are working with
     $this->columns = aFromGP('gp_upd_');
     $this->table = gp('gp_table_upd');
     if (!$this->table) {
         echo "No table supplied\n<br>";
         return;
     }
     hidden('gp_table_upd', $this->table);
     hidden('gp_submit', 1);
     hidden('gp_page', 'x_pkc');
     // Get the flat table def
     $table_dd = dd_TableRef($this->table);
     $tabflat = ArraySafe($table_dd, 'flat');
     //hprint_r($tabflat);
     $retval = '';
     $retval .= $this->dynamicVal(&$table_dd, $this->columns);
     echo $retval;
 }

function f_inp_track($id, $msg = '')
{
    $w = currentwidth() - 100;
    $user = $_GET['user'];
    if ($_SESSION['USE']) {
        $use = $_SESSION['USE'];
    } else {
        list($use, $ml) = sql('name,mail', 'qdi', 'r', 'host="' . hostname() . '" ORDER BY id DESC LIMIT 1');
    }
    $gn = '" onkeyup="log_goodname(\'trkname\');';
    if ($user) {
        $ret .= btn("txtred", nms(29) . ' ' . nms(34) . ': ' . $user);
    }
    $ret .= ljb('popsav', 'SaveBbd', 'track_' . ($user ? $user : $id) . '_1', nms(28)) . btd('bts', '') . ' ';
    if (rstr(2) && !auth(4)) {
        $ret .= btn('small', helps('tracks_moderation'));
    }
    if ($_SESSION['USE']) {
        $ret .= hidden('name', 'trkname', $use) . hidden('mail', 'trkmail', '');
        $ret .= hidden('sb', 'trkscr', '') . hidden('sc', 'trkscrvrf', '');
    } else {
        $ret .= autoclic('name" id="trkname' . $gn, $use, '8', '50', '', 1) . ' ';
        //name
        $ret .= autoclic('mail" id="trkmail', $ml ? $ml : 'mail', '13', '50', '', 1) . ' ';
        //mail
        if (!$user && $id != $_SESSION['qb']) {
            $ret .= hlpbt('track_follow') . ' ';
        }
        $ret .= secure_tracks() . br();
    }
    //$ret.=balc('button','txtx" onclick="embed(\'video\')',picto('video'));
    $ret .= btd('bts' . $id, $sav) . ' ' . hlpbt('trackhelp') . ' ';
    //.hlpbt('track_orth').' ';
    $ret .= lj('" title="' . nms(65), 'popup_trkpreview_txtarea_', picto('view')) . ' ';
    //$ret.=divedit('txtarea','track','min-height:100px; min-width:320px;','',$d?$d:$msg);
    $ret .= micro_connedit('txtarea') . br() . txarea('txtarea', $d ? $d : $msg, 80, 16, atc('console')) . br();
    return $ret . $r['html'];
}

            $_POST['loc_code'] = $myrow["loc_code"];
            $_POST['component'] = $myrow["component"];
            // by Tom Moulton
            $_POST['workcentre_added'] = $myrow["workcentre_added"];
            $_POST['quantity'] = number_format2($myrow["quantity"], get_qty_dec($myrow["component"]));
            label_row(_("Component:"), $myrow["component"] . " - " . $myrow["description"]);
        }
        hidden('selected_id', $selected_id);
    } else {
        start_row();
        label_cell(_("Component:"), "class='label'");
        echo "<td>";
        echo stock_component_items_list('component', $selected_parent, null, false, true);
        if (get_post('_component_update')) {
            $Ajax->activate('quantity');
        }
        echo "</td>";
        end_row();
    }
    hidden('stock_id', $selected_parent);
    locations_list_row(_("Location to Draw From:"), 'loc_code', null);
    workcenter_list_row(_("Work Centre Added:"), 'workcentre_added', null);
    $dec = get_qty_dec(get_post('component'));
    $_POST['quantity'] = number_format2(input_num('quantity', 1), $dec);
    qty_row(_("Quantity:"), 'quantity', null, null, null, $dec);
    end_table(1);
    submit_add_or_update_center($selected_id == -1, '', 'both');
    end_form();
}
// ----------------------------------------------------------------------------------
end_page();