Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Second Installment: Patron card generation feature

Browse source 
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Chris Nighswonger 2008-03-17 10:43:52 -04:00 committed by Joshua Ferraro
parent a988d199a2
commit 49bf208ea0
1 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
labels/label-manager.pl
View file

@ -56,6 +56,7 @@ my $active_template_name = $active_template->{'tmpl_code'};
# $batch_id = get_highest_batch(); # $batch_id = get_highest_batch();
#} #}
my $batch_type = "labels"; #FIXME: Hardcoded for testing...
my @messages; my @messages;
my ($itemnumber) = @itemnumber if (scalar(@itemnumber) == 1); my ($itemnumber) = @itemnumber if (scalar(@itemnumber) == 1);
@ -104,8 +105,11 @@ elsif ( $op eq 'add_layout' ) {
print $query->redirect("label-home.pl"); print $query->redirect("label-home.pl");
exit; exit;
} }
# FIXME: The trinary conditionals here really need to be replaced with a more robust form of db abstraction -fbcit
elsif ( $op eq 'add' ) { # add item elsif ( $op eq 'add' ) { # add item
my $query2 = "INSERT INTO labels ( itemnumber, batch_id ) values ( ?,? )"; my $query2 = "INSERT INTO $batch_type ( " . (($batch_type eq 'labels') ? 'itemnumber' : 'borrowernumber') . ", batch_id ) values ( ?,? )";
my $sth2 = $dbh->prepare($query2); my $sth2 = $dbh->prepare($query2);
for my $inum (@itemnumber) { for my $inum (@itemnumber) {
$sth2->execute($inum, $batch_id); $sth2->execute($inum, $batch_id);
@ -113,29 +117,29 @@ elsif ( $op eq 'add' ) { # add item
$sth2->finish; $sth2->finish;
} }
elsif ( $op eq 'deleteall' ) { elsif ( $op eq 'deleteall' ) {
my $query2 = "DELETE FROM labels"; my $query2 = "DELETE FROM $batch_type";
my $sth2 = $dbh->prepare($query2); my $sth2 = $dbh->prepare($query2);
$sth2->execute(); $sth2->execute();
$sth2->finish; $sth2->finish;
} }
elsif ( $op eq 'delete' ) { elsif ( $op eq 'delete' ) {
my @labelids = $query->param('labelid'); my @labelids = $query->param((($batch_type eq 'labels') ? 'labelid' : 'cardid'));
scalar @labelids or push @messages, "ERROR: No labelid(s) supplied for deletion."; scalar @labelids or push @messages, (($batch_type eq 'labels') ? "ERROR: No labelid(s) supplied for deletion." : "ERROR: No cardid(s) supplied for deletion.");
my $ins = "?," x (scalar @labelids); my $ins = "?," x (scalar @labelids);
$ins =~ s/\,$//; $ins =~ s/\,$//;
my $query2 = "DELETE FROM labels WHERE labelid IN ($ins) "; my $query2 = "DELETE FROM $batch_type WHERE " . (($batch_type eq 'labels') ? 'labelid' : 'cardid') ." IN ($ins) ";
$debug and push @messages, "query2: $query2 -- (@labelids)"; $debug and push @messages, "query2: $query2 -- (@labelids)";
my $sth2 = $dbh->prepare($query2); my $sth2 = $dbh->prepare($query2);
$sth2->execute(@labelids); $sth2->execute(@labelids);
$sth2->finish; $sth2->finish;
} }
elsif ( $op eq 'delete_batch' ) { elsif ( $op eq 'delete_batch' ) {
delete_batch($batch_id); delete_batch($batch_id, $batch_type);
print $query->redirect("label-manager.pl?batch_id="); print $query->redirect("label-manager.pl?batch_id=");
exit; exit;
} }
elsif ( $op eq 'add_batch' ) { elsif ( $op eq 'add_batch' ) {
$batch_id= add_batch(); $batch_id= add_batch($batch_type);
} }
elsif ( $op eq 'set_active_layout' ) { elsif ( $op eq 'set_active_layout' ) {
set_active_layout($layout_id); set_active_layout($layout_id);