#!/usr/bin/perl

# list_departments.pl - list departments where people work

# Eric Lease Morgan <emorgan@nd.edu>
# January 12, 2007


# require
use MyLibrary::Core;
use MyLibrary::Patron;
use strict;
MyLibrary::Config->instance( 'your_page' );

# turn on output
$| = 1;

# get the patrons
print "Getting patrons...\n";
my @patrons = MyLibrary::Patron->get_patrons;

print "Getting departments...\n";
my @departments = ();
foreach my $patron ( @patrons ) { push @departments, $patron->patron_organization }
my %seen;
my @unique = grep { ! $seen{$_} ++ } @departments;
@unique = sort (@unique);
foreach (@unique) { print $_, "\n" }

print "Counting...\n";
my %counts;
foreach my $department ( @departments ) { $counts{$department}++ }

# print report
my @list;
my $total;
foreach my $key (sort(keys(%counts))) {

	my $value = $counts{$key};
	push @list, "$value\t$key\n";
	$total = $total + $value;

}
@list = sort {$b <=> $a} (@list);
foreach ( @list ) { print $_ }
print "Total people: $total\n";