Opened by Kathrin at 2005-01-25 12:58
User since
2004-12-15
158 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-12-15
158 Artikel
BenutzerIn
Hey hey,
und zwar hab ich ne seperate Tabelle in der DB erstellt, wo nur die Benutzernamen zu finden sind.
Jetzt versuch ich vergebens, die Tablle ins script einzubauen...
es soll jeder Benutzer als Erfasser in der Option aufgelistet werden.
Who can me say, what i must to do?
bis jetzt standen die namen immer im script, wie folgt
\n\n
<!--EDIT|Kathrin|1106650775-->
und zwar hab ich ne seperate Tabelle in der DB erstellt, wo nur die Benutzernamen zu finden sind.
Jetzt versuch ich vergebens, die Tablle ins script einzubauen...
es soll jeder Benutzer als Erfasser in der Option aufgelistet werden.
Who can me say, what i must to do?
bis jetzt standen die namen immer im script, wie folgt
Code: (dl
)
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>';
....
....Code: (dl
)
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();
}
<!--EDIT|Kathrin|1106650775-->