Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Leser: 1
 |
|< 1 2 >| |  |
17 Einträge, 2 Seiten |
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
if ($head_de and $deutsch and ($check1 or $check2 or $check3 or $check4) and $ersteller and $werk)
{
....
$merker = 1;
}
if ($head_en and $englisch and ($check1 or $check2 or $check3 or $check4) and $ersteller and $werk)
{
.....
$merker = 1;
}
if ($head_fr and $franz and ($check1 or $check2 or $check3 or $check4) and $ersteller and $werk)
{
.....
$merker = 1;
}
![[Homepage]](/battie/theme/default/homepage.gif)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
my $merker_deutsch = 1;
my $merker_englisch = 1;
my $merker_franz = 1;
if ($head_de and $deutsch and ($check1 or $check2 or $check3 or $check4) and $ersteller and $werk)
{
....
}
else{
$merker_deutsch = 0;
}
if ($head_en and $englisch and ($check1 or $check2 or $check3 or $check4) and $ersteller and $werk)
{
.....
}
else{
$merker_englisch = 0;
}
if ($head_fr and $franz and ($check1 or $check2 or $check3 or $check4) and $ersteller and $werk)
{
.....
}
else{
$merker_franz = 0;
}
if($merker_deutsch && $merker_englisch && $merker_franz){
# speichern
}
1
2
3
4
5
6
if ($head_de and $deutsch and ($check1 || $check2 || $check3 ||$check4) and $ersteller and $werk)
{
$sth_insert->execute(.....) or die $DBI::errstr;
$merker = 1;
}
........
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
use strict;
use warnings;
my ( $check1, $check2, $check3, $check4, $ersteller ) = ('1') x 5;
my $head_de = '1';
my $deutsch = '1';
my $head_en = '';
my $english = '';
my $head_fr = '1';
my $franz = '';
if ( ( $check1 or $check2 or $check3 or $check4 ) and $ersteller ) {
if ( $head_de and $deutsch ) {
print "deutsch OK\n";
}
elsif ( $head_de or $deutsch ) {
print "deutsch FEHLER\n";
}
else {
print "kein deutsch\n";
}
if ( $head_en and $english ) {
print "english OK\n";
}
elsif ( $head_en or $english ) {
print "english FEHLER\n";
}
else {
print "kein english\n";
}
if ( $head_fr and $franz ) {
print "franz OK\n";
}
elsif ( $head_fr or $franz ) {
print "franz FEHLER\n";
}
else {
print "kein franz\n";
}
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
my $dbh = DBI->connect($DBN,$DBUSER,$DBPASS) or die $DBI::errstr;
my $statement_insert="INSERT INTO $TABELLE VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?)";
my $sth_insert=$dbh->prepare($statement_insert) or die $DBI::errstr;
my $merker = 0;
if ($head_de and $deutsch and ($check1 || $check2 || $check3 ||$check4) and $ersteller and $werk)
{
$sth_insert->execute(.......) or die $DBI::errstr;
$merker = 1;
}
if ($head_en and $englisch and ($check1 || $check2 || $check3 ||$check4) and $ersteller and $werk)
{
$sth_insert->execute(........) or die $DBI::errstr;
$merker = 1;
}
if ($head_fr and $franz and ($check1 || $check2 || $check3 ||$check4) and $ersteller and $werk)
{
$sth_insert->execute(.........) or die $DBI::errstr;
$merker = 1;
}
if ($merker == 0) {
&warnung();
}
else {
&ausgabe();
}
$sth_insert->finish();
$dbh->disconnect();
}
sub warnung {
print "<HTML>\n";
print "<head><title>Warnung</title></head>\n";
print "<body>\n";
print "Der Eintrag konnte nicht gespeichert werden!\n";
unless (($head_de and $deutsch) or ($head_en and $englisch) or ($head_fr and $franz))
{
print "<p>Bitte geben Sie einen <b>Text</b> zur Überschrift ein.";
}
unless ($check1 or $check2 or $check3 or $check4) {
print "<p>Bitte geben Sie mindestens einen <b>Betreff für die Maschinen</b> ein.";
}
unless ($ersteller) {
print "<p>Bitte geben Sie den <b>Namen des Erstellers</b> ein.";
}
unless ($werk) {
print "<p>Bitte geben Sie den <b>Werksnamen</b> ein.";
}
print '<p><input type="button" value="Zurück" onClick="history.back()">';
print "</body>";
print "</HTML>";
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
use strict;
use warnings;
my ( $check1, $check2, $check3, $check4, $ersteller ) = ('1') x 5;
my ($merker_d, $merker_e, $merker_f) = ('1') x 3;
my $head_de = '1';
my $deutsch = '1';
my $head_en = '';
my $english = '';
my $head_fr = '1';
my $franz = '';
if ( ( $check1 or $check2 or $check3 or $check4 ) and $ersteller ) {
if ( $head_de and $deutsch ) {
print "deutsch OK\n";
}
elsif ( $head_de or $deutsch ) {
print "deutsch FEHLER\n";
$merker_d = 0;
}
else {
print "kein deutsch\n";
}
if ( $head_en and $english ) {
print "english OK\n";
}
elsif ( $head_en or $english ) {
print "english FEHLER\n";
$merker_e = 0;
}
else {
print "kein english\n";
}
if ( $head_fr and $franz ) {
print "franz OK\n";
}
elsif ( $head_fr or $franz ) {
print "franz FEHLER\n";
$merker_f = 0;
}
else {
print "kein franz\n";
}
}
if($merker_d && $merker_e && $merker_f){
# eintragen
}
else{
warnung();
}
IPC::System::Simple, Path::Class |
|< 1 2 >| | |
17 Einträge, 2 Seiten |
Schrift
use strict; use warnings;
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
