Language file updates

[koha.git] / admin / categorie.pl

diff --git a/admin/categorie.pl b/admin/categorie.pl
index 70de773..315076c 100755 (executable)
--- a/admin/categorie.pl
+++ b/admin/categorie.pl
@@ -174,7 +174,6 @@ if ($op eq 'add_form') {
        $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'},
@@ -186,17 +185,13 @@ if ($op eq 'add_form') {
                                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
@@ -215,3 +210,23 @@ if ($op eq 'add_form') {
 } #---- 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;
+}