#!/usr/bin/perl

# list_patrons.pl - list all the patrons and their terms

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

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

$| = 1;

# do the work
my @patrons = MyLibrary::Patron->get_patrons;
foreach my $patron ( @patrons ) {

	my $username = $patron->patron_username;
	my $fname    = $patron->patron_firstname;
	my $lname    = $patron->patron_surname;
	print "$fname $lname ($username)\n";
	my @term_ids = $patron->patron_terms;
	foreach my $term_id ( @term_ids ) {
	
		my $term = MyLibrary::Term->new( id => $term_id );
		print "\t", $term->term_name, "\n";
	
	}
	print "\n";

}