&oops('you do not have any items in inventory') unless (open(THEFILE, "$basepath/$inventory/$data.txt"));
	my ($title, $image, $counter, $supplier, $account_num, @inventory) = <THEFILE>;
	close THEFILE;
	chomp($title, $image, $counter, $supplier, $account_num, @inventory);
      	my @supplier = split(/\[\]/,$inventory[$#inventory]);
      	$file =~ s/\.dat//;