getting borrower enquiries working
This commit is contained in:
parent
1a08e2f582
commit
ffc12916c0
3 changed files with 39 additions and 7 deletions
|
@ -9,6 +9,7 @@ use C4::Database;
|
||||||
use C4::Circulation::Issues;
|
use C4::Circulation::Issues;
|
||||||
use C4::Circulation::Returns;
|
use C4::Circulation::Returns;
|
||||||
use C4::Circulation::Renewals;
|
use C4::Circulation::Renewals;
|
||||||
|
use C4::Circulation::Borrower;
|
||||||
use C4::Interface;
|
use C4::Interface;
|
||||||
use C4::Security;
|
use C4::Security;
|
||||||
|
|
||||||
|
@ -65,17 +66,19 @@ sub Start_circ{
|
||||||
('Issues','Returns','Borrower Enquiries','Log In'));
|
('Issues','Returns','Borrower Enquiries','Log In'));
|
||||||
|
|
||||||
if ($data eq 'Issues') {
|
if ($data eq 'Issues') {
|
||||||
$donext=Issue($env);
|
$donext=Issue($env); #C4::Circulation::Issues
|
||||||
} elsif ($data eq 'Returns') {
|
} elsif ($data eq 'Returns') {
|
||||||
$donext=Returns($env);
|
$donext=Returns($env); #C4::Circulation::Returns
|
||||||
} elsif ($data eq 'Log In') {
|
} elsif ($data eq 'Log In') {
|
||||||
debug_msg("","New user");
|
debug_msg("","New user"); #C4::Security
|
||||||
&endint($env);
|
&endint($env);
|
||||||
&Login($env);
|
&Login($env);
|
||||||
&startint($env,'Circulation');
|
&startint($env,'Circulation');
|
||||||
} elsif ($data eq 'Quit') {
|
} elsif ($data eq 'Quit') {
|
||||||
$donext = $data;
|
$donext = $data;
|
||||||
}
|
} elsif ($data eq 'Borrower Enquiries'){
|
||||||
|
$donext=Borenq($env); #C4::Circulation::Borrower
|
||||||
|
}
|
||||||
debug_msg($env,"donext - $donext");
|
debug_msg($env,"donext - $donext");
|
||||||
}
|
}
|
||||||
&endint($env)
|
&endint($env)
|
||||||
|
|
|
@ -19,7 +19,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
|
||||||
$VERSION = 0.01;
|
$VERSION = 0.01;
|
||||||
|
|
||||||
@ISA = qw(Exporter);
|
@ISA = qw(Exporter);
|
||||||
@EXPORT = qw(&findborrower);
|
@EXPORT = qw(&findborrower &Borenq);
|
||||||
%EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
|
%EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
|
||||||
|
|
||||||
# your exported package globals go here,
|
# your exported package globals go here,
|
||||||
|
@ -164,6 +164,14 @@ sub checktraps {
|
||||||
}
|
}
|
||||||
return ($issuesallowed);
|
return ($issuesallowed);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
sub Borenq {
|
||||||
|
my ($env)=@_;
|
||||||
|
my $dbh=C4Connect;
|
||||||
|
#get borrower guff
|
||||||
|
my ($bornum,$issuesallowed,$borrower,$reason) = &findborrower($env,$dbh);
|
||||||
|
my ($data,$reason)=&borrowerwindow($env,$borrower);
|
||||||
|
# debug_msg("",$borrower->{'surname'});
|
||||||
|
}
|
||||||
|
|
||||||
END { } # module clean-up code here (global destructor)
|
END { } # module clean-up code here (global destructor)
|
||||||
|
|
|
@ -22,7 +22,7 @@ $VERSION = 0.01;
|
||||||
@ISA = qw(Exporter);
|
@ISA = qw(Exporter);
|
||||||
@EXPORT = qw(&dialog &startint &endint &output &clearscreen &pause &helptext
|
@EXPORT = qw(&dialog &startint &endint &output &clearscreen &pause &helptext
|
||||||
&textbox &menu &issuewindow &msg_yn &borrower_dialog &debug_msg &error_msg
|
&textbox &menu &issuewindow &msg_yn &borrower_dialog &debug_msg &error_msg
|
||||||
&selborrower &fmtstr &fmtdec &returnwindow &logondialog);
|
&selborrower &fmtstr &fmtdec &returnwindow &logondialog &borrowerwindow);
|
||||||
%EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
|
%EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
|
||||||
|
|
||||||
# your exported package globals go here,
|
# your exported package globals go here,
|
||||||
|
@ -232,7 +232,26 @@ sub returnwindow {
|
||||||
my $stuff=$entry->Get();
|
my $stuff=$entry->Get();
|
||||||
return($reason,$stuff);
|
return($reason,$stuff);
|
||||||
}
|
}
|
||||||
|
sub borrowerwindow {
|
||||||
|
my ($env,$borrower)=@_;
|
||||||
|
my $entry=Newt::Entry(10,NEWT_FLAG_SCROLL | NEWT_FLAG_RETURNEXIT);
|
||||||
|
my $label=Newt::Label("Borrower");
|
||||||
|
my $l1=Newt::Label("$borrower->{'firstname'} $borrower->{'surname'}");
|
||||||
|
my $l2=Newt::Label("Street Address: $borrower->{'streetaddress'}");
|
||||||
|
my $l3=Newt::Label("Suburb: $borrower->{'suburb'}");
|
||||||
|
my $l4=Newt::Label("City: $borrower->{'city'}");
|
||||||
|
my $l5=Newt::Label("Email: $borrower->{'email'}");
|
||||||
|
my $panel=Newt::Panel(10,10,'Borrower');
|
||||||
|
$panel->Add(0,0,$label);
|
||||||
|
$panel->Add(0,1,$l1);
|
||||||
|
$panel->Add(0,2,$l2);
|
||||||
|
$panel->Add(0,3,$l3);
|
||||||
|
$panel->Add(0,4,$l4);
|
||||||
|
$panel->Add(0,5,$l5);
|
||||||
|
$panel->Add(0,6,$entry);
|
||||||
|
my ($reason,$data)=$panel->Run();
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
sub issuewindow {
|
sub issuewindow {
|
||||||
my ($env,$title,$items1,$items2,$borrower,$amountowing)=@_;
|
my ($env,$title,$items1,$items2,$borrower,$amountowing)=@_;
|
||||||
|
@ -295,6 +314,8 @@ sub issuewindow {
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
sub dialog {
|
sub dialog {
|
||||||
my ($name)=@_;
|
my ($name)=@_;
|
||||||
my $entry=Newt::Entry(20,NEWT_FLAG_SCROLL | NEWT_FLAG_RETURNEXIT);
|
my $entry=Newt::Entry(20,NEWT_FLAG_SCROLL | NEWT_FLAG_RETURNEXIT);
|
||||||
|
|
Loading…
Reference in a new issue