package pdfdata;

sub acc {
  my @acc=();
  my $hdr  = ['Acc #', 'Name', 'OB Date', 'Number'];
  my @rows = (['12345','Carl Sea','03/13/2014','4'],
              ['764539','Deon gomes','11/07/2013','2']
              ); 
  push @acc,[$hdr,$_] for @rows;      

  my @accA=();
  my $hdrA = ["Tie #", "Year", "Model"];
  my @rowsA = (
  [
    ["1", "2000", "OLD",], ["2", "2001", "OLD",],
    ["3", "2002", "OLD",], ["4", "2003", "OLD",],
    ["5", "2004", "OLD",], ["6", "2005", "OLD",],
    ["7", "2011", "NEW",],
  ],[
    ["A", "2000", "OLD",], ["B", "2001", "OLD",],
    ["C", "2002", "OLD",], ["D", "2003", "OLD",],
    ["E", "2004", "OLD",], ["F", "2005", "OLD",],
    ["G", "2011", "NEW",],
  ],);   
  push @accA,[$hdrA,@$_]  for @rowsA;     

  my @accB=();
  my $hdrB = ["Name #","All", "DXS", "Delst","A #1","B #2", "C #3", "D #4"];
  my @rowsB = (
  [
    ["1","Stephen King", "5/5/1930", "N","O","P", "-", "-",],
    ["2","Charles Xing", "6/28/1550", "N","P","O", "-", "-",],
    ["3","Dnieal Cruz", "07/25/1988", "N","O","E", "-", "-",],
    ["4","Dnieal Cruz", "07/25/1988", "N","O","E", "-", "-",],
    ["5","Dnieal Cruz", "07/25/1988", "N","O","E", "-", "-",],
    ["6","Dnieal Cruz", "07/25/1988", "N","O","E", "-", "-",],
    ["7","Dnieal Cruz", "07/25/1988", "N","O","E", "-", "-",],
    ["8","Dnieal Cruz", "07/25/1988", "N","O","E", "-", "-",],
  ],[
    ["A","Maru Louey", "5/5/1950", "N","O","P", "-", "-",],
    ["B","Gome Thing", "6/28/1950", "N","P","O", "-", "-",],
    ["C","Dnieal Cruz", "07/25/1988", "N","O","E", "-", "-",],
    ["D","Dnieal Cruz", "07/25/1988", "N","O","E", "-", "-",],
    ["E","Dnieal Cruz", "07/25/1988", "N","O","E", "-", "-",],
    ["F","Dnieal Cruz", "07/25/1988", "N","O","E", "-", "-",],
    ["G","Dnieal Cruz", "07/25/1988", "N","O","E", "-", "-",],
    ["H","Dnieal Cruz", "07/25/1988", "N","O","E", "-", "-",],
  ],);
  push @accB,[$hdrB,@$_]  for @rowsB;     
  
  return \@acc,\@accA,\@accB;
}

# This is simulating random rows of data coming from the database
sub _ob_disc {
  my @disc = (
   ["A Number", "Name", "Date", "Reference"],
   ["23456", "Aname Another", "01/11/2014", "00007"],
   ["23456", "jhjhj ssaaa", "01/11/2014", "00007"],
   ["23456", "Loren asddf", "01/11/2014", "00007"],
   ["23456", "Serrt jahft", "01/11/2014", "00007"],
   ["23456", "Ojshfg treiu", "01/11/2014", "00007"],
   ["23456", "Rssskjj tehrrr", "01/11/2014", "00007"],
   ["23456", "Maru Smith", "01/11/2014", "00007"],
   ["23456", "Joe A Smith", "01/11/2014", "00007"],
   ["23456", "Marck Del", "01/11/2014", "00007"],
   ["23456", "Gujjnn Theeee", "01/11/2014", "00007"],
   ["23456", "Mary Lou", "01/11/2014", "00007"],
   ["23456", "Jackob Joen", "01/11/2014", "00007"],
   ["23456", "Marcouys De Larent", "01/11/2014", "00007"],
   ["23456", "Once Uon Time", "01/11/2014", "00007"],
   ["23456", "Nelson Mkkjhtt", "01/11/2014", "00007"],
   );
  return \@disc;
};

sub _excluded {
    
  my @exc = (
   ["Acc #", "Date", "Name", "Name #", "Others", "SSW", "XXXS", "#1", "#2" , "#3","#4",],
   ["12345", "11/01/2014", "consequat quis", "3", "Joe Doe", "03/07/2014", "0", "O", "E" , "P","",],
   ["12345", "11/01/2014", "consequat quis", "3", "Joe Doe", "03/07/2014", "0", "O", "E" , "P","",],
   ["12345", "11/01/2014", "consequat quis", "3", "Joe Doe", "03/07/2014", "0", "O", "E" , "P","",],
   ["12345", "11/01/2014", "consequat quis", "3", "Joe Doe", "03/07/2014", "0", "O", "E" , "P","",],
   ["12345", "11/01/2014", "consequat quis", "3", "Joe Doe", "03/07/2014", "0", "O", "E" , "P","",],
   ["12345", "11/01/2014", "consequat quis", "3", "Joe Doe", "03/07/2014", "0", "O", "E" , "P","",],
   ["12345", "11/01/2014", "consequat quis", "3", "Joe Doe", "03/07/2014", "0", "O", "E" , "P","",],
   ["12345", "11/01/2014", "consequat quis", "3", "Joe Doe", "03/07/2014", "0", "O", "E" , "P","",],
   ["12345", "11/01/2014", "consequat quis", "3", "Joe Doe", "03/07/2014", "0", "O", "E" , "P","",],
   ["12345", "11/01/2014", "consequat quis", "3", "Joe Doe", "03/07/2014", "0", "O", "E" , "P","",],
   ["12345", "11/01/2014", "consequat quis", "3", "Joe Doe", "03/07/2014", "0", "O", "E" , "P","",],
   ["12345", "11/01/2014", "consequat quis", "3", "Joe Doe", "03/07/2014", "0", "O", "E" , "P","",],
   ["12345", "11/01/2014", "consequat quis", "3", "Joe Doe", "03/07/2014", "0", "O", "E" , "P","",],
   ["12345", "11/01/2014", "consequat quis", "3", "Joe Doe", "03/07/2014", "0", "O", "E" , "P","",],
   ["12345", "11/01/2014", "consequat quis", "3", "Joe Doe", "03/07/2014", "0", "O", "E" , "P","",],
  );
  return \@exc;
};
1;