From c8b9187aedf31f6de16cc9020380b8b5b846e012 Mon Sep 17 00:00:00 2001 From: rangi Date: Wed, 7 Mar 2001 01:48:48 +0000 Subject: [PATCH] Added the functionality to allow librarians to manipulate the flag status on borrowers ie lost, debarred, and gone no address --- insertdata.pl | 3 ++- memberentry.pl | 44 ++++++++++++++++++++++++++++++++++++++++---- 2 files changed, 42 insertions(+), 5 deletions(-) diff --git a/insertdata.pl b/insertdata.pl index 343e5cbaeb..b2d33baeff 100755 --- a/insertdata.pl +++ b/insertdata.pl @@ -37,7 +37,8 @@ if (my $data=$sth->fetchrow_hashref){ altrelationship='$data{'altrelationship'}',othernames='$data{'othernames'}',phoneday='$data{'phoneday'}', categorycode='$data{'categorycode'}',city='$data{'city'}',area='$data{'area'}',phone='$data{'phone'}', borrowernotes='$data{'borrowernotes'}',altphone='$data{'altphone'}',surname='$data{'surname'}', - initials='$data{'initials'}',streetaddress='$data{'address'}',ethnicity='$data{'ethnicity'}' + initials='$data{'initials'}',streetaddress='$data{'address'}',ethnicity='$data{'ethnicity'}', + gonenoaddress='$data{'gna'}',lost='$data{'lost'}',debarred='$data{'debarred'}' where borrowernumber=$data{'borrowernumber'}"; # print $query; diff --git a/memberentry.pl b/memberentry.pl index 0080839ceb..25e9630923 100755 --- a/memberentry.pl +++ b/memberentry.pl @@ -15,11 +15,11 @@ if ($member eq ''){ $member=NewBorrowerNumber(); } my $type=$input->param('type'); - +my $modify=$input->param('modify.x'); print $input->header; print startpage(); print startmenu('member'); - +#print $modify; if ($type ne 'Add'){ print mkheadr(1,'Update Member Details'); } else { @@ -371,16 +371,52 @@ print <Notes   - + +printend +; +if ($modify){ + print <FLAGS +Gone No Address +{'gonenoaddress'} eq '1'){ + print " checked"; + } +print ">Yes {'gonenoaddress'} eq '0'){ + print " checked"; + } + print ">No\n"; + print "Lost{'lost'} eq '1'){ + print " checked"; + } + print ">Yes{'lost'} eq '0'){ + print " checked"; + } + print ">No\n"; + print "Debarred{'debarred'} eq '1'){ + print " checked"; + } + print ">Yes{'debarred'} eq '0'){ + print " checked"; + } + print ">No\n"; +} +if ($type eq 'Add'){ print < printend ; } else { print < printend ; -- 2.39.5