diff --git a/pandora_server/ChangeLog b/pandora_server/ChangeLog
index af8abab1e2..4cde12d5f5 100644
--- a/pandora_server/ChangeLog
+++ b/pandora_server/ChangeLog
@@ -1,3 +1,7 @@
+2012-07-25 Miguel de Dios <miguel.dedios@artica.es>
+	
+	* lib/PandoraFMS/DB.pm: cleaned source code style.
+
 2012-07-24 Miguel de Dios <miguel.dedios@artica.es>
 	
 	* lib/PandoraFMS/Core.pm, lib/PandoraFMS/Tools.pm,
diff --git a/pandora_server/lib/PandoraFMS/DB.pm b/pandora_server/lib/PandoraFMS/DB.pm
index e03184edda..cf69292e5e 100644
--- a/pandora_server/lib/PandoraFMS/DB.pm
+++ b/pandora_server/lib/PandoraFMS/DB.pm
@@ -126,18 +126,18 @@ sub db_connect ($$$$$$) {
 	return undef;
 }
 
-##########################################################################
+########################################################################
 ## Disconnect from the DB. 
-##########################################################################
+########################################################################
 sub db_disconnect ($) {
 	my $dbh = shift;
 
 	$dbh->disconnect();
 }
 
-##########################################################################
+########################################################################
 ## Return action ID given the action name.
-##########################################################################
+########################################################################
 sub get_action_id ($$) {
 	my ($dbh, $action_name) = @_;
 
@@ -145,9 +145,9 @@ sub get_action_id ($$) {
 	return defined ($rc) ? $rc : -1;
 }
 
-##########################################################################
+########################################################################
 ## Return agent ID given the agent name.
-##########################################################################
+########################################################################
 sub get_agent_id ($$) {
 	my ($dbh, $agent_name) = @_;
 
@@ -155,9 +155,9 @@ sub get_agent_id ($$) {
 	return defined ($rc) ? $rc : -1;
 }
 
-##########################################################################
+########################################################################
 ## Return server ID given the name of server.
-##########################################################################
+########################################################################
 sub get_server_id ($$$) {
 	my ($dbh, $server_name, $server_type) = @_;
 
@@ -167,9 +167,9 @@ sub get_server_id ($$$) {
 	return defined ($rc) ? $rc : -1;
 }
 
-##########################################################################
+########################################################################
 ## Return group ID given the group name.
-##########################################################################
+########################################################################
 sub get_group_id ($$) {
 	my ($dbh, $group_name) = @_;
 
@@ -177,9 +177,9 @@ sub get_group_id ($$) {
 	return defined ($rc) ? $rc : -1;
 }
 
-##########################################################################
+########################################################################
 ## Return OS ID given the OS name.
-##########################################################################
+########################################################################
 sub get_os_id ($$) {
 	my ($dbh, $os_name) = @_;
 
@@ -642,9 +642,9 @@ sub db_process_insert($$$$;@) {
 	return $res;
 }
 
-##########################################################################
+########################################################################
 ## SQL update.
-##########################################################################
+########################################################################
 sub db_process_update($$$$$;@) {
 	my ($dbh, $table, $parameters, $where_column, $where_value, @values) = @_;
 	
@@ -657,7 +657,7 @@ sub db_process_update($$$$$;@) {
 	}
 	
 	my $fields = '';
-	for (my $i=0; $i<=$#values_array; $i++) {
+	for (my $i = 0; $i <= $#values_array; $i++) {
 		if (!defined($values_array[$i])) {
 			$values_array[$i] = '';
 		}
@@ -669,7 +669,9 @@ sub db_process_update($$$$$;@) {
 	
 	push(@values_array, $where_value);
 	
-	my $res = db_update ($dbh, "UPDATE $table SET$fields WHERE $where_column = ?", @values_array);
+	my $res = db_update ($dbh, "UPDATE $table
+		SET $fields
+		WHERE $where_column = ?", @values_array);
 	
 	return $res;
 }
@@ -719,12 +721,13 @@ sub get_agent_addr_id ($$$) {
 		FROM taddress_agent
 		WHERE id_a = ?
 			AND id_agent = ?', $addr_id, $agent_id);
+	
 	return (defined ($agent_addr_id) ? $agent_addr_id : -1);
 }
 
-##########################################################################
+########################################################################
 ## Generic SQL sentence. 
-##########################################################################
+########################################################################
 sub db_do ($$;@) {
 	my ($dbh, $query, @values) = @_;
 	
@@ -733,9 +736,9 @@ sub db_do ($$;@) {
 	$dbh->do($query, undef, @values);
 }
 
-##########################################################################
+########################################################################
 # Return the ID of the taddress agent with the given IP.
-##########################################################################
+########################################################################
 sub is_agent_address ($$$) {
 	my ($dbh, $id_agent, $id_addr) = @_;
 	
@@ -747,9 +750,9 @@ sub is_agent_address ($$$) {
 	return (defined ($id_ag)) ? $id_ag : 0;
 }
 
-##########################################################################
+########################################################################
 ## Escape the given reserved word. 
-##########################################################################
+########################################################################
 sub db_reserved_word ($) {
 	my $reserved_word = shift;
 	
@@ -774,9 +777,9 @@ sub db_string ($) {
 	return "'" . $string . "'";
 }
 
-##########################################################################
+########################################################################
 ## Convert TEXT to string when necessary
-##########################################################################
+########################################################################
 sub db_text ($) {
 	my $string = shift;
 	
@@ -786,19 +789,19 @@ sub db_text ($) {
 	return $string;
 }
 
-##########################################################################
+########################################################################
 ## SUB get_alert_template_name(alert_id)
 ## Return the alert template name, given "alert_id"
-##########################################################################
+########################################################################
 sub get_alert_template_name ($$) {
 	my ($dbh, $alert_id) = @_;
 	
 	return get_db_value ($dbh, "SELECT name FROM talert_templates, talert_template_modules WHERE talert_templates.id = talert_template_modules.id_alert_template AND talert_template_modules.id = ?", $alert_id);
 }
 
-##########################################################################
+########################################################################
 ## Concat two strings
-##########################################################################
+########################################################################
 sub db_concat ($$) {
 	my ($element1, $element2) = @_;
 	
@@ -807,9 +810,9 @@ sub db_concat ($$) {
 	return " " . $element1 . " || ' ' || " . $element2 . " " if ($RDBMS eq 'oracle' or $RDBMS eq 'postgresql');
 }
 
-##########################################################################
+########################################################################
 ## Get priority/severity name from the associated ID
-##########################################################################
+########################################################################
 sub get_priority_name ($) {
 	my ($priority_id) = @_;