[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/C4 Labels.pm [dev_week]
From: |
Mason James |
Subject: |
[Koha-cvs] koha/C4 Labels.pm [dev_week] |
Date: |
Tue, 10 Jul 2007 06:36:06 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch: dev_week
Changes by: Mason James <sushi> 07/07/10 06:36:06
Modified files:
C4 : Labels.pm
Log message:
adding get_highest_batch() sub.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Labels.pm?cvsroot=koha&only_with_tag=dev_week&r1=1.3.4.27&r2=1.3.4.28
Patches:
Index: Labels.pm
===================================================================
RCS file: /sources/koha/koha/C4/Labels.pm,v
retrieving revision 1.3.4.27
retrieving revision 1.3.4.28
diff -u -b -r1.3.4.27 -r1.3.4.28
--- Labels.pm 10 Jul 2007 05:51:25 -0000 1.3.4.27
+++ Labels.pm 10 Jul 2007 06:36:05 -0000 1.3.4.28
@@ -61,6 +61,7 @@
&set_active_layout &by_order
&build_text_dropbox
&delete_layout &get_active_layout
+&get_highest_batch
);
=item get_label_options;
@@ -266,6 +267,28 @@
return $new_batch;
}
+
+sub get_highest_batch {
+ my $new_batch;
+ my $dbh = C4::Context->dbh;
+ my $q =
+ "select distinct batch_id from labels order by batch_id desc limit 1";
+ my $sth = $dbh->prepare($q);
+ $sth->execute();
+ my $data = $sth->fetchrow_hashref;
+ $sth->finish;
+
+ if ( !$data->{'batch_id'} ) {
+ $new_batch = 1;
+ }
+ else {
+ $new_batch = $data->{'batch_id'};
+ }
+
+ return $new_batch;
+}
+
+
sub get_batches {
my $dbh = C4::Context->dbh;
my $q = "select distinct batch_id from labels";
- [Koha-cvs] koha/C4 Labels.pm [dev_week], (continued)
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/08
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/09
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/09
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/09
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/09
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/09
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/10
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/10
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/10
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/10
- [Koha-cvs] koha/C4 Labels.pm [dev_week],
Mason James <=
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/10
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/15
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/15
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/17
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/17
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/19
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/19
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/19
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/19
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/07/19