Koha-community/kumara
2
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

getting borrower enquiries working

Browse source
This commit is contained in:
chris 1999-11-14 03:59:19 +00:00
parent 1a08e2f582
commit ffc12916c0
3 changed files with 39 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
C4/Circulation.pm
View file

@ -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,16 +66,18 @@ 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");
} }

10
C4/Circulation/Borrower.pm
View file

@ -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,
@ -165,5 +165,13 @@ 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)

23
C4/Interface.pm
View file

@ -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);