| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| Ausgewählter Eintrag: | Zur Liste |
################################################################
# -------- Formular-Subroutinen aus db generieren ------- #
#################################################################
$a_debug.= "${ \('-'x5) } <b>Subroutinen dynamisch aufbauen</b> ${ \('-'x5) }<br>";
if ($use)
{# -------- Aktionen in Datenbanken je nach $act ------- #
my $db_name = substr($use, 2);
if ($act eq "n")
{
put undef ,"$db_name";
$act = "n"; # $act auf n stellen, damit wieder Eingabeformular aus Sub angezeigt wird
$a_actiontext = "Datensatz hizugefügt...";
}
elsif ($act eq "c" && $dsn ne "")
{
mod "Id==!$dsn", undef, "$db_name";
$act = "n"; # $act auf n stellen, damit wieder Eingabeformular aus Sub angezeigt wird
$a_actiontext = "Datensatz geändert...";
}
elsif ($act eq "d" && $dsn ne "")
{
del "Id==!$dsn", "$db_name";
$act = "n"; # $act auf n stellen, damit wieder Eingabeformular aus Sub angezeigt wird
$a_actiontext = "Datensatz gelöscht...";
}
# -------- Ende Aktionen in Datenbank $use ja nach $act ------- #
$a_debug.="\$use nicht leer -> Subs aus DB-Feld holen<br>";
get "", "$db_sub"; # Daten aus dbnames holen
while (get_next($db_sub))
{
if ($code1 ne "") # wenn feld v. code f. Formular z. entspr. DB nicht leer
{
$a_debug.="Quelltext f. Sub $recht_nutzer holen (db-feld code1 mit Inhalt)<br>";
eval "sub $recht_nutzer { $code1 }";
}
}
}else
{
$a_debug.="\$use leer -> subs nicht aufgebaut<br>";
}
# ........ Beginn Fehler bei nicht deklarierten SUBS abfangen ........ #
sub AUTOLOAD
{my $sub=substr($AUTOLOAD, rindex($AUTOLOAD, ":")+1);
my $recht_nutzer = ucfirst(substr($sub,2));
$anz_subfehler=<<EOF;
<font color=red><p class=norm><b>Sorry - Eingabe noch nicht möglich - wir arbeiten daran!</b><br>
Arbeitsblatt für $recht_nutzer noch nicht fertiggestellt!<br>
<span class=klein>(Fehlender Teil $sub)</span></p></font>
<span class=klein><span align=right>[ <a href=$_link&$z_link1>ZURÜCK</a> ]</span></span>
EOF
}
if ($use)
{$a_debug.= "${ \('-'x5) } <b>Sub $use aufgerufen</b> ${ \('-'x5) }<br>";
@subrueck = &{$use};
$anz_mitteltext2.= $subrueck[0];
$a_debug.= $subrueck[1].$subrueck[2];
undef (@subrueck);
$a_debug.= "${ \('-'x5) } <b>Sub beendet</b> ${ \('-'x5) }<br>";
}else
{$anz_mitteltext2=<<EOF;
...was anderes....
| Alle Einträge zum Thema: | Zur Liste |
<perl>
out "<font color=red>Ausgabe mittels out am Templateanfang (erste Zeile nach <perl>) wird in Sub nicht wiederholt und kommt trotzdem als Ausgabe nochmal?????</font>";
$ausgabe=<<EOF;
<table border=1 bordercolor=blue cellpadding=2 cellspacing=0><tr><td colspan=2>Titel der Tabelle</td></tr>
<td width=25% align=left valign=top bgcolor=limegreen>Schmale<br>Spalte</td>
<td width=75% align=center>Hier soll die Datenausgabe kommen:<br>(Aufruf der Sub mit verketteter Einleitung in Variable \$ausgabe)
EOF
$ausgabe.= &_doall("w_news");
$ausgabe.=<<EOF;
</td><tr></table>
EOF
# Ausgabe der HTML-Seite #
out<<EOF;
<html><head>
<title>Test für do_all</title>
<body>
<table width=350 align=center border=1 bordercolor=red><tr><td align=center>Hier folgt die Eigentliche Ausgabetabelle</td></tr></table>
$ausgabe
$anz_daten
</body></html>
EOF
# Subdefinition #
sub _doall()
{my $a_daten=<<EOF;
<table border=1 bordercolor=darkviolett width=400><tr><td bgcolor=lightcyan>Nun die DB-Ausgabe<br>
EOF
$a_daten.=do_all "db=$_[0]";
$a_daten.=<<EOF;
</td</tr><table>
EOF
return($a_daten);}
</perl>
und die URL zum Ansehn (kann nichts kaputt gehen) http://dabadu.de/baseportal/workout/doalltest
################################################################
# -------- Formular-Subroutinen aus db generieren ------- #
#################################################################
$a_debug.= "${ \('-'x5) } <b>Subroutinen dynamisch aufbauen</b> ${ \('-'x5) }<br>";
if ($use)
{# -------- Aktionen in Datenbanken je nach $act ------- #
my $db_name = substr($use, 2);
if ($act eq "n")
{
put undef ,"$db_name";
$act = "n"; # $act auf n stellen, damit wieder Eingabeformular aus Sub angezeigt wird
$a_actiontext = "Datensatz hizugefügt...";
}
elsif ($act eq "c" && $dsn ne "")
{
mod "Id==!$dsn", undef, "$db_name";
$act = "n"; # $act auf n stellen, damit wieder Eingabeformular aus Sub angezeigt wird
$a_actiontext = "Datensatz geändert...";
}
elsif ($act eq "d" && $dsn ne "")
{
del "Id==!$dsn", "$db_name";
$act = "n"; # $act auf n stellen, damit wieder Eingabeformular aus Sub angezeigt wird
$a_actiontext = "Datensatz gelöscht...";
}
# -------- Ende Aktionen in Datenbank $use ja nach $act ------- #
$a_debug.="\$use nicht leer -> Subs aus DB-Feld holen<br>";
get "", "$db_sub"; # Daten aus dbnames holen
while (get_next($db_sub))
{
if ($code1 ne "") # wenn feld v. code f. Formular z. entspr. DB nicht leer
{
$a_debug.="Quelltext f. Sub $recht_nutzer holen (db-feld code1 mit Inhalt)<br>";
eval "sub $recht_nutzer { $code1 }";
}
}
}else
{
$a_debug.="\$use leer -> subs nicht aufgebaut<br>";
}
# ........ Beginn Fehler bei nicht deklarierten SUBS abfangen ........ #
sub AUTOLOAD
{my $sub=substr($AUTOLOAD, rindex($AUTOLOAD, ":")+1);
my $recht_nutzer = ucfirst(substr($sub,2));
$anz_subfehler=<<EOF;
<font color=red><p class=norm><b>Sorry - Eingabe noch nicht möglich - wir arbeiten daran!</b><br>
Arbeitsblatt für $recht_nutzer noch nicht fertiggestellt!<br>
<span class=klein>(Fehlender Teil $sub)</span></p></font>
<span class=klein><span align=right>[ <a href=$_link&$z_link1>ZURÜCK</a> ]</span></span>
EOF
}
if ($use)
{$a_debug.= "${ \('-'x5) } <b>Sub $use aufgerufen</b> ${ \('-'x5) }<br>";
@subrueck = &{$use};
$anz_mitteltext2.= $subrueck[0];
$a_debug.= $subrueck[1].$subrueck[2];
undef (@subrueck);
$a_debug.= "${ \('-'x5) } <b>Sub beendet</b> ${ \('-'x5) }<br>";
}else
{$anz_mitteltext2=<<EOF;
...was anderes....
<perl>
out <<EOF;
<table width=350 align=center border=1 bordercolor=red><tr><td align=center>Hier folgt die Eigentliche Ausgabetabelle</td></tr></table>
<table border=1 bordercolor=darkviolett width=400><tr><td bgcolor=lightcyan>Nun die DB-Ausgabe<br>
EOF
$do_all=&_doall("db=w_news");
eval $do_all;
out <<EOF;
</td</tr><table>
EOF
{
$do="";
eval {$do="do_all '$_[0]'"};
return($do);
}
</perl>
$do_all=&_doall("do_all 'db=Datei Name==xyz sort=-abc','sid=0101010','key=input'");#--------- z.B.
eval $do_all;
sub _doall
{
$do="";
eval {$do="@_"};
return($do);
}
| Liste der Einträge von 40950 bis 41100: | 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 |