#!/usr/bin/perl

use CGI;
use DBI;
require adisql;         # /usr/lib/perl5/adisql.pm

my $db = 'firma';
my $host = 'drcomp';
my $user = 'apache';
my $password = '';
my $table = 'kunden';

my $query = CGI->new();

my $rechnungsnummer = $query->param('rechnungsnummer');
my $postenzahl = $query->param('postenzahl');

$dbh = DBI->connect("DBI:Pg:dbname=$db;host=$host",$user, $password,
{RaiseError => 1});

# ------------------------------------------------------------------------

sub briefkopf {
        print $query->header(),
              $query->start_html(-bgcolor=>'#ffffff',
               -title=>'[ Web-bill | Rechnung anlegen ]');

        print <<HTML_CODE;
<center>
<font size=+3>Web-basierendes Rechnungssystem<br><br>
HTML_CODE
        }

# ------------------------------------------------------------------------

briefkopf();

@parameter = $query->param;
@excludelist = ("rechnungsnummer","postenzahl");

my %seen;
my @aonly;
@seen{@excludelist} = ();

foreach $item (@parameter) {
        push(@aonly, $item) unless exists $seen{$item};
        }

@parameter = @aonly;

my $arraygroesse = ( scalar(@parameter) / 3);

for (my $i = 0 ; $i < $arraygroesse ; $i++ ) {
	my $menge = $query->param("menge$i");
   if ( $menge eq "" ) { next; }	# no insert if menge is empty
	my $artikelname = $query->param("artikelname$i");
	my $einzelpreis = $query->param("einzelpreis$i");
 if ( $einzelpreis eq "" ) {
 	$search = "insert into rechnungsposten values('$rechnungsnummer',\
 	'$artikelname','0','$menge')";
	}
  else {
  	$search = "insert into rechnungsposten values('$rechnungsnummer',\
  	'$artikelname','$einzelpreis','$menge')";
  	}
  sql("$search");
	print "Zeileneintrag $i ok<br>";
  }
	printf "<a href=\"/rechnung/view.php?nummer=$rechnungsnummer\">\
        Rechnung Ansehen</a>";
  printf ("<form action=\"/rechnung/cgi-bin/neurechnung\" method=\"post\">\
 <input type=\"hidden\" name=\"rechnungsnummer\" value=\"$rechnungsnummer\">\
 Die Rechnung um\
 <input name=\"postenzahl\" size=\"2\" maxlenght=\"10\" value=\"3\">\
 weitere Posten\
 <input type=\"submit\" value=\"ergnzen.\"></form>");
 
print $query->end_html();
  
