#--------Farven findes start -----------------
my $color;

if ($hash{"godkendelse_done"} =~ '1') {
$color = 'white';
} else {
$color = 'red';
}
#--------Farven findes slut ------------------

#----------Data slettes start ----------------
if ($rapport ne undef) {
	delete $hash{"g_afsluttet"};
}

delete $hash{"godkendelse_done"};
#----------Data slettes slut -----------------


$tmpl->param( search => $search, rapport => $rapport , row => \@ary , color => $color );

print "Content-type: text/html\n\n",
	$tmpl->output;

$dbh->disconnect;

sub con_date {
	my ($org_date) = @_;
	
	my ($yyyy, $mm, $dd) = ($org_date =~ /(\d+)-(\d+)-(\d+)/);

	my $ret = sprintf ("%02d-%02d-%04d", $dd, $mm, $yyyy);
	return $ret;
}