X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=C4%2FBarcodes.pm;h=a528bd96385a824698856076bf799433be1cdbe2;hb=3b5ac7543ae482aa743d4e0c75424d31df0ccca0;hp=69808e38baab7d03d43bd037d619513b7395fb35;hpb=a670f1817ee784d96b86f64ceb9f00bdc4fe3ed6;p=koha_gimpoz diff --git a/C4/Barcodes.pm b/C4/Barcodes.pm index 69808e38ba..a528bd9638 100644 --- a/C4/Barcodes.pm +++ b/C4/Barcodes.pm @@ -13,9 +13,9 @@ package C4::Barcodes; # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR # A PARTICULAR PURPOSE. See the GNU General Public License for more details. # -# You should have received a copy of the GNU General Public License along with -# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA +# You should have received a copy of the GNU General Public License along +# with Koha; if not, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. use strict; use warnings; @@ -135,14 +135,11 @@ sub next_value ($;$) { # Note, this enlargement might be undesireable for some barcode formats. # Those should override next_value() to work accordingly. $incr++; - my $width = $self->width || undef; - # we would want to use %$x.$xd, but that would break on large values, like 2160700004168 - # so we let the object tell us if it has a width to focus on. If not, we use float. - my $format = ($width ? '%'."$width.$width".'d' : '%.0f'); - $debug and warn "sprintf(\"$format\",$incr)"; + + $debug and warn "$incr"; $head = $self->process_head($head,$max,$specific); $tail = $self->process_tail($tail,$max,$specific); - my $next_value = $head . sprintf($format,$incr) . $tail; + my $next_value = $head . $incr . $tail; $debug and print STDERR "( next ) max barcode found: $next_value\n"; return $next_value; } @@ -259,7 +256,7 @@ To add a new barcode format, a developer should: add to the $types hashref in this file; add tests under the "t" directory; and edit autoBarcode syspref to include new type. - + =head2 Adding a new module Each new module that needs differing behavior must override these subs: