Members.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>
This commit is contained in:
parent
3483498c43
commit
e660a339a8
|
|
@ -22,7 +22,7 @@ package C4::Languages;
|
|||
use strict;
|
||||
use warnings; #FIXME: turn off warnings before release
|
||||
use C4::Context;
|
||||
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
|
||||
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG);
|
||||
|
||||
BEGIN {
|
||||
$VERSION = 3.00;
|
||||
|
|
|
|||
143
C4/Members.pm
143
C4/Members.pm
|
|
@ -19,7 +19,6 @@ package C4::Members;
|
|||
|
||||
|
||||
use strict;
|
||||
require Exporter;
|
||||
use C4::Context;
|
||||
use C4::Dates qw(format_date_in_iso);
|
||||
use Digest::MD5 qw(md5_base64);
|
||||
|
|
@ -32,8 +31,75 @@ use C4::Accounts;
|
|||
our ($VERSION,@ISA,@EXPORT,@EXPORT_OK,$debug);
|
||||
|
||||
BEGIN {
|
||||
$VERSION = 3.02;
|
||||
$debug = $ENV{DEBUG} || 0;
|
||||
$VERSION = 3.02;
|
||||
$debug = $ENV{DEBUG} || 0;
|
||||
require Exporter;
|
||||
@ISA = qw(Exporter);
|
||||
#Get data
|
||||
push @EXPORT, qw(
|
||||
&SearchMember
|
||||
&GetMemberDetails
|
||||
&GetMember
|
||||
|
||||
&GetGuarantees
|
||||
|
||||
&GetMemberIssuesAndFines
|
||||
&GetPendingIssues
|
||||
&GetAllIssues
|
||||
|
||||
&get_institutions
|
||||
&getzipnamecity
|
||||
&getidcity
|
||||
|
||||
&GetAge
|
||||
&GetCities
|
||||
&GetRoadTypes
|
||||
&GetRoadTypeDetails
|
||||
&GetSortDetails
|
||||
&GetTitles
|
||||
|
||||
&GetMemberAccountRecords
|
||||
&GetBorNotifyAcctRecord
|
||||
|
||||
&GetborCatFromCatType
|
||||
&GetBorrowercategory
|
||||
|
||||
&GetBorrowersWhoHaveNotBorrowedSince
|
||||
&GetBorrowersWhoHaveNeverBorrowed
|
||||
&GetBorrowersWithIssuesHistoryOlderThan
|
||||
|
||||
&GetExpiryDate
|
||||
);
|
||||
|
||||
#Modify data
|
||||
push @EXPORT, qw(
|
||||
&ModMember
|
||||
&changepassword
|
||||
);
|
||||
|
||||
#Delete data
|
||||
push @EXPORT, qw(
|
||||
&DelMember
|
||||
);
|
||||
|
||||
#Insert data
|
||||
push @EXPORT, qw(
|
||||
&AddMember
|
||||
&add_member_orgs
|
||||
&MoveMemberToDeleted
|
||||
&ExtendMemberSubscriptionTo
|
||||
);
|
||||
|
||||
#Check data
|
||||
push @EXPORT, qw(
|
||||
&checkuniquemember
|
||||
&checkuserpassword
|
||||
&Check_Userid
|
||||
&fixEthnicity
|
||||
ðnicitycategories
|
||||
&fixup_cardnumber
|
||||
&checkcardnumber
|
||||
);
|
||||
}
|
||||
|
||||
=head1 NAME
|
||||
|
|
@ -52,77 +118,6 @@ This module contains routines for adding, modifying and deleting members/patrons
|
|||
|
||||
=over 2
|
||||
|
||||
=cut
|
||||
|
||||
@ISA = qw(Exporter);
|
||||
|
||||
#Get data
|
||||
push @EXPORT, qw(
|
||||
&SearchMember
|
||||
&GetMemberDetails
|
||||
&GetMember
|
||||
|
||||
&GetGuarantees
|
||||
|
||||
&GetMemberIssuesAndFines
|
||||
&GetPendingIssues
|
||||
&GetAllIssues
|
||||
|
||||
&get_institutions
|
||||
&getzipnamecity
|
||||
&getidcity
|
||||
|
||||
&GetAge
|
||||
&GetCities
|
||||
&GetRoadTypes
|
||||
&GetRoadTypeDetails
|
||||
&GetSortDetails
|
||||
&GetTitles
|
||||
|
||||
&GetMemberAccountRecords
|
||||
&GetBorNotifyAcctRecord
|
||||
|
||||
&GetborCatFromCatType
|
||||
&GetBorrowercategory
|
||||
|
||||
|
||||
&GetBorrowersWhoHaveNotBorrowedSince
|
||||
&GetBorrowersWhoHaveNeverBorrowed
|
||||
&GetBorrowersWithIssuesHistoryOlderThan
|
||||
|
||||
&GetExpiryDate
|
||||
);
|
||||
|
||||
#Modify data
|
||||
push @EXPORT, qw(
|
||||
&ModMember
|
||||
&changepassword
|
||||
);
|
||||
|
||||
#Delete data
|
||||
push @EXPORT, qw(
|
||||
&DelMember
|
||||
);
|
||||
|
||||
#Insert data
|
||||
push @EXPORT, qw(
|
||||
&AddMember
|
||||
&add_member_orgs
|
||||
&MoveMemberToDeleted
|
||||
&ExtendMemberSubscriptionTo
|
||||
);
|
||||
|
||||
#Check data
|
||||
push @EXPORT, qw(
|
||||
&checkuniquemember
|
||||
&checkuserpassword
|
||||
&Check_Userid
|
||||
&fixEthnicity
|
||||
ðnicitycategories
|
||||
&fixup_cardnumber
|
||||
&checkcardnumber
|
||||
);
|
||||
|
||||
=item SearchMember
|
||||
|
||||
($count, $borrowers) = &SearchMember($searchstring, $type,$category_type,$filter,$showallbranches);
|
||||
|
|
|
|||
Loading…
Reference in New Issue