|< 1 2 >| | 11 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
sub such_eintr {
my (%param) = @_;
my $param = \%param;
print "<HTML>\n";
print "<HEAD><TITLE>FORMULAR</TITLE>";
print '</HEAD><BODY bgcolor ="#CCCCFF">';
print '<form method="POST" action="/cgi-bin/frontl.cgi">';
....
.....
print '<INPUT size="15" type="text" name="ersteller" value="'.$ersteller.'"> <<<
<select onchange="ersteller.value=options[selectedIndex].value">
<option value="M.Kapanke">M.Kapanke</option>
<option value="G.Goettelmann">G.Goettelmann</option>
<option value="T.Doppler">T.Doppler</option>
</select>';
....
....
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
######
#Benutzer aus Tabelle holen
######
sub ben_holen {
my $dbh = DBI->connect($DBN,$DBUSER,$DBPASS) or die $DBI::errstr;
my $statement_suchen="SELECT * FROM zus_doc_benutzer";
my $sth_suchen=$dbh->prepare($statement_suchen) or die $DBI::errstr;
$sth_suchen->execute or die $DBI::errstr;
while (my @row = $sth_suchen->fetchrow_array()) {
#######################
}
$sth_suchen->finish();
$dbh->disconnect();
}
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
sub such_eintr {
my (%param) = @_;
my $param = \%param;
print "<HTML>\n";
print "<HEAD><TITLE>FORMULAR</TITLE>";
print '</HEAD><BODY bgcolor ="#CCCCFF">';
print '<form method="POST" action="/cgi-bin/frontl.cgi">';
....
.....
print '<INPUT size="15" type="text" name="ersteller" value="'.$ersteller.'"> <<<
<select onchange="ersteller.value=options[selectedIndex].value">';
ben_holen();
print ' </select>';
....
....
}
######
#Benutzer aus Tabelle holen
######
sub ben_holen {
my $dbh = DBI->connect($DBN,$DBUSER,$DBPASS) or die $DBI::errstr;
my $statement_suchen="SELECT name FROM zus_doc_benutzer";
my $sth_suchen=$dbh->prepare($statement_suchen) or die $DBI::errstr;
$sth_suchen->execute or die $DBI::errstr;
while (my ($name) = $sth_suchen->fetchrow_array()) {
print qq~<option value="$name">$name</option>~;
}
$sth_suchen->finish();
$dbh->disconnect();
}
|< 1 2 >| | 11 Einträge, 2 Seiten |