From 534956bc31f84bd11e75092f92b34a2b3ac1459a Mon Sep 17 00:00:00 2001
From: Joe Atzberger <joe.atzberger@liblime.com>
Date: Mon, 7 Jan 2008 13:52:46 -0600
Subject: [PATCH] Accounts.pm - BEGIN block VERSION and vars related to export.

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 C4/Accounts.pm | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/C4/Accounts.pm b/C4/Accounts.pm
index 11b937895d..a8db9307c8 100644
--- a/C4/Accounts.pm
+++ b/C4/Accounts.pm
@@ -19,7 +19,6 @@ package C4::Accounts;
 
 
 use strict;
-require Exporter;
 use C4::Context;
 use C4::Stats;
 use C4::Members;
@@ -28,8 +27,16 @@ use C4::Items;
 #use C4::Circulation;
 use vars qw($VERSION @ISA @EXPORT);
 
-# set the version for version checking
-$VERSION = 3.00;
+BEGIN {
+	# set the version for version checking
+	$VERSION = 3.01;
+	require Exporter;
+	@ISA    = qw(Exporter);
+	@EXPORT = qw(
+		&recordpayment &fixaccounts &makepayment &manualinvoice
+		&getnextacctno &reconcileaccount
+	);
+}
 
 =head1 NAME
 
@@ -47,12 +54,6 @@ patron.
 
 =head1 FUNCTIONS
 
-=cut
-
-@ISA    = qw(Exporter);
-@EXPORT = qw(&recordpayment &fixaccounts &makepayment &manualinvoice
-  &getnextacctno &reconcileaccount);
-
 =head2 recordpayment
 
   &recordpayment($borrowernumber, $payment);
@@ -539,7 +540,6 @@ END { }    # module clean-up code here (global destructor)
 1;
 __END__
 
-
 =head1 SEE ALSO
 
 DBI(3)
-- 
2.39.5