* perl/Amanda/Tapelist.swg (lookup_by_barcode): New method to return a
  tle from a barcode.


git-svn-id: https://svn.code.sf.net/p/amanda/code/amanda/trunk@5684 a8d146d6-cc15-0410-8900-af154a0219e0