baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
<perl> if (!$pdf_erzeugung){ out <<EOF;
<body> EOF }
|
Alle Einträge zum Thema: | Zur Liste |
<perl> $_header="Content-type: application/pdf\n\n"; $url="...die url zu der ausgabeseite..."; out get "http://pdf.baseportal.de?url=".convert_url($url); </perl>
#------------------------------------------------# #--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"; out get "http://pdf.baseportal.de?url=".convert_url($url); }
<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&cmd=fm_search&namerein=$namerein&sid=$sid\">Suchen</a></li>\n"; out "<li><a href=\"$gv_mainroot$htx&cmd=fm_add&namerein=$namerein&sid=$sid\">Hinzufügen</a></li>\n" if ($up_auth > "2"); # Hinzufügen zugelassen out "<li><a href=\"$gv_mainroot$htx&cmd=do_print&namerein=$namerein&sid=$sid$append\">Drucken</a></li>\n" if ($cmd eq "do_liste"); # Druck-Auswahl in der Listansicht out "<li><a href=\"$gv_mainroot$htx&cmd=do_pdf&namerein=$namerein&sid=$sid$append\">PDF</a></li>\n" if ($cmd eq "do_liste"); # Druck-Auswahl in der Listansicht out "<li><a href=\"$gv_mainroot$htx&cmd=fm_anz&Id=$aktdatei_id&namerein=$namerein&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&namerein=$namerein&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>
<title>Adressen +++</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
$_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); darf kein anderes Zeichen vor dem out get... ausgegeben werden. passiert bei dir aber oben mit dem html-header
>> verständlich?
>> aber in der Doku steht doch, daß man den eigentlichen PDF-Aufruf und die Listenerstellung in ein Template packen kann.
<perl> if (!$pdf_erzeugung){ out <<EOF;
<body> EOF }
if ($cmd ne "do_pdf"){
if (!$pdf_erzeugung){
<include src=../bg_p/bg_psub1> <include src=../bg_p/bg_psub2> <perl> if ($cmd ne "do_pdf"){ out <<EOF; <title>Adressen +++</title>
</head>
EOF }
#-- Sub-Routinen --# #--------------------------------------------------------------------#
Liste der Einträge von 23851 bis 24001: | Einklappen | Zur Eingabe |
Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < | Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge |
© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |