Skip to content
Snippets Groups Projects
Commit df889951 authored by Andreas Romeyke's avatar Andreas Romeyke
Browse files

- removed debugging code

parent 98505e3a
Branches
Tags
No related merge requests found
...@@ -270,12 +270,6 @@ sub write_addsql ($dbh, $plans, $refhash) { ...@@ -270,12 +270,6 @@ sub write_addsql ($dbh, $plans, $refhash) {
my $reason = $purge->{'reason'}; my $reason = $purge->{'reason'};
my $date = $purge->{'date'}; my $date = $purge->{'date'};
my $authorized_by = $purge->{'authorized_by'}; my $authorized_by = $purge->{'authorized_by'};
if (! defined $reason or length($reason) < 2) {
use Data::Printer;
p( $purge );
p($iefile);
die;
}
$plans->{deleted}->execute($ieid, $ieversion, $state, $reason, $date, $authorized_by) or die "sql problem detected", $dbh->errstr; $plans->{deleted}->execute($ieid, $ieversion, $state, $reason, $date, $authorized_by) or die "sql problem detected", $dbh->errstr;
} }
} }
...@@ -482,7 +476,6 @@ sub check_if_db_conform ($string, $filename) { ...@@ -482,7 +476,6 @@ sub check_if_db_conform ($string, $filename) {
############################################ ############################################
my $is_deleted = has_purged_entries($xp, $amdsec); my $is_deleted = has_purged_entries($xp, $amdsec);
if ($is_deleted) { if ($is_deleted) {
print "FOUND DELETED\n";
my @purged_states = @{ get_purged_states($xp, $amdsec) }; my @purged_states = @{ get_purged_states($xp, $amdsec) };
foreach my $idx (0 .. $#purged_states) { foreach my $idx (0 .. $#purged_states) {
$ret->{'purged'}->[$idx]->{state} = $purged_states[$idx]; $ret->{'purged'}->[$idx]->{state} = $purged_states[$idx];
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment