Example #1
0
function aff_cart_objects($idcaddie = 0, $url_base = "./catalog.php?categ=caddie&sub=gestion&quoi=panier&idcaddie=0", $no_del = false, $rec_history = 0, $no_point = false)
{
    global $msg;
    global $dbh;
    global $begin_result_liste, $end_result_liste;
    global $affich_tris_result_liste;
    global $pmb_nb_max_tri;
    global $nbr_lignes, $page, $nb_per_page_search;
    global $url_base_suppr_cart;
    $url_base_suppr_cart = $url_base;
    $cb_display = "\n\t\t\t<div id=\"el!!id!!Parent\" class=\"notice-parent\">\n\t    \t\t<span class=\"notice-heada\">!!heada!!</span>\n\t    \t\t<br />\n\t\t\t</div>\n\t\t\t";
    // nombre de références par pages
    if ($nb_per_page_search != "") {
        $nb_per_page = $nb_per_page_search;
    } else {
        $nb_per_page = 10;
    }
    // on récupére le nombre de lignes
    if (!$nbr_lignes) {
        $requete = "SELECT count(1) FROM caddie_content where caddie_id='" . $idcaddie . "' ";
        $res = pmb_mysql_query($requete, $dbh);
        $nbr_lignes = pmb_mysql_result($res, 0, 0);
    }
    if (!$page) {
        $page = 1;
    }
    $debut = ($page - 1) * $nb_per_page;
    //Calcul des variables pour la suppression de notices
    $modulo = $nbr_lignes % $nb_per_page;
    if ($modulo == 1) {
        $page_suppr = !$page ? 1 : $page - 1;
    } else {
        $page_suppr = $page;
    }
    $nb_after_suppr = $nbr_lignes ? $nbr_lignes - 1 : 0;
    if ($nbr_lignes) {
        // on lance la vraie requête
        $myCart = new caddie($idcaddie);
        $caddie_type = $myCart->type;
        switch ($caddie_type) {
            case "NOTI":
                $from = " caddie_content left join notices on notice_id = object_id ";
                $order_by = " index_sew ";
                break;
            case "EXPL":
                $from = " caddie_content left join exemplaires on expl_id=object_id left join notices on notice_id = expl_notice ";
                $order_by = " index_sew ";
                break;
            case "BULL":
                $from = " caddie_content left join bulletins on bulletin_id = object_id ";
                $order_by = " date_date ";
                break;
        }
        $requete = "SELECT * FROM {$from} where caddie_id='" . $idcaddie . "' order by {$order_by}";
        $requete .= " LIMIT {$debut},{$nb_per_page} ";
        //gestion du tri
        if ($caddie_type == "NOTI") {
            if ($nbr_lignes <= $pmb_nb_max_tri) {
                if ($_SESSION["tri"]) {
                    $requete = "SELECT notice_id,caddie_content.* FROM {$from} where caddie_id='" . $idcaddie . "'";
                    $sort = new sort('notices', 'base');
                    $requete = $sort->appliquer_tri($_SESSION["tri"], $requete, "notice_id", $debut, $nb_per_page);
                }
            }
        }
        // fin gestion tri
        $nav_bar = aff_pagination($url_base, $nbr_lignes, $nb_per_page, $page, 10, false, true);
        // l'affichage du résultat est fait après le else
    } else {
        print $msg[399];
        return;
    }
    $liste = array();
    $result = @pmb_mysql_query($requete, $dbh);
    // or die (pmb_mysql_error());
    if ($result) {
        if (pmb_mysql_num_rows($result)) {
            while ($temp = pmb_mysql_fetch_object($result)) {
                $liste[] = array('object_id' => $temp->object_id, 'content' => $temp->content, 'blob_type' => $temp->blob_type, 'flag' => $temp->flag);
            }
        }
    }
    if (!sizeof($liste) || !is_array($liste)) {
        print $msg[399];
        return;
    } else {
        print "\n\t\t<script>\n\t\t\tvar ajax_pointage=new http_request();\n\t\t\tvar num_caddie=0;\n\t\t\tvar num_item=0;\n\t\t\tvar action='';\n\t\t\tfunction add_pointage_item(idcaddie,id_item) {\n\t\t\t\tnum_caddie=idcaddie;\n\t\t\t\tnum_item=id_item;\n\t\t\t\taction='add_item';\t\n\t\t\t\tvar url = './ajax.php?module=catalog&categ=pointage_add&sub=pointage&moyen=manu&action=add_item&idcaddie='+idcaddie+'&id_item='+id_item;\n\t\t \t\tajax_pointage.request(url,0,'',1,pointage_callback,0,0);\n\t\t\t}\n\t\t\t\n\t\t\tfunction del_pointage_item(idcaddie,id_item) {\n\t\t\t\tnum_caddie=idcaddie;\n\t\t\t\tnum_item=id_item;\n\t\t\t\taction='del_item';\n\t\t\t\tvar url = './ajax.php?module=catalog&categ=pointage_del&sub=pointage&moyen=manu&action=del_item&idcaddie='+idcaddie+'&id_item='+id_item;\n\t\t\t\tajax_pointage.request(url,0,'',1,pointage_callback,0,0);   \n\t\t\t}\n\t\t\tfunction pointage_callback(response) {\n\t\t\t\tdata = eval('('+response+')');\n\t\t\t\tswitch (action) {\n\t\t\t\t\tcase 'add_item':\n\t\t\t\t\t\tif (data.res_pointage == 1) {\n\t\t\t\t\t\t\tdocument.getElementById('caddie_'+num_caddie+'_item_'+num_item).src='./images/depointer.png';\n\t\t\t\t\t\t\tdocument.getElementById('caddie_'+num_caddie+'_item_'+num_item).title='" . $msg['caddie_item_depointer'] . "';\n\t\t\t\t\t\t\tdocument.getElementById('caddie_'+num_caddie+'_item_'+num_item).setAttribute('onclick','del_pointage_item('+num_caddie+','+num_item+')');\n\t\t\t\t\t\t} else {\n\t\t\t\t\t\t\tdocument.getElementById('caddie_'+num_caddie+'_item_'+num_item).src='./images/pointer.png';\n\t\t\t\t\t\t\tdocument.getElementById('caddie_'+num_caddie+'_item_'+num_item).title='" . $msg['caddie_item_pointer'] . "';\n\t\t\t\t\t\t\tdocument.getElementById('caddie_'+num_caddie+'_item_'+num_item).setAttribute('onclick','add_pointage_item('+num_caddie+','+num_item+')');\n\t\t\t\t\t\t}\n\t\t\t\t\t\tbreak;\n\t\t\t\t\tcase 'del_item':\n\t\t\t\t\t\tif (data.res_pointage == 1) {\n\t\t\t\t\t\t\tdocument.getElementById('caddie_'+num_caddie+'_item_'+num_item).src='./images/pointer.png';\n\t\t\t\t\t\t\tdocument.getElementById('caddie_'+num_caddie+'_item_'+num_item).title='" . $msg['caddie_item_pointer'] . "';\n\t\t\t\t\t\t\tdocument.getElementById('caddie_'+num_caddie+'_item_'+num_item).setAttribute('onclick','add_pointage_item('+num_caddie+','+num_item+')');\n\t\t\t\t\t\t} else {\n\t\t\t\t\t\t\tdocument.getElementById('caddie_'+num_caddie+'_item_'+num_item).src='./images/depointer.png';\n\t\t\t\t\t\t\tdocument.getElementById('caddie_'+num_caddie+'_item_'+num_item).title='" . $msg['caddie_item_depointer'] . "';\n\t\t\t\t\t\t\tdocument.getElementById('caddie_'+num_caddie+'_item_'+num_item).setAttribute('onclick','del_pointage_item('+num_caddie+','+num_item+')');\n\t\t\t\t\t\t}\n\t\t\t\t\t\tbreak;\n\t\t\t\t}\n\t\t\t\tvar div = document.createElement('div');\n\t\t\t\tdiv.setAttribute('id','cart_'+data.idcaddie+'_nb_items');\n\t\t\t\tdiv.innerHTML = data.aff_cart_nb_items;\n\t\t\t\tdocument.getElementById('cart_'+data.idcaddie+'_nb_items').parentNode.replaceChild(div,document.getElementById('cart_'+data.idcaddie+'_nb_items'));\n\t\t\t}\n\t\t</script>";
        // en fonction du type de caddie on affiche ce qu'il faut
        if ($caddie_type == "NOTI") {
            // boucle de parcours des notices trouvées
            // inclusion du javascript de gestion des listes dépliables
            // début de liste
            print $begin_result_liste;
            //Affichage du lien impression et panier
            if ($rec_history && $_SESSION["CURRENT"] !== false) {
                $current = $_SESSION["CURRENT"];
                print "&nbsp;<a href='#' onClick=\"openPopUp('./print_cart.php?current_print={$current}&action=print_prepare','print',600,700,-2,-2,'scrollbars=yes,menubar=0'); return false;\"><img src='./images/basket_small_20x20.gif' border='0' align='center' alt=\"" . $msg["histo_add_to_cart"] . "\" title=\"" . $msg["histo_add_to_cart"] . "\"></a>&nbsp;<a href='#' onClick=\"openPopUp('./print.php?current_print={$current}&action_print=print_prepare','print',500,600,-2,-2,'scrollbars=yes,menubar=0'); return false;\"><img src='./images/print.gif' border='0' align='center' alt=\"" . $msg["histo_print"] . "\" title=\"" . $msg["histo_print"] . "\"/></a>";
                print "&nbsp;<a href='#' onClick=\"openPopUp('./download.php?current_download={$current}&action_download=download_prepare" . $tri_id_info . "','download',500,600,-2,-2,'scrollbars=yes,menubar=0'); return false;\"><img src='./images/upload_docnum.gif' border='0' align='center' alt=\"" . $msg["docnum_download"] . "\" title=\"" . $msg["docnum_download"] . "\"/></a>";
                if ($nbr_lignes <= $pmb_nb_max_tri) {
                    print "&nbsp;" . $affich_tris_result_liste;
                }
            }
            print caddie::show_actions($idcaddie, $caddie_type);
            while (list($cle, $object) = each($liste)) {
                if ($object[content] == "") {
                    // affichage de la liste des notices sous la forme 'expandable'
                    $requete = "SELECT * FROM notices WHERE notice_id={$object['object_id']} LIMIT 1";
                    $fetch = pmb_mysql_query($requete);
                    if (pmb_mysql_num_rows($fetch)) {
                        $notice = pmb_mysql_fetch_object($fetch);
                        if ($notice->niveau_biblio == 'b') {
                            // notice de bulletin
                            $rqtbull = "select bulletin_id from bulletins where num_notice=" . $notice->notice_id;
                            $fetchbull = pmb_mysql_query($rqtbull);
                            $bull = pmb_mysql_fetch_object($fetchbull);
                            $link = "./catalog.php?categ=serials&sub=bulletinage&action=view&bul_id=" . $bull->bulletin_id;
                            // pas affichés pour l'instant:
                            $link_expl = '';
                            $link_explnum = '';
                            if (!$no_point) {
                                if ($object[flag]) {
                                    $marque_flag = "<img src='images/depointer.png' id='caddie_" . $idcaddie . "_item_" . $notice->notice_id . "' title=\"" . $msg['caddie_item_depointer'] . "\" onClick='del_pointage_item(" . $idcaddie . "," . $notice->notice_id . ");' style='cursor: pointer'/>";
                                } else {
                                    $marque_flag = "<img src='images/pointer.png' id='caddie_" . $idcaddie . "_item_" . $notice->notice_id . "' title=\"" . $msg['caddie_item_pointer'] . "\" onClick='add_pointage_item(" . $idcaddie . "," . $notice->notice_id . ");' style='cursor: pointer'/>";
                                }
                            } else {
                                if ($object[flag]) {
                                    $marque_flag = "<img src='images/tick.gif'/>";
                                } else {
                                    $marque_flag = "";
                                }
                            }
                            if (!$no_del) {
                                $lien_suppr_cart = "<a href='{$url_base}&action=del_item&object_type=NOTI&item={$notice->notice_id}&page={$page_suppr}&nbr_lignes={$nb_after_suppr}&nb_per_page={$nb_per_page}'><img src='./images/basket_empty_20x20.gif' alt='basket' title=\"" . $msg[caddie_icone_suppr_elt] . "\" /></a> {$marque_flag}";
                            } else {
                                $lien_suppr_cart = $marque_flag;
                            }
                            $display = new mono_display($notice, 6, $link, 1, $link_expl, $lien_suppr_cart, $link_explnum, 0, 0, 1, 1);
                            print pmb_bidi($display->result);
                        } elseif ($notice->niveau_biblio != 's' && $notice->niveau_biblio != 'a') {
                            // notice de monographie
                            $link = './catalog.php?categ=isbd&id=!!id!!';
                            $link_expl = './catalog.php?categ=edit_expl&id=!!notice_id!!&cb=!!expl_cb!!&expl_id=!!expl_id!!';
                            $link_explnum = './catalog.php?categ=edit_explnum&id=!!notice_id!!&explnum_id=!!explnum_id!!';
                            if (!$no_point) {
                                if ($object[flag]) {
                                    $marque_flag = "<img src='images/depointer.png' id='caddie_" . $idcaddie . "_item_" . $notice->notice_id . "' title=\"" . $msg['caddie_item_depointer'] . "\" onClick='del_pointage_item(" . $idcaddie . "," . $notice->notice_id . ");' style='cursor: pointer'/>";
                                } else {
                                    $marque_flag = "<img src='images/pointer.png' id='caddie_" . $idcaddie . "_item_" . $notice->notice_id . "' title=\"" . $msg['caddie_item_pointer'] . "\" onClick='add_pointage_item(" . $idcaddie . "," . $notice->notice_id . ");' style='cursor: pointer'/>";
                                }
                            } else {
                                if ($object[flag]) {
                                    $marque_flag = "<img src='images/tick.gif'/>";
                                } else {
                                    $marque_flag = "";
                                }
                            }
                            if (!$no_del) {
                                $lien_suppr_cart = "<a href='{$url_base}&action=del_item&object_type=NOTI&item={$notice->notice_id}&page={$page_suppr}&nbr_lignes={$nb_after_suppr}&nb_per_page={$nb_per_page}'><img src='./images/basket_empty_20x20.gif' alt='basket' title=\"" . $msg[caddie_icone_suppr_elt] . "\" /></a> {$marque_flag}";
                            } else {
                                $lien_suppr_cart = $marque_flag;
                            }
                            $display = new mono_display($notice, 6, $link, 1, $link_expl, $lien_suppr_cart, $link_explnum, 0, 0, 1, 1);
                            print pmb_bidi($display->result);
                        } else {
                            // on a affaire à un périodique
                            // préparation des liens pour lui
                            $link_serial = './catalog.php?categ=serials&sub=view&serial_id=!!id!!';
                            $link_analysis = './catalog.php?categ=serials&sub=bulletinage&action=view&bul_id=!!bul_id!!&art_to_show=!!id!!';
                            $link_bulletin = './catalog.php?categ=serials&sub=bulletinage&action=view&bul_id=!!id!!';
                            if (!$no_point) {
                                if ($object[flag]) {
                                    $marque_flag = "<img src='images/depointer.png' id='caddie_" . $idcaddie . "_item_" . $notice->notice_id . "' title=\"" . $msg['caddie_item_depointer'] . "\" onClick='del_pointage_item(" . $idcaddie . "," . $notice->notice_id . ");' style='cursor: pointer'/>";
                                } else {
                                    $marque_flag = "<img src='images/pointer.png' id='caddie_" . $idcaddie . "_item_" . $notice->notice_id . "' title=\"" . $msg['caddie_item_pointer'] . "\" onClick='add_pointage_item(" . $idcaddie . "," . $notice->notice_id . ");' style='cursor: pointer'/>";
                                }
                            } else {
                                if ($object[flag]) {
                                    $marque_flag = "<img src='images/tick.gif'/>";
                                } else {
                                    $marque_flag = "";
                                }
                            }
                            if (!$no_del) {
                                $lien_suppr_cart = "<a href='{$url_base}&action=del_item&action=del_item&object_type=NOTI&item={$notice->notice_id}&page={$page_suppr}&nbr_lignes={$nb_after_suppr}&nb_per_page={$nb_per_page}'><img src='./images/basket_empty_20x20.gif' alt='basket' title=\"" . $msg[caddie_icone_suppr_elt] . "\" /></a> {$marque_flag}";
                            } else {
                                $lien_suppr_cart = $marque_flag;
                            }
                            if ($notice->niveau_biblio == 's') {
                                $link_explnum = "./catalog.php?categ=serials&sub=explnum_form&serial_id=!!serial_id!!&explnum_id=!!explnum_id!!";
                            } else {
                                $link_explnum = "./catalog.php?categ=serials&sub=analysis&action=explnum_form&bul_id=!!bul_id!!&analysis_id=!!analysis_id!!&explnum_id=!!explnum_id!!";
                            }
                            $serial = new serial_display($notice, 6, $link_serial, $link_analysis, $link_bulletin, $lien_suppr_cart, $link_explnum, 0, 0, 1, 1);
                            print pmb_bidi($serial->result);
                        }
                    }
                } else {
                    if ($object[flag]) {
                        $marque_flag = "<img src='images/tick.gif'/>";
                    } else {
                        $marque_flag = "";
                    }
                    if (!$no_del) {
                        $lien_suppr_cart = "<a href='{$url_base}&action=del_item&object_type=EXPL_CB&item=" . $object[content] . "&page={$page_suppr}&nbr_lignes={$nb_after_suppr}&nb_per_page={$nb_per_page}'><img src='./images/basket_empty_20x20.gif' alt='basket' title=\"" . $msg[caddie_icone_suppr_elt] . "\" /></a> {$marque_flag}";
                    } else {
                        $lien_suppr_cart = $marque_flag;
                    }
                    $cb_display = "\n\t\t\t\t\t\t<div id=\"el!!id!!Parent\" class=\"notice-parent\">\n\t\t\t\t    \t\t<span class=\"notice-heada\"><strong>{$lien_suppr_cart} " . $msg["4014"] . " : {$object['content']}&nbsp;: {$msg[395]}</strong></span>\n\t\t\t\t    \t\t<br />\n\t\t\t\t\t\t</div>\n\t\t\t\t\t\t";
                    print $cb_display;
                }
            }
            // fin de liste
            print $end_result_liste;
        }
        // fin si NOTI
        // si EXPL
        if ($caddie_type == "EXPL") {
            // boucle de parcours des exemplaires trouvés
            // inclusion du javascript de gestion des listes dépliables
            // début de liste
            print $begin_result_liste;
            print caddie::show_actions($idcaddie, $caddie_type);
            while (list($cle, $expl) = each($liste)) {
                if (!$expl[content]) {
                    if ($stuff = get_expl_info($expl[object_id])) {
                        if (!$no_point) {
                            if ($expl[flag]) {
                                $marque_flag = "<img src='images/depointer.png' id='caddie_" . $idcaddie . "_item_" . $stuff->expl_id . "' title=\"" . $msg['caddie_item_depointer'] . "\" onClick='del_pointage_item(" . $idcaddie . "," . $stuff->expl_id . ");' style='cursor: pointer'/>";
                            } else {
                                $marque_flag = "<img src='images/pointer.png' id='caddie_" . $idcaddie . "_item_" . $stuff->expl_id . "' title=\"" . $msg['caddie_item_pointer'] . "\" onClick='add_pointage_item(" . $idcaddie . "," . $stuff->expl_id . ");' style='cursor: pointer'/>";
                            }
                        } else {
                            if ($expl[flag]) {
                                $marque_flag = "<img src='images/tick.gif'/>";
                            } else {
                                $marque_flag = "";
                            }
                        }
                        if (!$no_del) {
                            $stuff->lien_suppr_cart = "<a href='{$url_base}&action=del_item&object_type=EXPL&item={$stuff->expl_id}&page={$page_suppr}&nbr_lignes={$nb_after_suppr}&nb_per_page={$nb_per_page}'><img src='./images/basket_empty_20x20.gif' alt='basket' title=\"" . $msg[caddie_icone_suppr_elt] . "\" /></a> {$marque_flag}";
                        } else {
                            $stuff->lien_suppr_cart = $marque_flag;
                        }
                        $stuff = check_pret($stuff);
                        print pmb_bidi(print_info($stuff, 0, 1));
                    } else {
                        print "<strong>ID : {$expl['object_id']}&nbsp;: {$msg[395]}</strong>";
                    }
                } else {
                    if (!$no_point) {
                        if ($expl[flag]) {
                            $marque_flag = "<img src='images/depointer.png' id='caddie_" . $idcaddie . "_item_" . $stuff->expl_id . "' title=\"" . $msg['caddie_item_depointer'] . "\" onClick='del_pointage_item(" . $idcaddie . "," . $stuff->expl_id . ");' style='cursor: pointer'/>";
                        } else {
                            $marque_flag = "<img src='images/pointer.png' id='caddie_" . $idcaddie . "_item_" . $stuff->expl_id . "' title=\"" . $msg['caddie_item_pointer'] . "\" onClick='add_pointage_item(" . $idcaddie . "," . $stuff->expl_id . ");' style='cursor: pointer'/>";
                        }
                    } else {
                        if ($expl[flag]) {
                            $marque_flag = "<img src='images/tick.gif'/>";
                        } else {
                            $marque_flag = "";
                        }
                    }
                    if (!$no_del) {
                        $lien_suppr_cart = "<a href='{$url_base}&action=del_item&object_type=EXPL_CB&item=" . $expl[content] . "&page={$page_suppr}&nbr_lignes={$nb_after_suppr}&nb_per_page={$nb_per_page}'><img src='./images/basket_empty_20x20.gif' alt='basket' title=\"" . $msg[caddie_icone_suppr_elt] . "\" /></a> {$marque_flag}";
                    } else {
                        $lien_suppr_cart = $marque_flag;
                    }
                    $cb_display = "\n\t\t\t\t\t\t<div id=\"el!!id!!Parent\" class=\"notice-parent\">\n\t\t\t\t    \t\t<span class=\"notice-heada\"><strong>{$lien_suppr_cart} Code-barre : {$expl['content']}&nbsp;: {$msg[395]}</strong></span>\n\t\t\t\t    \t\t<br />\n\t\t\t\t\t\t</div>\n\t\t\t\t\t\t";
                    print $cb_display;
                }
            }
            // fin de liste
            print $end_result_liste;
        }
        // fin si EXPL
        if ($caddie_type == "BULL") {
            // boucle de parcours des bulletins trouvés
            // inclusion du javascript de gestion des listes dépliables
            // début de liste
            print $begin_result_liste;
            print caddie::show_actions($idcaddie, $caddie_type);
            while (list($cle, $expl) = each($liste)) {
                if (!$no_del) {
                    $show_del = 1;
                } else {
                    $show_del = 0;
                }
                if ($bull_aff = show_bulletinage_info($expl[object_id], 0, $show_del, $expl[flag], 1)) {
                    print pmb_bidi($bull_aff);
                } else {
                    if (!$no_point) {
                        if ($expl[flag]) {
                            $marque_flag = "<img src='images/depointer.png' id='caddie_" . $idcaddie . "_item_" . $expl[object_id] . "' title=\"" . $msg['caddie_item_depointer'] . "\" onClick='del_pointage_item(" . $idcaddie . "," . $expl[object_id] . ");' style='cursor: pointer'/>";
                        } else {
                            $marque_flag = "<img src='images/pointer.png' id='caddie_" . $idcaddie . "_item_" . $expl[object_id] . "' title=\"" . $msg['caddie_item_pointer'] . "\" onClick='add_pointage_item(" . $idcaddie . "," . $expl[object_id] . ");' style='cursor: pointer'/>";
                        }
                    } else {
                        if ($expl[flag]) {
                            $marque_flag = "<img src='images/tick.gif'/>";
                        } else {
                            $marque_flag = "";
                        }
                    }
                    if (!$no_del) {
                        $lien_suppr_cart = "<a href='{$url_base}&action=del_item&object_type=EXPL_CB&item=" . $expl[content] . "&page={$page_suppr}&nbr_lignes={$nb_after_suppr}&nb_per_page={$nb_per_page}'><img src='./images/basket_empty_20x20.gif' alt='basket' title=\"" . $msg[caddie_icone_suppr_elt] . "\" /></a> {$marque_flag}";
                    } else {
                        $lien_suppr_cart = $marque_flag;
                    }
                    $cb_display = "\n\t\t\t\t\t\t<div id=\"el!!id!!Parent\" class=\"notice-parent\">\n\t\t\t\t    \t\t<span class=\"notice-heada\"><strong>{$lien_suppr_cart} Code-barre : {$expl['content']}&nbsp;: {$msg[395]}</strong></span>\n\t\t\t\t    \t\t<br />\n\t\t\t\t\t\t</div>\n\t\t\t\t\t\t";
                    print $cb_display;
                }
            }
            // fin de liste
            print $end_result_liste;
        }
        // fin si BULL
    }
    print "<br />" . $nav_bar;
    return;
}