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

11
C4/Circulation.pm
View file

@ -9,6 +9,7 @@ use C4::Database;
use C4::Circulation::Issues;
use C4::Circulation::Returns;
use C4::Circulation::Renewals;
use C4::Circulation::Borrower;
use C4::Interface;
use C4::Security;
@ -65,17 +66,19 @@ sub Start_circ{
('Issues','Returns','Borrower Enquiries','Log In'));
if ($data eq 'Issues') {
$donext=Issue($env);
$donext=Issue($env); #C4::Circulation::Issues
} elsif ($data eq 'Returns') {
$donext=Returns($env);
$donext=Returns($env); #C4::Circulation::Returns
} elsif ($data eq 'Log In') {
debug_msg("","New user");
debug_msg("","New user"); #C4::Security
&endint($env);
&Login($env);
&startint($env,'Circulation');
} elsif ($data eq 'Quit') {
$donext = $data;
}
} elsif ($data eq 'Borrower Enquiries'){
$donext=Borenq($env); #C4::Circulation::Borrower
}
debug_msg($env,"donext - $donext");
}
&endint($env)

12
C4/Circulation/Borrower.pm
View file

@ -19,7 +19,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
$VERSION = 0.01;
@ISA = qw(Exporter);
@EXPORT = qw(&findborrower);
@EXPORT = qw(&findborrower &Borenq);
%EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
# your exported package globals go here,
@ -164,6 +164,14 @@ sub checktraps {
}
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)

23
C4/Interface.pm
View file

@ -22,7 +22,7 @@ $VERSION = 0.01;
@ISA = qw(Exporter);
@EXPORT = qw(&dialog &startint &endint &output &clearscreen &pause &helptext
&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! ],
# your exported package globals go here,
@ -232,7 +232,26 @@ sub returnwindow {
my $stuff=$entry->Get();
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 {
my ($env,$title,$items1,$items2,$borrower,$amountowing)=@_;
@ -295,6 +314,8 @@ sub issuewindow {
}
sub dialog {
my ($name)=@_;
my $entry=Newt::Entry(20,NEWT_FLAG_SCROLL | NEWT_FLAG_RETURNEXIT);