Werte aus Datenbank holen und Anzeigen (war: DBI) - #32880 (Datenbanken und Verzeichnisdienste)

renee

2005-01-25 13:10

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

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.'"> &lt;&lt;&lt;
      <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();
}

Ich weiß ja nicht, wie die Tabelle aussieht...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/