function plug_microform($p, $id)
{
$rid = 'mfr' . randid();
//echo $p.'-'.$id;
$nod = ses('mform', ses('qb') . '_microform_' . $id);
req('pop');
ses('mformj', $rid . '_plug___microform_plug*microform_' . ajx($p) . '_' . $id);
reqp('msql');
$msq = new msql('', $nod);
//table
list($p, $tp) = explode('§', $p);
$rb = mform_mr($p);
//p($rb);
$msq->create($rb);
$ret .= make_form($p, 'mfr' . $id, '_plug___microform_mform*j_' . ajx($p, '') . '_' . $id . '_') . br();
if (auth(4)) {
$ret .= msqlink('users', ses('mform')) . ' ' . btn('txtsmall2', $nod) . ' ';
}
if ($tp == 1) {
$ret .= mform_read($id);
} elseif ($tp) {
$ret .= plugin('msqtemplate', $nod, $tp);
}
return divd($rid, $ret . $bt);
}
function plug_msqads($p, $o)
{
$rid = 'plg' . randid();
$p = $p ? $p : 'msqads';
reqp('msql');
$msq = new msql('', $p);
//table
$rb = array('day', 'quest', 'resp');
$msq->create($rb);
$ret .= input(1, $rb[0], $rb[0], '', 1) . br() . txarea($rb[1], '', 40, 4) . txarea($rb[2], '', 40, 4);
$ret .= lj('txtbox', $rid . '_plug___msqads_msqads*j_' . $p . '__' . implode('|', $rb), 'save') . ' ';
$ret .= msqlink('users', ses('qb') . '_' . $p);
$msq->read('i');
return $ret . divd($rid, make_table($msq->ret, 'txtblc', 'txtx'));
}
function plug_model($p, $o)
{
$rid = 'plg' . randid();
$p = $p ? $p : 'model';
reqp('msql');
$msq = new msql('', $p);
//table
$rb = array('title', 'text');
$msq->create($rb);
//cols
$ret .= input(1, $rb[0], '', '', 20);
$ret .= lj('txtbox', $rid . '_plug___model_model*j_' . $p . '__' . implode('|', $rb), 'save') . br();
$ret .= txarea($rb[1], '', 40, 4);
$ret .= msqlink('users', ses('qb') . '_' . $p);
$msq->read('i');
return $ret . divd($rid, make_table($msq->ret, 'txtblc', 'txtx'));
}
