#!/usr/bin/perl --

# Libs
use lib '/home/users/zoekenen/www/inloggen/pm';

use CGI;
use Dbase;
use Html;
use Email;

# Vars

my $q = new CGI;

my %vars = $q->Vars;
my $HTML                = Html->new(
        script          => "./index.cgi",
        cgi             => $q,
);

my $self = $HTML->{'script'};

# Dbase Init
my $dbase = Dbase::ConnectDbase;

## Login

if(!($vars{'em'} && $vars{'session'} )){

	if(!($vars{'em'} && $vars{'password'})) {
		Login();
		exit;
	} else {
		my $return = Dbase::CheckLogin($vars{'em'},$vars{'password'});
		if($return eq "NOTOK") {
			Login("Login incorrect, please try again");
			exit;
		} else {
			my $user_id = Dbase::UserId($vars{'em'}, $return);
			ReloadPage($vars{'em'}, $return, $user_id);
		}	
		# Process login
	}

} else {

	my $return = Dbase::CheckSession($vars{'em'}, $vars{'session'}, $vars{'id'});
	if($return eq "NOTOK") {
		Login("Geen grapjes he jongetjes, gewoon netjes inloggen");
		exit;
	}
}	










if($vars{'action'} =~ /edit/) {
	EditCompany();
} elsif($vars{'action'} =~ /new/) {
	AddCompany();
} elsif($vars{'action'} =~ /delete/) {
	Email::DelCompany($vars{'comid'});
	Dbase::DelCompanyWithUser($vars{'comid'});
	ShowResults();
} elsif($vars{'submit_edit'}) {
        InsertCompany(%vars);
	ShowResults();
} elsif($vars{'submit_new'}) {
	InsertCompany(%vars);
	ShowResults();
} elsif($vars{'new_account'}) {
	InsertAccount(%vars);
	NewAccount();
} else {
	ShowResults();
}

sub ShowResults
{
    $HTML->StartHtml(%vars);

    ShowCompanies();
    
    END:
    $HTML->EndHtml( back => 1);
    
}

sub ReloadPage
{
	my $email = shift;
	my $session = shift;
	my $id = shift;

	$HTML->StartHtml();
	print "<META HTTP-EQUIV=\"Refresh\" CONTENT=\"0;URL=./index.cgi?em=$email&session=$session&id=$id\">"

}

sub NewAccount
{
	$HTML->StartHtml();
	print "<META HTTP-EQUIV=\"Refresh\" CONTENT=\"0;URL=http://www.zoeken-engine.com/inschijven/success.htm\">"



}



sub Login
{
	
    my $error = shift;

    $HTML->StartHtml(%vars,"1","1");
 
    if($error) { print "$error"; }

print '
			<form method="POST" action="./index.cgi" name=search>
				<table border="0" style="border-collapse: collapse" width="100%" id="table2">
					<tr>
						<td align="left">Email</td>
						<td align="left">
						<input type="text" name="em" size="43"></td>
					</tr>
					<tr>

						<td align="left">Password</td>
						<td align="left">
						<input type="password" name="password" size="43"></td>
					</tr>
					<tr>
						<td colspan="2">
						<p align="left">
<input type="submit" value="login" name="B1"></td>
					</tr>
				</table>
			</form>

			Bent u uw wachtwoord kwijt of vergeten?<BR>
			Stuur ons een <a href=mailto:database@zoeken.com?subject=nieuw_wachtwoord>email</a> met uw naam en email adres.<BR>
';




    END:
    $HTML->EndHtml( back => 1);

}



sub ShowCompanies
{
    
    	print '<tr><td colspan="2"><table width="100%" id="table4" cellspacing="0" cellpadding="10">
   	<tr><td>';
           
	#print "SOMETEXT: $vars{'id'}<BR>";
 
	my @companies = Dbase::GetCompaniesFromUser($vars{'id'});

	
	foreach my $com (@companies) {
		PrintCompany($com);
	}



	print '</td><td width="200" style="border-left-style: solid; border-left-color: #cbdeff; border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px" valign="top">Navigatie:<BR><BR>';
        
	print "<a href=./index.cgi?action=new&id=$vars{'id'}&em=$vars{'em'}&session=$vars{'session'}>Nieuw Bedrijf</a><BR>";
	print "<a href=./>Uitloggen</a><BR>";
	
	print '&nbsp</td></tr></table></td></tr>';
	


}

sub AddCompany
{

	$HTML->StartHtml(%vars);

        # Form header
        print "<form name=addcompany action=\"./index.cgi?em=$vars{'em'}&session=$vars{'session'}\" method=POST>\n";
	print "<input type=hidden name=em value=$vars{'em'}><input type=hidden name=session value=$vars{'session'}>"; 

 
        #  com_id     cat_id     name     adress     postal     city     country     descr     photo     url     email     fax
        #     contact_email     contact_tel
 
        # Company information
        print "<table class=\"input\">\n";
        print '<tr>
            <td class="titleinput"><font size=4><b>Bedrijfs informatie</b></font></td>
            <td class="titleinput">&nbsp;</td>
                                                                                                                                
                                             
          </tr>
        <tr>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
          </tr>';
 
 
        GenInput('text','name','Bedrijfsnaam','75');
        GenInput('text','adress','Adres','75');
        GenInput('text','postal code','Postcode','10');
        GenInput('text','city','Stad','15');
        GenInput('text','country','Landcode (NL/BE)','50');
        GenArea('descr','Omschrijving','60','7');
        GenInput('text','url','Website URL','75');
        GenInput('text','email','Algemeen email','75');
        GenInput('text','fax','Fax nummer','15');
        GenInput('text','tel','Telefoon nummer','15');
 
 
## Generate Catagory fields
        print "<tr>";
        print "<td>Catagorie ( <a href=http://www.zoeken-engine.com/meerinformatie/trefwoorden.htm target=_blank>zoeken</a>
)</td>";
        print "<td align=left>&nbsp&nbsp&nbsp";
 
        print "<select name=cat1>\n";
        print "<option value=0>...</option>";
        my %cat = Dbase::GetCatagoryHash($dbase);
        foreach my $key ( sort(keys %cat) ) {
                print "<option value=$cat{$key}{'code'}>$cat{$key}{'code'} $cat{$key}{'name'}</option>";
        }
 
        print "</select>";
        print "</td>";
        print "</tr>";
 
        print "<tr>";
        print "<td>Catagorie ( <a href=http://www.zoeken-engine.com/meerinformatie/trefwoorden.htm target=_blank>zoeken</a>
)</td>";
        print "<td align=left>&nbsp&nbsp&nbsp";
 
        print "<select name=cat2>\n";
        print "<option value=0>...</option>";
        my %cat = Dbase::GetCatagoryHash($dbase2);
        foreach my $key ( sort(keys %cat) ) {
                print "<option value=$cat{$key}{'code'}>$cat{$key}{'code'} $cat{$key}{'name'}</option>";
        }
 
        print "</select>";
        print "</td>";
        print "</tr>";
        print "<tr>";
        print "<td>Catagorie ( <a href=http://www.zoeken-engine.com/meerinformatie/trefwoorden.htm target=_blank>zoeken</a>
)</td>";
        print "<td align=left>&nbsp&nbsp&nbsp";
 
        print "<select name=cat3>\n";
        print "<option value=0>...</option>";
        my %cat = Dbase::GetCatagoryHash($dbase2);
        foreach my $key ( sort(keys %cat) ) {
                print "<option value=$cat{$key}{'code'}>$cat{$key}{'code'} $cat{$key}{'name'}</option>";
        }
 
        print "</select>";
        print "</td>";
        print "</tr>";
        print "<tr>";
        print "<td>Catagorie ( <a href=http://www.zoeken-engine.com/meerinformatie/trefwoorden.htm target=_blank>zoeken</a>
)</td>";
        print "<td align=left>&nbsp&nbsp&nbsp";
 
        print "<select name=cat4>\n";
        print "<option value=0>...</option>";
        my %cat = Dbase::GetCatagoryHash($dbase2);
        foreach my $key ( sort(keys %cat) ) {
                print "<option value=$cat{$key}{'code'}>$cat{$key}{'code'} $cat{$key}{'name'}</option>";
        }
 
        print "</select>";
        print "</td>";
        print "</tr>";
        print "<tr>";
        print "<td>Catagorie ( <a href=http://www.zoeken-engine.com/meerinformatie/trefwoorden.htm target=_blank>zoeken</a>
)</td>";
        print "<td align=left>&nbsp&nbsp&nbsp";
 
        print "<select name=cat5>\n";
        print "<option value=0>...</option>";
        my %cat = Dbase::GetCatagoryHash($dbase2);
        foreach my $key ( sort(keys %cat) ) {
                print "<option value=$key>$cat{$key}{'code'} $cat{$key}{'name'}</option>";
        }
 
        print "</select>";
        print "</td>";
        print "</tr>";
 
        ## Feature's
        print "<tr>";
        print "<td><BR><BR>Notering</td>";
        print "<td align=left><BR>&nbsp&nbsp ";
        print "Wanneer u kiest voor een rechterkant notering zal er contact met u opgenomen worden omtrent de zoektermen<BR>";
 
        print "<BR>&nbsp&nbsp <select name=feat1>\n";
        print "<option value=0>...</option>";
        my %feat = Dbase::GetFeatureHash($dbase);
        foreach my $key ( keys %feat ) {
                print "<option value=$key>$feat{$key}{'name'} ($feat{$key}{'cost'})</option>";
        }
 
        print "</select>";
        print "</td>";
        print "</tr>";
 
        print "<tr>";
        print "<td>Notering</td>";
        print "<td align=left>&nbsp&nbsp&nbsp";
        print "<select name=feat2>\n";
        print "<option value=0>...</option>";
        my %feat = Dbase::GetFeatureHash($dbase);
        foreach my $key ( keys %feat ) {
                print "<option value=$key>$feat{$key}{'name'} ($feat{$key}{'cost'})</option>";
        }
 
        print "</select>";
        print "</td>";
        print "</tr>";
 
        # Contact information
        print '<tr>
            <td class="titleinput"><BR></td>
            <td class="titleinput"><BR>&nbsp&nbsp Communicatie omtrent de inschrijving van dit bedrijf
	zal geschieden met onderstaande contact persoon. &nbsp;</td>
                                                                                                                                
                                             
          </tr>
        <tr>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
          </tr>';
 
        GenInput('text','contact_name','Contact naam','75');
        GenInput('text','contact_email','Contact email','75');
        GenInput('text','contact_tel','Contact telefoonnummer','15');
 
        if($vars{'approved'}) {
                print "<input type=hidden name=approved value=1>";
        }
 
	print "<input type=hidden name=id value=$vars{'id'}>";
        print "<tr><td></td>";
	print "<input type=hidden name=em=$vars{'em'}>";
	print "<input type=hidden name=session=$vars{'session'}>";
        print "<td><input type=submit value='New' action='./index.cgi' name='submit_new'></td></tr>";
        print "</form>";

        print '

                <script language="JavaScript" type="text/javascript">
                var frmvalidator = new Validator("addcompany");

                frmvalidator.addValidation("name","req","Vul de bedrijfsnaam in");
                frmvalidator.addValidation("name","maxlen=100", "De bedrijfsnaam mag niet groter als 100 tekens zijn");

                frmvalidator.addValidation("adress","req","Vul het adres in");

                frmvalidator.addValidation("postal","req","Vul de postcode in");
                frmvalidator.addValidation("postal","minlen=6", "Vul een correcte postcode in (1234AB)");
                frmvalidator.addValidation("postal","alnum");

                frmvalidator.addValidation("city","req","Vul de stad in");

                frmvalidator.addValidation("country","req","Vul het land in (NL/BE)");
                frmvalidator.addValidation("country","regexp=^NL","Op dit moment worden alleen inschrijvingen voor nederland toegstaan (voer in: NL)");
                frmvalidator.addValidation("country","maxlen=2","Vul een correcte landcode in");

                frmvalidator.addValidation("descr","req","Geef een omschrijving op");

                frmvalidator.addValidation("url","req","Vul een URL in (bijvoorbeeld: www.zoeken.com)");
		frmvalidator.addValidation("url","regexp=^http://","De URL moet beginnen met http://");

		frmvalidator.addValidation("email","email","Vul het algemeen email adres in");

                frmvalidator.addValidation("contact_name","req","Vul de naam van de contact persoon in");
                frmvalidator.addValidation("contact_email","req","Vul het email adres van de contact persoon in");
		frmvalidator.addValidation("contact_email","","Vul het email adres van de contact persoon in");
                frmvalidator.addValidation("contact_tel","req","Vul het contact telefoon nummer in van de contact persoon");



                </script>


        ';

	$HTML->EndHtml(back => 1);


}



sub Show
{
    
	print "SHOW";


}

sub ErrorPrint
{
	my $text = shift;

        print '<table border="0" style="border-collapse: collapse" width="550" id="table7"><tr><td>';
        print "Fout</a></td>";
        print '</tr><tr><td>';
        print "$text";
        print '</td></tr></table><br>';
}


sub PrintCompany
{

	my $com = shift;

	my %company = Dbase::SingleCompany($com);



	print '<table border="0" style="border-collapse: collapse" width="500" id="table19"><tr><td colspan="2"><BR><b><font size="3">' . $company{$com}{'name'} . '</font></b>&nbsp&nbsp( ' . "<a href=./index.cgi?id=$vars{'id'}&em=$vars{'em'}&session=$vars{'session'}&comid=$com&action=edit>Wijzig</a> | <a href=./index.cgi?id=$vars{'id'}&em=$vars{'em'}&session=$vars{'session'}&comid=$com&action=delete>Verwijder</a> ) " . '</td></tr><tr><td colspan="2"><font style="font-size: 9pt">';
	print $company{$com}{'descr'};
	print '<br>&nbsp;</font></td></tr><tr><td width="159"><b>Adres:<br></b>';
	print $company{$com}{'name'} . "<BR>";
	print $company{$com}{'adress'} . "<BR>";
	print $company{$com}{'postal'} . " " . $company{$com}{'city'} . "<BR>";
	print '<td width="337"><b>Tel: </b>' . $company{$com}{'tel'} . "<BR>";
	print '<b>Fax: </b>' . $company{$com}{'fax'} . "<BR>";
	$company{$com}{'email'} =~ s/\@/_at_/g;
	print '<b>E-mail: </b>' . $company{$com}{'email'} . "<BR>";
	print '<b>Url:</b>: ' . $company{$com}{'url'} . "</TD></TR>";
	print "<tr><td colspan=2><br><b>Dit bedrijf is ingedeeld in de catagorieën:</b><br>";
	
	for($i=1;$i<6;$i++) {
		if($company{$com}{"cat_id$i"}) {
		my %catagory = Dbase::SingleCatagoryCode($company{$com}{"cat_id$i"});
		print "- $catagory{'name'}<BR>";
		}
	}

	print "</td></tr><tr><td colspan=2><br><font color=#008000>";
	print $company{$com}{'url'} . "-</font><a href=" . "$company{$com}{'url'}" . ">Bezoek de website</a></td></tr></table>";
	print '<BR><hr noshade color="#CBDEFF" width="600" align="left">';
}

sub EditCompany
{

	$HTML->StartHtml(%vars);

        my $number = Dbase::CheckCompany($vars{'comid'}, $vars{'id'});

        if($number != 1) {
                return 0;
        }

	#print "AAA: $vars{'comid'}";
        my %companies = Dbase::GetSingleCompany($vars{'comid'});
        my $cat1 = $companies{'cat_id1'};
        my $cat2 = $companies{'cat_id2'};
        my $cat3 = $companies{'cat_id3'};
        my $cat4 = $companies{'cat_id4'};
        my $cat5 = $companies{'cat_id5'};
	#print "CATAOGIRES: $cat1, $cat2, $cat3, $cat4, $cat5";
        my @features = Dbase::GetFeatures($vars{'comid'},$dbase);
        my $feat1 = @features[0];
        my $feat2 = @features[1];

        # Form header
        print "<form name=addcompany action=\"./index.cgi\" method=POST>\n";
	print "<input type=hidden name=em value=$vars{'em'}><input type=hidden name=session value=$vars{'session'}>";
	print "<input type=hidden name=id value=$vars{'id'}>";

        #  com_id     cat_id     name     adress     postal     city     country     descr     photo     url     email     fax     tel     contact_name
        #     contact_email     contact_tel

        # Company information
        print "<table class=\"input\">\n";
        print '<tr>
            <td class="titleinput"><font size=4><b>Bedrijfs informatie</b></font></td>
            <td class="titleinput">&nbsp;</td>


          </tr>
        <tr>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
          </tr>';

        print "<input type=hidden name=com_id value=$vars{'comid'}>";
        GenInput('text','name','Bedrijfsnaam','75',"$companies{'name'}");
        GenInput('text','adress','Adres','75',"$companies{'adress'}");
        GenInput('text','postal','Postcode','10',"$companies{'postal'}");
        GenInput('text','city','Stad','15',"$companies{'city'}");
        GenInput('text','country','Landcode (NL/BE)','50',"$companies{'country'}");
        GenArea('descr','Omschrijving','60','7',"$companies{'descr'}");

        GenInput('text','url','Website URL','75',"$companies{'url'}");
        GenInput('text','email','Algemeen email','75',"$companies{'email'}");
        GenInput('text','fax','Fax nummer','15',"$companies{'fax'}");
        GenInput('text','tel','Telefoon nummer','15',"$companies{'tel'}");

        ## Generate Catagory fields
        print "<tr>";
        print "<td>Catagorie ( <a href=http://www.zoeken-engine.com/meerinformatie/trefwoorden.htm target=_blank>zoeken</a>
)</td>";
        print "<td align=left>&nbsp&nbsp&nbsp";
        print "<select name=cat1>\n";
        print "<option value=0>...</option>";
        my %cat = Dbase::GetCatagoryHash($dbase);

        foreach my $key ( sort(keys %cat) ) {
                my $match;
                if($key eq $cat1) {
                        $match = 1;
                }
		
                if($match == 1) {
                        print "<option value=$cat{$key}{'code'} selected>$cat{$key}{'code'} $cat{$key}{'name'} </option>";
                } else {
                        print "<option value=$cat{$key}{'code'}>$cat{$key}{'code'} $cat{$key}{'name'} </option>";
                }
        }

        print "</select>";
        print "</td>";
        print "</tr>";
        print "<tr>";
        print "<td>Catagorie ( <a href=http://www.zoeken-engine.com/meerinformatie/trefwoorden.htm target=_blank>zoeken</a>
)</td>";
        print "<td align=left>&nbsp&nbsp&nbsp";
        print "<select name=cat2>\n";
        print "<option value=0>...</option>";
        my %cat = Dbase::GetCatagoryHash($dbase);
        foreach my $key ( sort(keys %cat) ) {
                my $match;
                if($key eq $cat2) {
                        $match = 1;
                }

                if($match == 1) {
                        print "<option value=$cat{$key}{'code'} selected>$cat{$key}{'code'} $cat{$key}{'name'} </option>";
                } else {
                        print "<option value=$cat{$key}{'code'}>$cat{$key}{'code'} $cat{$key}{'name'} </option>";
                }
        }

        print "</select>";
        print "</td>";
        print "</tr>";

        print "<tr>";
        print "<td>Catagorie ( <a href=http://www.zoeken-engine.com/meerinformatie/trefwoorden.htm target=_blank>zoeken</a>
)</td>";
        print "<td align=left>&nbsp&nbsp&nbsp";

        print "<select name=cat3>\n";
        print "<option value=0>...</option>";
        my %cat = Dbase::GetCatagoryHash($dbase);
        foreach my $key ( sort(keys %cat) ) {
                my $match;
                if($key eq $cat3) {
                        $match = 1;
                }

                if($match == 1) {
                        print "<option value=$cat{$key}{'code'} selected>$cat{$key}{'code'} $cat{$key}{'name'}</option>";
                } else {
                        print "<option value=$cat{$key}{'code'}>$cat{$key}{'code'} $cat{$key}{'name'} </option>";
                }
        }

        print "</select>";
        print "</td>";
        print "</tr>";

        print "<tr>";
        print "<td>Catagorie ( <a href=http://www.zoeken-engine.com/meerinformatie/trefwoorden.htm target=_blank>zoeken</a>
)</td>";
        print "<td align=left>&nbsp&nbsp&nbsp";

        print "<select name=cat4>\n";
        print "<option value=0>...</option>";
        my %cat = Dbase::GetCatagoryHash($dbase);
        foreach my $key ( sort(keys %cat) ) {
                my $match;
                if($key eq $cat4) {
                        $match = 1;
                }

                if($match == 1) {
                        print "<option value=$cat{$key}{'code'} selected>$cat{$key}{'code'} $cat{$key}{'name'}</option>";
                } else {
                        print "<option value=$cat{$key}{'code'}>$cat{$key}{'code'} $cat{$key}{'name'} </option>";
                }
        }

        print "</select>";
        print "</td>";
        print "</tr>";

        print "<tr>";
        print "<td>Catagorie ( <a href=http://www.zoeken-engine.com/meerinformatie/trefwoorden.htm target=_blank>zoeken</a>
)</td>";
        print "<td align=left>&nbsp&nbsp&nbsp";

        print "<select name=cat5>\n";
        print "<option value=0>...</option>";
        my %cat = Dbase::GetCatagoryHash($dbase);
        foreach my $key ( sort(keys %cat) ) {
                my $match;
                if($key eq $cat5) {
                        $match = 1;
                }

                if($match == 1) {
                        print "<option value=$cat{$key}{'code'} selected>$cat{$key}{'code'} $cat{$key}{'name'} </option>";
                } else {
                        print "<option value=$cat{$key}{'code'}>$cat{$key}{'code'} $cat{$key}{'name'} </option>";
                }
        }

        print "</select>";
        print "</td>";
        print "</tr>";

        ## Feature's
        print "<tr>";
        print "<td>Notering</td>";
        print "<td align=left>&nbsp&nbsp&nbsp";

        print "<select name=feat1>\n";
        print "<option value=0>...</option>";
        my %feat = Dbase::GetFeatureHash($dbase);
        foreach my $key ( keys %feat ) {
                my $match;
                if($key eq $feat1) {
                        $match = 1;
                }

                if($match == 1) {
                        print "<option value=$key selected>$feat{$key}{'name'} ($feat{$key}{'cost'})</option>";
                } else {
                        print "<option value=$key>$feat{$key}{'name'} ($feat{$key}{'cost'})</option>";
                }
        }

        print "</select>";
        print "</td>";
        print "</tr>";

        print "<tr>";
        print "<td>Notering</td>";
        print "<td align=left>&nbsp&nbsp&nbsp";

        print "<select name=feat2>\n";
        print "<option value=0>...</option>";
        my %feat = Dbase::GetFeatureHash($dbase);
        foreach my $key ( keys %feat ) {
                my $match;
                if($key eq $feat2) {
                        $match = 1;
                }

                if($match == 1) {
                        print "<option value=$key selected>$feat{$key}{'name'} ($feat{$key}{'cost'})</option>";
                } else {
                        print "<option value=$key>$feat{$key}{'name'} ($feat{$key}{'cost'})</option>";
                }
        }

        print "</select>";
        print "</td>";
        print "</tr>";


        # Contact information
        print '<tr>
            <td class="titleinput"><BR><BR><b>Contact informatie</b></td>
            <td class="titleinput">&nbsp;</td>


          </tr>';

        GenInput('text','contact_name','Contact naam','75',"$companies{'contact_name'}");
        GenInput('text','contact_email','Contact email','75',"$companies{'contact_email'}");
        GenInput('text','contact_tel','Contact telefoon nummer','15',"$companies{'contact_tel'}");

        if($vars{'approved'}) {
                print "<input type=hidden name=approved value=1>";
        }

        print "<tr><td></td>";
        print "<td><input type=submit value='Edit' action='./index.cgi' name='submit_edit'></td></tr>";
	print '
		
		<script language="JavaScript" type="text/javascript">
		var frmvalidator = new Validator("addcompany");
		
		frmvalidator.addValidation("name","req","Vul de bedrijfsnaam in");
		frmvalidator.addValidation("name","maxlen=100", "De bedrijfsnaam mag niet groter als 100 tekens zijn");

		frmvalidator.addValidation("adress","req","Vul het adres in");
		
		frmvalidator.addValidation("postal","req","Vul de postcode in");
                frmvalidator.addValidation("postal","minlen=6", "Vul een correcte postcode in (1234AB)");
		frmvalidator.addValidation("postal","alnum");
	
		frmvalidator.addValidation("city","req","Vul de stad in");

		frmvalidator.addValidation("country","req","Vul het land in (NL/BE)");
		frmvalidator.addValidation("country","regexp=^NL","Op dit moment worden alleen inschrijvingen voor nederland toegstaan (voer in: NL)");
		frmvalidator.addValidation("country","maxlen=2","Vul een correcte landcode in");

		frmvalidator.addValidation("descr","req","Geef een omschrijving op");

		frmvalidator.addValidation("url","req","Vul een URL in (bijvoorbeeld: www.zoeken.com)");
		frmvalidator.addValidation("url","regexp=^http://","De URL moet beginnen met http://");

		frmvalidator.addValidation("email","email","Vul het algemeen email adres in");

		frmvalidator.addValidation("contact_name","req","Vul de naam van de contact persoon in");
		frmvalidator.addValidation("contact_email","req","Vul het email adres van de contact persoon in");
		frmvalidator.addValidation("contact_email","email","Vul het email adres van de contact persoon in");
		frmvalidator.addValidation("contact_tel","req","Vul het contact telefoon nummer in van de contact persoon");



		</script>


	';



        print "</form></table>";



    	$HTML->EndHtml( back => 1);



}

sub GenInput
{
        my ($type,$name,$descr,$size,$value) = @_;

        print "<tr>";
        print "<td>$descr</td>";
        print "<td align=left>&nbsp&nbsp&nbsp";
	print "<input type=$type name=$name";
        if($size) {
                print " size=$size ";
        }
        #if($value) {
                print "value=\"$value\" ";
        #}
        print "></td>";
        print "</tr>";
}

sub GenArea
{
        my ($name,$descr,$size,$size2,$value) = @_;


        print "<tr>";
        print "<td>$descr</td>";
        print "<td align=left>&nbsp&nbsp&nbsp<textarea name=$name";
        if($size) {
                print " cols=$size ";
        }
        if($size2) {
                print " rows=$size2 ";
        }
        if($value) {
                print ">$value</textarea></td>";
        } else {
                print "></textarea></td>";
        }
}

sub InsertAccount
{

	my %newhash = %vars;

	if("$newhash{'password'}" == "$newhash{'password2'}") {
		$statement = 'INSERT INTO users VALUES (NULL, 1, '
		. "\"$newhash{'email'}\","
		. "\"$newhash{'name'}\","
		. "\"$newhash{'password'}\""
                . ')';

        	$prep = $dbase->prepare($statement) or die "Couldn't prepare statement: $DBI::errstr; stopped";
        	$prep->execute() or die "Couldn't execute statement: $DBI::errstr; stopped";

	}

}


sub InsertCompany
{
	my %newhash = %vars;

	
        if($vars{'submit_new'}) {
	
	## Check for HTML
 	foreach my $key ( keys %newhash ) {
		if($newhash{$key} =~  /<(.|\n)*?>/) {
			return 0;
		}
	}	
	
	
        $statement = 'INSERT INTO companies values (NULL, '
                                 . "\"$newhash{'name'}\","
                                 . "\"$newhash{'adress'}\","
                                 . "\"$newhash{'postal'}\","
                                 . "\"$newhash{'city'}\","
                                 . "\"$newhash{'country'}\","
                                 . "\"$newhash{'descr'}\","
                                 . "\"$newhash{'photo'}\","
                                 . "\"$newhash{'url'}\","
                                 . "\"$newhash{'email'}\","
                                 . "\"$newhash{'fax'}\","
                                 . "\"$newhash{'tel'}\","
                                 . "\"$newhash{'contact_name'}\","
                                 . "\"$newhash{'contact_email'}\","
                                 . "\"$newhash{'contact_tel'}\","
                                 . '"' . time . '",'
                                 . '0, '
                                 . "\"$newhash{'cat1'}\","
                                 . "\"$newhash{'cat2'}\","
                                 . "\"$newhash{'cat3'}\","
                                 . "\"$newhash{'cat4'}\","
                                 . "\"$newhash{'cat5'}\""
                                 . ')';


        $prep = $dbase->prepare($statement);
        $prep->execute();

        } else {

	my $number = Dbase::CheckCompany($vars{'com_id'}, $vars{'id'});

	if($number != 1) {
		return 0;
	}
	
	$statement = 'UPDATE companies SET '
                                 . "name = \"$newhash{'name'}\","
                                 . "adress = \"$newhash{'adress'}\","
                                 . "postal = \"$newhash{'postal'}\","
                                 . "city = \"$newhash{'city'}\","
                                 . "country = \"$newhash{'country'}\","
                                 . "descr = \"$newhash{'descr'}\","
                                 . "photo = \"$newhash{'photo'}\","
                                 . "url = \"$newhash{'url'}\","
                                 . "email = \"$newhash{'email'}\","
                                 . "fax = \"$newhash{'fax'}\","
                                 . "tel = \"$newhash{'tel'}\","
                                 . "contact_name = \"$newhash{'contact_name'}\","
                                 . "contact_email = \"$newhash{'contact_email'}\","
                                 . "contact_tel = \"$newhash{'contact_tel'}\","
                                 . "cat_id1 = \"$newhash{'cat1'}\","
                                 . "cat_id2 = \"$newhash{'cat2'}\","
                                 . "cat_id3 = \"$newhash{'cat3'}\","
                                 . "cat_id4 = \"$newhash{'cat4'}\","
                                 . "cat_id5 = \"$newhash{'cat5'}\","
                                 . "lastchange = \"" . time . "\" WHERE com_id = \"$vars{'com_id'}\"";


        $prep = $dbase->prepare($statement);
        $prep->execute();

        }

        # Ok, this is quick and DIRTY way to get this information, but at this time
        # i got no clue what to do ..
        my $com_id;
        my $statement = "SELECT com_id FROM companies WHERE name = \"$newhash{'name'}\" AND contact_email = \"$newhash{'contact_email'}\"";
        $prep = $dbase->prepare($statement);
        $prep->execute();

        while(my $ref = $prep->fetchrow_hashref()) {
                $com_id = $ref->{'com_id'};
        }


        # If we edit a company we need to delete all features from this company first
        if(!$vars{'submit_new'}) {
                  my $statement = "DELETE FROM feat_con WHERE com_id = $com_id";
                  my $prep = $dbase->prepare($statement);
                  $prep->execute();
        }


        for(my $i=1;$i<3;$i++) {
                if($newhash{"feat$i"}) {

                        Dbase::AddFeature("$com_id","$newhash{\"feat$i\"}",$dbase);
                }
        }

	if($vars{'submit_new'}) {
		 Dbase::CompanyWithUser($vars{'id'}, $com_id);
	}

	#Send email
	Email::AddCompany($com_id);


}