# recently ordered init
use strict;

# Loop through locations; for each location, run another perl script, passing a parameter to it
# that contains a part of the filename that will be created, the format, and the location codes
# separated by hyphens.
# They hyphens will be changed to pipes in the other script; when I put the pipes in this script
# it wouldn't work.

my $location;
my @locations = (	"a-fiction,bk,afic",
			"a-large-print,bk,larg",
			"a-nf,bk,anon",
			"av-audiobooks,bk,cdbk",
			"av-bluray,dvd,blu",
			"av-cd,cd,cd",
			"av-dvd,dvd,dvde",
			"av-mp3,bk,mp3",
			"av-playaway,bk,pla",
			"j-bluray,blu,bluj",
			"j-books,bk,cbkx-j-jbios-jbks-jcha-jfic-jnon-jpbk-jpic-jroun-jread-jtod-jgrap",
			"j-cdbk,bk,jcdbk",
			"j-cd,cd,jcd",
			"j-dvd,dvd,dvdj-dvdjn",
			"j-playaway,bk,plj",
			"j-view,bk,pvj",
			"teen,bk,ya",
			"ya-playaway,bk,ply"
);

foreach $location(@locations) {
	system("c:\\scripts\\recently-ordered.pl $location");
};