[followup](bug #4062) marc21 item support

[koha.git] / admin / categorie.pl

diff --git a/admin/categorie.pl b/admin/categorie.pl
index 692bf6d..191e704 100755 (executable)
--- a/admin/categorie.pl
+++ b/admin/categorie.pl
@@ -185,8 +185,7 @@ 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 );
+                               "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;
@@ -211,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;
+}