Index: trunk/tools/neb_rawOTA_host_scan.pl
===================================================================
--- trunk/tools/neb_rawOTA_host_scan.pl	(revision 36434)
+++ trunk/tools/neb_rawOTA_host_scan.pl	(revision 36435)
@@ -21,5 +21,5 @@
     ) or die "Unable to connect to database $DBI::errstr\n";
 
-my ($host,$min_ins_id,$verbose,$limit,$continue,$alt);
+my ($host,$min_ins_id,$verbose,$limit,$continue,$alt,$vol_label);
 $min_ins_id = 0;
 $verbose = 0;
@@ -27,4 +27,5 @@
 $continue = 0;
 $alt = 0;
+$vol_label = 0;
 
 GetOptions(
@@ -35,4 +36,5 @@
     'continue|c'    => \$continue,
     'alternate|a'   => \$alt,
+    'vol_label|L=s'   => \$vol_label,
     ) or pod2usage( 2 );
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
@@ -41,5 +43,5 @@
     defined($host);
 
-my $volume = $host . ".0";
+my $volume = $host . "." . $vol_label;
 my $rr;
 
@@ -85,5 +87,5 @@
     }
     my $r_ins      = $db->selectall_arrayref( $ins_id_sth );
-    my $last_ins_id = 0;
+    my $last_ins_id = $max_ins_id;
     $number = 0;
     foreach $rr (@{ $r_ins }) {
@@ -154,3 +156,3 @@
 	$min_ins_id = $last_ins_id;
     }
-} while (($continue && $number != 0) || ($min_ins_id <= $max_ins_id));
+} while (($continue && $number != 0) || ($min_ins_id < $max_ins_id));