$searchstring=~ s/\'/\\\'/g;
my @data=split(' ',$searchstring);
my $count=@data;
- my $sth=$dbh->prepare("Select * from categories where (description like ?) order by category_type,description");
+ my $sth=$dbh->prepare("Select * from categories where (description like ?) order by category_type,description,categorycode");
$sth->execute("$data[0]%");
my @results;
while (my $data=$sth->fetchrow_hashref){
$template->param(else => 1);
my @loop;
my ($count,$results)=StringSearch($searchfield,'web');
- my $toggle = 0;
for (my $i=0; $i < $count; $i++){
my %row = (categorycode => $results->[$i]{'categorycode'},
description => $results->[$i]{'description'},
issuelimit => $results->[$i]{'issuelimit'},
reservefee => sprintf("%.2f",$results->[$i]{'reservefee'}),
category_type => $results->[$i]{'category_type'},
- "type_".$results->[$i]{'category_type'} => 1,
- toggle => $toggle );
- push @loop, \%row;
- if ( $toggle eq 0 )
- {
- $toggle = 1;
- }
- else
- {
- $toggle = 0;
- }
+ "type_".$results->[$i]{'category_type'} => 1);
+ if (C4::Context->preference('EnhancedMessagingPreferences')) {
+ my $brief_prefs = _get_brief_messaging_prefs($results->[$i]{'categorycode'});
+ $row{messaging_prefs} = $brief_prefs if @$brief_prefs;
+ }
+
+ push @loop, \%row;
}
$template->param(loop => \@loop);
# check that I (institution) and C (child) exists. otherwise => warning to the user
} #---- END $OP eq DEFAULT
output_html_with_http_headers $input, $cookie, $template->output;
+exit 0;
+
+sub _get_brief_messaging_prefs {
+ my $categorycode = shift;
+ my $messaging_options = C4::Members::Messaging::GetMessagingOptions();
+ my $results = [];
+ PREF: foreach my $option ( @$messaging_options ) {
+ my $pref = C4::Members::Messaging::GetMessagingPreferences( { categorycode => $categorycode,
+ message_name => $option->{'message_name'} } );
+ next unless @{$pref->{'transports'}};
+ my $brief_pref = { message_attribute_id => $option->{'message_attribute_id'},
+ message_name => $option->{'message_name'},
+ };
+ foreach my $transport ( @{$pref->{'transports'}} ) {
+ push @{ $brief_pref->{'transports'} }, { transport => $transport };
+ }
+ push @$results, $brief_pref;
+ }
+ return $results;
+}