$sql_mid_mod = "SELECT mid FROM ".$xoopsDB->prefix('modules')." WHERE dirname = '$mydirname'";
$mcx_sql = $xoopsDB->query( "SELECT bid FROM ".$xoopsDB->prefix("newblocks")." WHERE mid=($sql_mid_mod) AND show_func='pical_minical_ex_show'" ) ;
list($bid)= $xoopsDB->fetchRow( $mcx_sql );
$bid = 79