@@ -, +, @@ ClassSortRoutine::_get_class_sort_key --- C4/ClassSortRoutine.pm | 3 ++- t/db_dependent/Serials.t | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) --- a/C4/ClassSortRoutine.pm +++ a/C4/ClassSortRoutine.pm @@ -112,7 +112,8 @@ letter characters. =cut sub _get_class_sort_key { - my ($cn_class, $cn_item) = @_; + my $cn_class = shift || ''; + my $cn_item = shift || ''; my $key = uc "$cn_class $cn_item"; $key =~ s/\s+/_/; $key =~ s/[^A-Z_0-9]//g; --- a/t/db_dependent/Serials.t +++ a/t/db_dependent/Serials.t @@ -16,7 +16,7 @@ use C4::Biblio; use C4::Budgets; use C4::Items; use Koha::DateUtils; -use Test::More tests => 48; +use Test::More tests => 49; BEGIN { use_ok('C4::Serials'); --