<perl>
$link="/cgi-bin/baseportal.pl?htx=/foto/import";  ### Dein link
$db="fotos"; ### Deine Datenbank

if ($act eq "save")
{

get "Id==$_Id","import";
out "$csv";
if ($csv ne "")
{
@line=split/\n/,get("/bp-files/$csv");
foreach(@line)
 {
   ($feld1,$feld2)=split/;/,$_;
 put ["feld1",$feld1,"feld2",$feld2],"temp";
 }
########
######## splitten und put ende

out "<input type=\"checkbox\" name=\"kopfzeile=\" value=\"1\"> Erste Zeile als Kopfzeile";
out "<table border=1><tr>";
############ Auswahl für Felder die in der $Db gespeichert sind
for(1..2)
 {
 out "<td><select name=\"save_feld$_=\">";
 out "<option value='nicht_definiert'>nicht_definiert</option>";
 get "Id=*","$db.fields","felder";
 while (get_next("felder"))
  {
   foreach(keys %_loop)
    {
    out "<option value='$_loop{$_}'>$_loop{$_}</option>" if ($_ eq "Field" && $_loop{$_} ne "Id");

    }
  }
  out "</select></td>";
 }

out "</tr>";
########## Anzeige des inhaltes von csv zu Kontrolle und zur richtigen auswahl der Felder
get "Id==*","temp";

{
out "<tr>";
for(1..2)
 {
  $a="feld$_";
  out "<td>$$a</td>";
 }
 out "</tr>";
 }

out "<input type=submit value=Import></form>";
##########

 }else

out "Sorry- Upload nicht vollständig";
}

{

$no_error="0";
$error="0";

while(get_next("temp"))
{

for(1..2)
 {
     $a="save_feld$_";
     $b="feld$_";
     if ($$a eq "nicht_definiert" || $$a eq "")
     {
       next;
     }

    $_put{$$a}=$$b;
 }
 $_put{_amount}=1;

 {
 }else
 {
 $no_error=$no_error+1 if ($_put{Galerienr} ne ""); ## zählen der erfolgreichen einträge
 $error=$error+1 if ($_put{Galerienr} eq ""); ## zählen der nicht erfolgreichen einträge
 }

 put undef,$db if ($_put{Galerienr} ne "");
out "$no_error wurden importiert";
out "<br><font color=red>$error wurden nicht importiert</font>" if ($error>0);

}else
{

########## Upload der csv Datei
out "<form action=\"$link&act=save\" method=\"post\" enctype=\"multipart/form-data\">";
out "<font size=0><input type=radio name=\"_filec_csv=\" value=1 checked> No file<input type=radio name=\"_filec_csv=\" value=2>New file: <input name='csv:=' type='file' onfocus='a=this.form.elements; for(i=0; i<a.length; i++) if(a[i].name==this.name) break; a[i-1].checked=1;'>";
out "<br><input type=submit value=Import>";
out "</form>";
}