use C4::Context;
use C4::Output;
use C4::Letters;
-use C4::Members::Attributes;
+
+use Koha::Patron::Attribute::Types;
# $protected_letters = protected_letters()
# - return a hashref of letter_codes representing letters that should never be deleted
push @{$field_selection}, add_fields('aqbooksellers', 'aqbasket', 'aqorders', 'biblio', 'biblioitems');
}
elsif ($module eq 'claimissues') {
- push @{$field_selection}, add_fields('aqbooksellers', 'serial', 'subscription');
- push @{$field_selection},
- {
- value => q{},
- text => '---BIBLIO---'
- };
- foreach(qw(title author serial)) {
- push @{$field_selection}, {value => "biblio.$_", text => ucfirst $_ };
- }
+ push @{$field_selection}, add_fields('aqbooksellers', 'serial', 'subscription', 'biblio', 'biblioitems');
}
elsif ($module eq 'serial') {
push @{$field_selection}, add_fields('branches', 'biblio', 'biblioitems', 'borrowers', 'subscription', 'serial');
}
$sql .= " WHERE ".join(" AND ", @where) if @where;
- $sql .= " GROUP BY branchcode,module,code";
+ $sql .= " GROUP BY branchcode,module,code,name,branchname";
+
$sql .= " ORDER BY module, code, branchcode";
return $dbh->selectall_arrayref($sql, { Slice => {} }, @args);
}
}
if ($table eq 'borrowers') {
- if ( my $attributes = C4::Members::Attributes::GetAttributes() ) {
- foreach (@$attributes) {
- push @fields, {
- value => "borrower-attribute:$_",
- text => "attribute:$_",
- }
+ my $attribute_types = Koha::Patron::Attribute::Types->search(
+ {},
+ { order_by => 'code' },
+ );
+ while ( my $at = $attribute_types->next ) {
+ push @fields, {
+ value => "borrower-attribute:" . $at->code,
+ text => "attribute:" . $at->code,
}
}
}