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

label-manager.pl - purely whitespace edit, use git diff -U0 -w labels/label-manager.pl to verify

Browse source 
Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Joe Atzberger 2008-01-02 13:18:49 -06:00 committed by Joshua Ferraro
parent fc60e7413c
commit 081d40e305
1 changed files with 47 additions and 65 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

112
labels/label-manager.pl
View file

@ -64,91 +64,73 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
);
if ( $op eq 'save_conf' ) { # this early sub is depreciated, use save_layout()
SaveConf(
$barcodetype, $title, $isbn,
$issn, $itemtype, $bcn, $dcn,
$classif, $subclass, $itemcallnumber, $author,
$tmpl_id, $printingtype, $guidebox, $startlabel, $layoutname
);
print $query->redirect("label-home.pl");
exit;
SaveConf(
$barcodetype, $title, $isbn,
$issn, $itemtype, $bcn, $dcn,
$classif, $subclass, $itemcallnumber, $author,
$tmpl_id, $printingtype, $guidebox, $startlabel, $layoutname
);
print $query->redirect("label-home.pl");
exit;
}
elsif ( $op eq 'save_layout' ) {
save_layout(
$barcodetype, $title, $subtitle, $isbn,
$issn, $itemtype, $bcn, $dcn,
$classif, $subclass, $itemcallnumber, $author,
$tmpl_id, $printingtype, $guidebox, $startlabel, $layoutname,
$layout_id
);
### $layoutname
print $query->redirect("label-home.pl");
exit;
save_layout(
$barcodetype, $title, $subtitle, $isbn,
$issn, $itemtype, $bcn, $dcn,
$classif, $subclass, $itemcallnumber, $author,
$tmpl_id, $printingtype, $guidebox, $startlabel, $layoutname,
$layout_id
);
### $layoutname
print $query->redirect("label-home.pl");
exit;
}
elsif ( $op eq 'add_layout' ) {
add_layout(
$barcodetype, $title, $subtitle, $isbn,
$issn, $itemtype, $bcn, $dcn,
$classif, $subclass, $itemcallnumber, $author,
$tmpl_id, $printingtype, $guidebox, $startlabel, $layoutname,
$layout_id
);
### $layoutname
print $query->redirect("label-home.pl");
exit;
add_layout(
$barcodetype, $title, $subtitle, $isbn,
$issn, $itemtype, $bcn, $dcn,
$classif, $subclass, $itemcallnumber, $author,
$tmpl_id, $printingtype, $guidebox, $startlabel, $layoutname,
$layout_id
);
### $layoutname
print $query->redirect("label-home.pl");
exit;
}
elsif ( $op eq 'add' ) { # add item
my $query2 = "INSERT INTO labels ( itemnumber, batch_id ) values ( ?,? )";
my $sth2 = $dbh->prepare($query2);
for my $inum (@itemnumber) {
my $query2 = "INSERT INTO labels ( itemnumber, batch_id ) values ( ?,? )";
my $sth2 = $dbh->prepare($query2);
for my $inum (@itemnumber) {
$sth2->execute($inum, $batch_id);
}
}
$sth2->finish;
}
elsif ( $op eq 'deleteall' ) {
my $query2 = "DELETE FROM labels";
my $sth2 = $dbh->prepare($query2);
$sth2->execute();
$sth2->finish;
my $query2 = "DELETE FROM labels";
my $sth2 = $dbh->prepare($query2);
$sth2->execute();
$sth2->finish;
}
elsif ( $op eq 'delete' ) {
my $query2 = "DELETE FROM labels where itemnumber = ?";
my $sth2 = $dbh->prepare($query2);
$sth2->execute($itemnumber);
$sth2->finish;
my $query2 = "DELETE FROM labels where itemnumber = ?";
my $sth2 = $dbh->prepare($query2);
$sth2->execute($itemnumber);
$sth2->finish;
}
elsif ( $op eq 'delete_batch' ) {
delete_batch($batch_id);
print $query->redirect("label-manager.pl?batch_id=");
exit;
delete_batch($batch_id);
print $query->redirect("label-manager.pl?batch_id=");
exit;
}
elsif ( $op eq 'add_batch' ) {
$batch_id= add_batch();
$batch_id= add_batch();
}
elsif ( $op eq 'set_active_layout' ) {
set_active_layout($layout_id);
print $query->redirect("label-home.pl");
exit;
set_active_layout($layout_id);
print $query->redirect("label-home.pl");
exit;
}
# first lets do a read of the labels table , to get the a list of the
# currently entered items to be prinited
#use Data::Dumper;