#!/usr/bin/perl
use strict;
use warnings;
use FindBin qw( $Bin );
use lib "$Bin/../../lib";
use Data::Dumper;
use DBI;
use App::POS::DB::Postgres;

my $DATABASE = 'pos';

my$dsn='DBI:Pg:dbname='.$DATABASE.';host=127.0.0.1';
my$user='root';
my$passwd='';

my$db=App::POS::DB::Postgres->new(dbh=>DBI->connect($dsn,$user,$passwd,{}));

$db->do("UPDATE clerks SET priority = 0");

my @recs = $db->select(qq{
  SELECT sh.clerk_close, c.login, COUNT(sh.*)
  FROM sales_headers sh
  LEFT JOIN clerks c ON (sh.clerk_close = c.id)
  GROUP BY sh.clerk_close, c.login
  ORDER BY COUNT(sh.*) DESC
});

#print STDERR Dumper(\@recs);

my $prio = 10000;

for (@recs) {
  $db->do("UPDATE clerks SET priority = ? WHERE id = ?", $prio, $_->{clerk_close});
  $prio--;
}

