my ($head, $where, $titel, $text, $titel_e, $text_e, $url, $type);
  my @update;
  my @elementlist = Statements::doSelect("element_id,element_titel","t_element");
	
    print qq(
	<form action="$Constants::cgi/admin.pl?act=1" method="POST">
	<select name="eid" onChange="submit()">
	  <option value="">Neues Element einf\374gen</option>
	);
	  foreach my $foo (0..$#elementlist) {
		my $selected;
		if ($list{'eid'} == $elementlist[$foo][0]) {
		  $selected = "selected";
		}
		print qq(
		  <option value="$elementlist[$foo][0]" $selected>$elementlist[$foo][1]</option>
		);
	  }

	print qq(
	</select><br/>
	);

	if ($list{'eid'}) {
	  $where = "element_id = $list{'eid'}";
	  @update = Statements::doSelect("element_id,element_titel,element_text,element_titel_e,element_text_e,URL,element_type","t_element",$where);
	  ($titel, $text, $titel_e, $text_e, $url, $type) = ($update[0][1],$update[0][2],$update[0][3],$update[0][4],$update[0][5],$update[0][6]);
	  $head = "$titel ändern";
	} else {
	  $head = "Neues Element einfügen";
	}

##</code><code>##

# -----------------------------------------------------------------
# Name         : doSelect().
# Description  : select values from db
# Recieves     : SELECT, FROM, WHERE, ORDER, GROUP
# Returns      : selected values
# -----------------------------------------------------------------
sub doSelect {
my (@res, @row, $i);
my ($select, $from,$where,$group,$order);
$select = "SELECT $_[0] ";
$from = "FROM $_[1] ";
if ($_[2]) { 
	$where = "WHERE $_[2] ";
} 
if ($_[3]) { 
	$group = "GROUP BY $_[3] ";
} 
if ($_[4]) { 
	$order = "ORDER BY $_[4] ";
}  

my $sql = $select . $from . $where . $group . $order;
#print $sql;
my $sth = DBKomm::connectdb($Constants::dbsrc,$Constants::dbuser,$Constants::dbpasswd)->prepare( $sql );
  if ($sth) {
    $sth->execute;
    while (my @row = $sth->fetchrow_array) {
      $res[$i++] = [@row];
    }
    $sth->finish;
  } else {
	print "nothing here to do and say";
  }
  DBKomm::disconnectdb();
  return @res;
}