#
# Valeur de l'euro.
#

$main::euro = 6.55957;

$main::db_user = "mafma";
$main::db_pass = "mafma";
$main::db_base = "dbi:mysql:Mafma";
$main::server = 'localhost';	# Et machine de la base.

# data_scale(): retourne l'echelle en toutes lettres d'un produit.
sub data_scale {
	my($scale);
	
	($scale) = @_;
	
	return "1/$scale eme";
}

# data_normalize_qty(): vérifie si les quantitées fournies par le script sont valides.
# entrées: - $: la quantité.
# sorties: - $: la quantité entière supérieure ou égale à 0;
sub data_normalize_qty {
	my($qty);

	($qty) = @_;
	if ($qty < 0) { return 0; }
	return int $qty;
}
	
return 1;