<include src=../bg_p/bg_psub1>
<include src=../bg_p/bg_psub2>
<title>Adressen +++</title>

</head>

<perl>
#--------------------------------------------------------------------#
#--                            Sub-Routinen                        --#
#--------------------------------------------------------------------#

#--SR            Ausgabe Liste                   #
#------------------------------------------------#
sub do_liste
   {
     ......
   }
#------------------------------------------------#
#--SR    Ausgabe Liste als PDF-Dokument          #
#------------------------------------------------#
sub do_pdf
   {
$_header="Content-type: application/pdf\n\n";
$url="$gv_mainroot$htx&cmd=do_print&namerein=$namerein&sid=$sid$append&.pdf";
out get "http://pdf.baseportal.de?url=".convert_url($url);
   }
#------------------------------------------------#
#--SR               Ausgabe Links                #
#------------------------------------------------#
sub do_links
   {
    out "<ul>";
    out "<li><a href=\"http://www.bestguide.de\">Home</a></li>\n";
    out "<li><a href=\"javascript:history.back()\">Zurück</a></li>\n";
    out "<li><a href=\"$gv_mainroot$htx&amp;cmd=fm_search&amp;namerein=$namerein&amp;sid=$sid\">Suchen</a></li>\n";
    out "<li><a href=\"$gv_mainroot$htx&amp;cmd=fm_add&amp;namerein=$namerein&amp;sid=$sid\">Hinzufügen</a></li>\n" if ($up_auth > "2"); # Hinzufügen zugelassen
    out "<li><a href=\"$gv_mainroot$htx&amp;cmd=do_print&amp;namerein=$namerein&amp;sid=$sid$append\">Drucken</a></li>\n" if ($cmd eq "do_liste"); # Druck-Auswahl in der Listansicht
    out "<li><a href=\"$gv_mainroot$htx&amp;cmd=do_pdf&amp;namerein=$namerein&amp;sid=$sid$append\">PDF</a></li>\n" if ($cmd eq "do_liste"); # Druck-Auswahl in der Listansicht
    out "<li><a href=\"$gv_mainroot$htx&amp;cmd=fm_anz&amp;Id=$aktdatei_id&amp;namerein=$namerein&amp;sid=$sid\">Ansicht</a></li>\n" if ($cmd eq "fm_mod"); # Detail-Ansicht in der Mod-Ansicht
    out "<li><a href=\"$gv_mainroot$gv_menuprog&amp;namerein=$namerein&amp;sid=$sid\">Ende</a></li>\n";
    out "</ul>\n";
   }
   }
#------------------------------------------------#
#--SR          Programmsteuerung                 #
#------------------------------------------------#
sub do_progsteuerung2
   {
    &do_popup if ($cmd eq "do_popup");
    &fm_search if (($cmd eq "fm_search") || ($cmd eq "login") || (!$cmd));
    &do_add if ($cmd eq "do_add");
    &fm_add if ($cmd eq "fm_add");
    &do_mod if ($cmd eq "do_mod");
    &fm_mod if ($cmd eq "fm_mod");
    &fm_anz if ($cmd eq "fm_anz");
    &do_del if ($cmd eq "do_del");
    &do_liste if ($cmd eq "do_liste");
    &do_print if ($cmd eq "do_print");
    &do_pdf if ($cmd eq "do_pdf");
   }
#--------------------------------------------------------------------#
#--          Ende Subroutinen  /  Anfang Hauptprogramm             --#
#--------------------------------------------------------------------#

$aktdatei_id = $Id;          # wichtig für Hauptdatei !!!!
&do_variablen;               # Setzen Standard-Variablen
&do_progsteuerung;           # Programmsteuerung mit Login-Prozedur
</perl>
</body></html>