X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=perl%2FAmanda%2FChanger%2Frobot.pm;h=aa53f982ada680ea2e30e11daa68391529659c9b;hb=cd0b924f27312d57bd42f6c4fae2b795139e2d0b;hp=924b2101b2ca6cf5fbcaa2de72ab1b15f6b10e7d;hpb=011a59f5a54864108a16af570a6b287410597cc2;p=debian%2Famanda

diff --git a/perl/Amanda/Changer/robot.pm b/perl/Amanda/Changer/robot.pm
index 924b210..aa53f98 100644
--- a/perl/Amanda/Changer/robot.pm
+++ b/perl/Amanda/Changer/robot.pm
@@ -193,7 +193,7 @@ sub new {
     }
 
     # eject-before-unload
-    my $ebu = $self->get_boolean_property($self->{'config'},
+    my $ebu = $self->{'config'}->get_boolean_property(
 					    "eject-before-unload", 0);
     if (!defined $ebu) {
 	return Amanda::Changer->make_error("fatal", undef,
@@ -202,7 +202,7 @@ sub new {
     $self->{'eject_before_unload'} = $ebu;
 
     # fast-search
-    my $fast_search = $self->get_boolean_property($self->{'config'},
+    my $fast_search = $self->{'config'}->get_boolean_property(
 						"fast-search", 1);
     if (!defined $fast_search) {
 	return Amanda::Changer->make_error("fatal", undef,
@@ -287,7 +287,7 @@ sub new {
 	$self->{$key} = $time;
     }
 
-    my $ignore_barcodes = $self->get_boolean_property($self->{'config'},
+    my $ignore_barcodes = $self->{'config'}->get_boolean_property(
 					    "ignore-barcodes", 0);
     if (!defined $ignore_barcodes) {
 	return Amanda::Changer->make_error("fatal", undef,
@@ -416,7 +416,7 @@ sub load_unlocked {
 
 	if ($state->{'slots'}->{$slot}->{'state'} eq Amanda::Changer::SLOT_EMPTY) {
 	    return $self->make_error("failed", $params{'res_cb'},
-		    reason => "notfound",
+		    reason => "empty",
 		    message => "slot $slot is empty");
 	}