X-Git-Url: https://git.gag.com/?a=blobdiff_plain;ds=sidebyside;f=perl%2FAmanda%2FTaper%2FScan%2Foldest.pm;h=a7945a8d99c835646b534d0b83ef83d88349b561;hb=refs%2Ftags%2Fupstream%2F3.3.1;hp=3c9fc6a1b56788d9ee3303c768c95a8c981e8ca6;hpb=cd0b924f27312d57bd42f6c4fae2b795139e2d0b;p=debian%2Famanda

diff --git a/perl/Amanda/Taper/Scan/oldest.pm b/perl/Amanda/Taper/Scan/oldest.pm
index 3c9fc6a..a7945a8 100644
--- a/perl/Amanda/Taper/Scan/oldest.pm
+++ b/perl/Amanda/Taper/Scan/oldest.pm
@@ -131,17 +131,13 @@ sub analyze {
 		    if ($vol_tle->{'datestamp'} eq '0') {
 			push @new_labeled, $sl;
 		    }
-		} elsif ($self->{'chg'}->volume_is_labelable($sl->{'device_status'},
-							     $sl->{'f_type'},
-							     $sl->{'label'})) {
+		} elsif ($self->volume_is_labelable($sl)) {
 		    $first_new_volume = $sl if !$first_new_volume;
 		    $new_volume = $sl if $current && !$new_volume;
 		    push @new_volume, $sl;
 		}
 	    }
-	} elsif ($self->{'chg'}->volume_is_labelable($sl->{'device_status'},
-						     $sl->{'f_type'},
-						     $sl->{'label'})) {
+	} elsif ($self->volume_is_labelable($sl)) {
 	    $first_new_volume = $sl if !$first_new_volume;
 	    $new_volume = $sl if $current && !$new_volume;
 	    push @new_volume, $sl;
@@ -184,6 +180,7 @@ sub analyze {
     for my $sl (@new_volume) {
 	$sl->{'label'} = $self->{'chg'}->make_new_tape_label(
 					barcode => $sl->{'barcode'},
+					slot => $sl->{'slot'},
 					meta => $sl->{'meta'});
 	$new_volume = $sl if defined $last_label and
 			     $new_volume->{'label'} ne $sl->{'label'} and