|
Lines 165-171
if ( $step && $step == 1 ) {
Link Here
|
| 165 |
else { |
165 |
else { |
| 166 |
$message = 'error_on_insert'; |
166 |
$message = 'error_on_insert'; |
| 167 |
} |
167 |
} |
| 168 |
warn $message; |
|
|
| 169 |
$template->param( 'message' => $message ); |
168 |
$template->param( 'message' => $message ); |
| 170 |
|
169 |
|
| 171 |
#Check if the $step variable equals 2 i.e. the user has clicked to create a patron category in the create patron category screen 1 |
170 |
#Check if the $step variable equals 2 i.e. the user has clicked to create a patron category in the create patron category screen 1 |
|
Lines 249-255
elsif ( $step && $step == 3 ) {
Link Here
|
| 249 |
#Find all patron records in the database and hand them to the template |
248 |
#Find all patron records in the database and hand them to the template |
| 250 |
my %currentpatrons = Koha::Patrons->search(); |
249 |
my %currentpatrons = Koha::Patrons->search(); |
| 251 |
my $currentpatrons = values %currentpatrons; |
250 |
my $currentpatrons = values %currentpatrons; |
| 252 |
warn $currentpatrons; |
|
|
| 253 |
$template->param( 'patrons' =>$currentpatrons); |
251 |
$template->param( 'patrons' =>$currentpatrons); |
| 254 |
|
252 |
|
| 255 |
|
253 |
|
|
Lines 285-293
elsif ( $step && $step == 3 ) {
Link Here
|
| 285 |
#Incrementing the highest existing patron cardnumber to prevent duplicate cardnumber entry |
283 |
#Incrementing the highest existing patron cardnumber to prevent duplicate cardnumber entry |
| 286 |
my $exisiting_cardnumber = my $sth_search = |
284 |
my $exisiting_cardnumber = my $sth_search = |
| 287 |
$dbh->prepare("SELECT MAX(cardnumber) FROM borrowers"); |
285 |
$dbh->prepare("SELECT MAX(cardnumber) FROM borrowers"); |
| 288 |
warn $exisiting_cardnumber; |
|
|
| 289 |
my $new_cardnumber = $exisiting_cardnumber + 1; |
286 |
my $new_cardnumber = $exisiting_cardnumber + 1; |
| 290 |
warn $new_cardnumber; |
|
|
| 291 |
$template->param( "newcardnumber" => $new_cardnumber ); |
287 |
$template->param( "newcardnumber" => $new_cardnumber ); |
| 292 |
|
288 |
|
| 293 |
my $op = $input->param('op') // 'list'; |
289 |
my $op = $input->param('op') // 'list'; |
|
Lines 454-460
elsif ( $step && $step == 4 ) {
Link Here
|
| 454 |
if ($op eq "add_validate"){ |
450 |
if ($op eq "add_validate"){ |
| 455 |
my $description = $input->param('description'); |
451 |
my $description = $input->param('description'); |
| 456 |
my $itemtype_code = $input->param('itemtype'); |
452 |
my $itemtype_code = $input->param('itemtype'); |
| 457 |
warn $description; |
|
|
| 458 |
$itemtype_code = uc($itemtype_code); |
453 |
$itemtype_code = uc($itemtype_code); |
| 459 |
|
454 |
|
| 460 |
#Create a new itemtype object using the user inputted itemtype and description |
455 |
#Create a new itemtype object using the user inputted itemtype and description |
| 461 |
- |
|
|