SELECT DISTINCT(branchcode)

        SELECT DISTINCT b.branchcode

        FROM overduerules

        FROM branches b, overduerules r

        WHERE delay1 IS NOT NULL

        WHERE b.branchcode = r.branchcode or r.branchcode = ''

    my ( $branchcode, $categorycode, $letternumber ) = @_;

    my ( $overduerules_id ) = @_;

    return unless $categorycode and $letternumber;

    return unless $overduerules_id;

        SELECT message_transport_type

        SELECT message_transport_type FROM overduerules_transport_types

        FROM overduerules odr LEFT JOIN overduerules_transport_types ott USING (overduerules_id)

        WHERE overduerules_id = ?

        WHERE branchcode = ?

          AND categorycode = ?

          AND letternumber = ?

    $sth->execute( $branchcode, $categorycode, $letternumber );

    $sth->execute( $overduerules_id );

<link rel="stylesheet" type="text/css" href="[% themelang %]/css/datatables.css" />

[% INCLUDE 'datatables.inc' %]

var tab_map = { "1" : _("First"), "2" : _("Second"), "3" : _("Third")};

function clear_edit(){

    // var cancel = confirm(_("Are you sure you want to cancel your changes?"));

    // if ( !cancel ) return;

    edit_value_add(0); // reset add value

    $('#table_overduerules td').removeClass('highlighted-row');

    var edit_row = $("#edit_row");

    $(edit_row).find("input").each(function(){

        var type = $(this).attr("type");

        if (type != "button" && type != "submit" ) {

            $(this).val("");

            $(this).removeAttr("disabled");

        }

        if (type == "checkbox"){

            row = document.getElementById('edit_row');

            if ($(this).prop('outerHTML').contains('checked="checked"')) {

                var newOuterHTML = $(this).prop('outerHTML').replace(/checked="checked"/, '');

                $(this).prop('outerHTML', newOuterHTML);

                $(this).checked = true;

            }

        }

    });

    $(edit_row).find("select").removeAttr("disabled");

    $(edit_row).find("select option:first").attr("selected", "selected");

    $(edit_row).find("td:last input[name='clear']").remove();

}

function edit_value_add(id_overduerules) {

    var input = document.getElementById('edit_id');

    if (id_overduerules != 0) {

        input.value = "add&overduerules_id=" + id_overduerules;

    } else {

        input.value = "add";

    }

}

    $('#selectlibrary').find("input:submit").hide();

    $('#icons').tabs();

    $('#branch').change(function() {

    $("#table_overduerules").dataTable($.extend(true, {}, dataTablesDefaults, {

            $('#selectlibrary').submit();

        "aoColumnDefs": [

            { "aTargets": [ -1 ], "bSortable": false, "bSearchable": false },

        ],

        "aaSorting": [[ 2, "asc" ]],

        "iDisplayLength": 100

    }));

    $( "#itemtypeentry" ).validate({

        rules: {

            itemtype: { required: true },

            description: { required: true },

            rentalcharge: { number: true }

        }

    });

    $(".editrule").click(function(){

        if ( $(edit_row).find("input[type='text'][value!='']").length > 0 ) {

            var edit = confirm(_("Are you sure you want to edit another rule?"));

            if (!edit) return false;

            else clear_edit(); // reset header

        }

        $('#table_overduerules td').removeClass('highlighted-row');

        $(this).parent().parent().find("td").each(function (i) {

            $(this).addClass('highlighted-row');

            itm = $(this).text();

            itm = itm.replace(/^\s*|\s*$/g,'');

            var current_column = $("#edit_row td:eq("+i+")");

            $(current_column).find("input[type='text']").val(itm);

            // select the corresponding option

            $(current_column).find("select option").each(function(){

                opt = $(this).text().toLowerCase();

                opt = opt.replace(/^\s*|\s*$/g,'');

                if ( opt == itm.toLowerCase() ) {

                    $(this).attr('selected', 'selected');

                }

            });

            if(($(this)[0].innerHTML).contains('checked')) {

                row = document.getElementById('edit_row');

                row.cells[i].innerHTML = row.cells[i].innerHTML.replace(/>/, 'checked="checked">');

            }

        });

        $("#table_overduerules tr:last td:eq(0) select").attr('disabled', 'disabled');

        $("#table_overduerules tr:last td:eq(1) select").attr('disabled', 'disabled');

        $("#table_overduerules tr:last td:eq(2) select").attr('disabled', 'disabled');

        $("#table_overduerules tr:last td:eq(3) select").attr('disabled', 'disabled');

        return false;

<style type="text/css">

fieldset.rows div.toptabs li { clear:none;margin-right:.5em;padding-bottom:0;width:auto; }

fieldset.rows div.toptabs .ui-tabs-nav li.ui-tabs-active {background-color : #F4F8F9; }

fieldset.rows .ui-tabs-panel { margin-right : 10px; margin-left : 10px;margin-bottom:10px;}

fieldset.rows .ui-tabs-nav { margin-left : 10px; }

</style>

          </tbody>

          </th>

        </table>

        <th>Action</th>

      </div>

    </tr>

    [% END %]

  </thead>

  <thead>

    <tr id="edit_row">

</div>

        <td>

            <select name="branchcode" id="branchcode">

                <fieldset class="action"><input type="submit" value="Save changes" /></fieldset>

                <option value="">All</option>

            </form>

            [% FOREACH b IN Branches.all() %]

                <option value="[% b.value.branchcode %]">[% b.value.branchname %]</option>

            [% END %]

            </select>

        </td>

        <td>

            <select name="categorycode" id="categorycode">

                <option value="">All</option>

            [% FOREACH c IN categories %]

                <option value="[% c.value.categorycode %]">[% c.value.description %]</option>

            [% END %]

            </select>

        </td>

        <td>

            <select name="itemtype" id="itemtype" style="width:13em;">

                <option value="">All</option>

            [% FOREACH it IN itemtypes %]

                <option value="[% it.value.itemtype %]">[% it.value.description %]</option>

            [% END %]

            </select>

        </td>

        <td><input type="checkbox" name="onhold" value="1" /></td>

        <td><input type="text" name="delay" id="delay" size="3" /></td>

        <td>

            <select name="letter" id="letter" style="width:13em;">

            <option value="">No notice</option>

            [% FOREACH letter IN letters %]

                <option value="[% letter.value.code %]">[% letter.value.name %]</option>

            [% END %]

            </select>

        </td>

        <td>

            <input type="checkbox" name="debarred" value="1" />

        </td>

        [% FOREACH mtt IN message_transport_types %]

        <td>

            <input type="checkbox" name="mtt-[% mtt %]" value="1" />

        </td>

        [% END %]

        <td colspan="2">

            <input type="hidden" name="branch" value="[% current_branch %]"/>

            <input type="submit" value="Save" class="submit" />

            <input type="button" name="cancel" value="Clear" onclick="clear_edit();return false;" />

        </td>

    </tr>

  </thead>

  <tbody>

  [% FOREACH loo IN loop %]

    [% UNLESS ( loop.odd ) %]

    <tr class="highlight">[% ELSE %]<tr>[% END %]

    <td>[% IF loo.branchname == '' %]All[% ELSE %][% loo.branchname %][% END %]</td>

    <td>[% IF loo.categorydescription == '' %]All[% ELSE %][% loo.categorydescription %][% END %]</td>

    <td>[% IF loo.itemtypedescription == '' %]All[% ELSE %][% loo.itemtypedescription %][% END %]</td>

    <td>[% IF loo.onhold %]

        <input type="checkbox" name="onhold[% loo.overduerules_id %]" checked="checked" value="1" disabled="disabled"/>

        [% ELSE %]

        <input type="checkbox" name="onhold[% loo.overduerules_id %]" value="1" disabled="disabled"/>

        [% END %]

    </td>

    <td>[% loo.delay %]</td>

    <td>[% IF loo.lettername %][% loo.lettername %][% ELSE %]No notice[% END %]</td>

    <td>[% IF loo.debarred %]

        <input type="checkbox" name="debarred[% loo.overduerules_id %]" checked="checked" value="1" disabled="disabled"/>

        [% ELSE %]

        <input type="checkbox" name="debarred[% loo.overduerules_id %]" value="1" disabled="disabled"/>

        [% END %]

    </td>

    [% FOREACH mtt IN loo.message_transport_types %]

    <td>

        [% IF mtt.selected %]

        <input type="checkbox" name="mtt[% loo.overduerules_id %]-[% mtt.value %]" value="[% mtt.value %]" checked="checked" disabled="disabled"/>

        [% ELSE %]

            [% IF mtt.value == "sms" and not Koha.Preference("SMSSendDriver") %]

            <input type="checkbox" name="mtt[% loo.overduerules_id %]-[% mtt.value %]" value="[% mtt.value %]" disabled="disabled" />

            [% ELSIF mtt.value == "phone" and not Koha.Preference("TalkingTechItivaPhoneNotification") %]

            <input type="checkbox" name="mtt[% loo.overduerules_id %]-[% mtt.value %]" value="[% mtt.value %]" disabled="disabled" />

                <div class="warning">You don't have patron categories defined, or the patron categories are not set to receive overdue notices.</div>

            <input type="checkbox" name="mtt[% loo.overduerules_id %]-[% mtt.value %]" value="[% mtt.value %]" disabled="disabled"/>

                <div class="warning">If this is not what you were expecting, go to <a href="../admin/categories.pl">patron categories</p></div>

    </div>

        [% END %]

    </div>

    </td>

    <div class="yui-b noprint">

    [% END %]

        [% INCLUDE 'tools-menu.inc' %]

    <td>

    </div>

      <a href="#" class="editrule" onclick="edit_value_add([% loo.overduerules_id %])">Edit</a>

      <a href="[% loo.script_name %]?op=delete&amp;overduerules_id=[% loo.overduerules_id %]">Delete</a>

    </td>

    </tr>

  [% END %]

  </tbody>

</table>

</form>

<div class="pages">[% pagination_bar %]</div>

</div>

</div>

<div class="yui-b">

% INCLUDE 'tools-menu.inc' %]

# Copyright 2000-2002 Katipo Communications

# Copyright 2014 Solutions inLibro

            my $value = $input->param($key);

sub StringSearch {

            if ($value) {

    # this needs to be rewritten to use DBIx::Class

                return 0;

    my ($searchstring, $type) = @_;

            }

    my $dbh = C4::Context->dbh;

        }

    my @data = split( ' ', $searchstring );

    }

    my $sth = $dbh->prepare(

    return 1;

        "SELECT * FROM overduerules WHERE (branchcode LIKE ?) or (categorycode LIKE ?) or (letter LIKE ?) or (itemtype LIKE ?) ORDER BY branchcode, delay"

    );

    $sth->execute("$data[0]%","$data[0]%","$data[0]%","$data[0]%");

    return $sth->fetchall_arrayref({});

my $type = $input->param('type');

my $searchfield = $input->param('description');

my $script_name = "/cgi-bin/koha/tools/overduerules.pl";

my $op = $input->param('op');

my $overduerules_id = $input->param('overduerules_id');

my $branch = $input->param('branchcode');

my $cat = $input->param('categorycode');

my $itemtype = $input->param('itemtype');

my $onhold = $input->param('onhold');

my $delay = $input->param('delay') || 1;

my @mttparams;

foreach ($input->param){

    push (@mttparams, $1) if ($_ =~ /^mtt-(.*)/);

}

my $err=0;

$searchfield =~ s/\,//g;

    my $sth_insert = $dbh->prepare("INSERT INTO overduerules (branchcode,categorycode, delay1,letter1,debarred1, delay2,letter2,debarred2, delay3,letter3,debarred3) VALUES (?,?,?,?,?,?,?,?,?,?,?)");

# fix all this

    my $sth_update=$dbh->prepare("UPDATE overduerules SET delay1=?, letter1=?, debarred1=?, delay2=?, letter2=?, debarred2=?, delay3=?, letter3=?, debarred3=? WHERE branchcode=? AND categorycode=?");

my $hrItemtypes = $dbh->selectall_hashref("SELECT description,itemtype FROM itemtypes ", "itemtype");

    my $sth_delete=$dbh->prepare("DELETE FROM overduerules WHERE branchcode=? AND categorycode=?");

my $hrLetters = $dbh->selectall_hashref("SELECT name,code FROM letter WHERE module = 'circulation' order by name", "code");

    my $sth_insert_mtt = $dbh->prepare("

my $arMessage_transport_types = C4::Letters::GetMessageTransportTypes();

        INSERT INTO overduerules_transport_types(

my $hrUsercats = $dbh->selectall_hashref("SELECT description,categorycode FROM categories WHERE overduenoticerequired = 1", "categorycode");

            overduerules_id, letternumber, message_transport_type

        ) VALUES (

            (SELECT overduerules_id FROM overduerules WHERE branchcode = ? AND categorycode = ?), ?, ?

        )

    ");

    my $sth_delete_mtt = $dbh->prepare("

        DELETE FROM overduerules_transport_types

        WHERE overduerules_id = (SELECT overduerules_id FROM overduerules WHERE branchcode = ? AND categorycode = ?)

    ");

    # figure out which rows need to be deleted

# get everything on the page

    my @rows_to_delete = grep { blank_row($_) } @category_codes;

$template->param(

    script_name => $script_name,

    foreach my $bor (keys %temphash){

    categories => \@patron_categories,

        # get category name if we need it for an error message

    itemtypes => $hrItemtypes,

        my $bor_category = Koha::Patron::Categories->find($bor);

    letters => $hrLetters,

        my $bor_category_name = $bor_category ? $bor_category->description : $bor;

    message_transport_types => $arMessage_transport_types,

);

        # Do some Checking here : delay1 < delay2 <delay3 all of them being numbers

        # Raise error if not true

        if ($temphash{$bor}->{delay1}=~/[^0-9]/ and $temphash{$bor}->{delay1} ne ""){

            $template->param("ERROR"=>1,"ERRORDELAY"=>"delay1","BORERR"=>$bor_category_name);

            $err=1;

        } elsif ($temphash{$bor}->{delay2}=~/[^0-9]/ and $temphash{$bor}->{delay2} ne ""){

            $template->param("ERROR"=>1,"ERRORDELAY"=>"delay2","BORERR"=>$bor_category_name);

            $err=1;

        } elsif ($temphash{$bor}->{delay3}=~/[^0-9]/ and $temphash{$bor}->{delay3} ne ""){

            $template->param("ERROR"=>1,"ERRORDELAY"=>"delay3","BORERR"=>$bor_category_name);

            $err=1;

        } elsif ($temphash{$bor}->{delay1} and not ($temphash{$bor}->{"letter1"} or $temphash{$bor}->{"debarred1"})) {

            $template->param("ERROR"=>1,"ERRORUSELESSDELAY"=>"delay1","BORERR"=>$bor_category_name);

            $err=1;

        } elsif ($temphash{$bor}->{delay2} and not ($temphash{$bor}->{"letter2"} or $temphash{$bor}->{"debarred2"})) {

            $template->param("ERROR"=>1,"ERRORUSELESSDELAY"=>"delay2","BORERR"=>$bor_category_name);

            $err=1;

        } elsif ($temphash{$bor}->{delay3} and not ($temphash{$bor}->{"letter3"} or $temphash{$bor}->{"debarred3"})) {

            $template->param("ERROR"=>1,"ERRORUSELESSDELAY"=>"delay3","BORERR"=>$bor_category_name);

            $err=1;

        }elsif ($temphash{$bor}->{delay3} and

                ($temphash{$bor}->{delay3}<=$temphash{$bor}->{delay2} or $temphash{$bor}->{delay3}<=$temphash{$bor}->{delay1})

                or $temphash{$bor}->{delay2} and ($temphash{$bor}->{delay2}<=$temphash{$bor}->{delay1})){

                    $template->param("ERROR"=>1,"ERRORORDER"=>1,"BORERR"=>$bor_category_name);

                        $err=1;

        }

        unless ($err){

            if (($temphash{$bor}->{delay1} and ($temphash{$bor}->{"letter1"} or $temphash{$bor}->{"debarred1"}))

                or ($temphash{$bor}->{delay2} and ($temphash{$bor}->{"letter2"} or $temphash{$bor}->{"debarred2"}))

                or ($temphash{$bor}->{delay3} and ($temphash{$bor}->{"letter3"} or $temphash{$bor}->{"debarred3"}))) {

                    $sth_search->execute($branch,$bor);

                    my $res = $sth_search->fetchrow_hashref();

                    if ($res->{'total'}>0) {

                        $sth_update->execute(

                            ($temphash{$bor}->{"delay1"}?$temphash{$bor}->{"delay1"}:undef),

                            ($temphash{$bor}->{"letter1"}?$temphash{$bor}->{"letter1"}:""),

                            ($temphash{$bor}->{"debarred1"}?$temphash{$bor}->{"debarred1"}:0),

                            ($temphash{$bor}->{"delay2"}?$temphash{$bor}->{"delay2"}:undef),

                            ($temphash{$bor}->{"letter2"}?$temphash{$bor}->{"letter2"}:""),

                            ($temphash{$bor}->{"debarred2"}?$temphash{$bor}->{"debarred2"}:0),

                            ($temphash{$bor}->{"delay3"}?$temphash{$bor}->{"delay3"}:undef),

                            ($temphash{$bor}->{"letter3"}?$temphash{$bor}->{"letter3"}:""),

                            ($temphash{$bor}->{"debarred3"}?$temphash{$bor}->{"debarred3"}:0),

                            $branch ,$bor

                            );

                    } else {

                        $sth_insert->execute($branch,$bor,

                            ($temphash{$bor}->{"delay1"}?$temphash{$bor}->{"delay1"}:0),

                            ($temphash{$bor}->{"letter1"}?$temphash{$bor}->{"letter1"}:""),

                            ($temphash{$bor}->{"debarred1"}?$temphash{$bor}->{"debarred1"}:0),

                            ($temphash{$bor}->{"delay2"}?$temphash{$bor}->{"delay2"}:0),

                            ($temphash{$bor}->{"letter2"}?$temphash{$bor}->{"letter2"}:""),

                            ($temphash{$bor}->{"debarred2"}?$temphash{$bor}->{"debarred2"}:0),

                            ($temphash{$bor}->{"delay3"}?$temphash{$bor}->{"delay3"}:0),

                            ($temphash{$bor}->{"letter3"}?$temphash{$bor}->{"letter3"}:""),

                            ($temphash{$bor}->{"debarred3"}?$temphash{$bor}->{"debarred3"}:0)

                            );

                    }

                    $sth_delete_mtt->execute( $branch, $bor );

# operations

                    for my $letternumber ( 1..3 ) {

if ( $op =~ m/add/ ) {

                        my @mtt = $input->multi_param( "mtt${letternumber}-$bor" );

    $op =~ s/\D//g;

                        next unless @mtt;

    $op = ($op eq '') ? 0 : $op;

                        for my $mtt ( @mtt ) {

    $cat = (!defined $cat ) ? 0 : $cat;

                            $sth_insert_mtt->execute( $branch, $bor, $letternumber, $mtt);

    $itemtype = (!defined $itemtype ) ? '' :$itemtype;

                        }

    $onhold = (!defined $onhold ) ? 0 : $onhold;

                    }

    my $debarred = (!defined $input->param('debarred')) ? 0 : $input->param('debarred');

                }

    # dangerous, SQL injection fix

        }

    my $ruleId = $dbh->selectrow_array("SELECT overduerules_id from overduerules where branchcode = '$branch' and categorycode = '$cat' and itemtype = '$itemtype' and onhold = '$onhold' and delay = '$delay' ");

    if ( $ruleId ) {# it's a modification. We update the overrules table and delete corresponding entries in overduerules_transport_types

        my $query2 = " UPDATE overduerules

        SET letter = ?, debarred = ?

        WHERE branchcode = ? and categorycode = ? and itemtype = ? and onhold = ? and delay = ? ";

        my $sth = $dbh->prepare($query2);

        $sth->execute($input->param('letter') || '', $debarred , $branch, $cat, $itemtype, $onhold, $delay);

        $dbh->do("DELETE FROM overduerules_transport_types where overduerules_id = $ruleId");

    unless ($err) {

    elsif ($op != 0) { # case edit pkeys

        for my $category_code (@rows_to_delete) {

        my $query2 = "UPDATE overduerules

            $sth_delete->execute($branch, $category_code);

        SET letter = ?, debarred = ?, branchcode = ?, categorycode = ?, itemtype = ?, onhold = ?, delay = ?

        }

        WHERE overduerules_id = ? ";

        $template->param(datasaved => 1);

        my $sth = $dbh->prepare($query2);

        $input_saved = 1;

        $sth->execute($input->param('letter') || '', $debarred , $branch, $cat, $itemtype, $onhold, $delay, $op);

        $dbh->do("DELETE FROM overduerules_transport_types where overduerules_id = $op");

}

    else { # add a new entry in overrules

        my $query = "

my $letters = C4::Letters::GetLettersAvailableForALibrary(

            INSERT INTO overduerules (branchcode, categorycode, itemtype, onhold, delay, letter, debarred)

    {

            VALUES (?,?,?,?,?,?,?);";

        branchcode => $branch,

        my $sth = $dbh->prepare($query);

        module => "circulation",

        $sth->execute($branch, $cat, $itemtype, $onhold, $delay, $input->param('letter') || '', $debarred);

        $ruleId = $sth->{mysql_insertid};  # mysqlism need to fix this

);

    # following an update or an insert, we have to insert into overduerules_transport_types

    my $sth = $dbh->prepare("INSERT INTO overduerules_transport_types (message_transport_type, overduerules_id) values (?,?)");

my @line_loop;

    foreach my $newMtt (@mttparams){

        $sth->execute($newMtt, $ruleId);

my $message_transport_types = C4::Letters::GetMessageTransportTypes();

    }

my ( @first, @second, @third );

    print $input->redirect('overduerules.pl');

for my $patron_category (@patron_categories) {

    exit;

    if (%temphash and not $input_saved){

}

        # if we managed to save the form submission, don't

elsif ( $op eq 'delete' ) {

        # reuse %temphash, but take the values from the

     my $sth1 = $dbh->prepare("delete from overduerules_transport_types where overduerules_id = ?");

        # database - this makes it easier to identify

     my $sth2 = $dbh->prepare("delete from overduerules where overduerules_id = ?");

        # bugs where the form submission was not correctly saved

     $sth1->execute($overduerules_id);

        for my $i ( 1..3 ){

     $sth2->execute($overduerules_id);

            my %row = (

     print $input->redirect('overduerules.pl');

                overduename => $patron_category->categorycode,

     exit;

                line        => $patron_category->description,

}

            );

else { #default

            $row{delay}=$temphash{$patron_category->categorycode}->{"delay$i"};

    my ($results) = StringSearch( $searchfield );

            $row{debarred}=$temphash{$patron_category->categorycode}->{"debarred$i"};

    my @loop;

            $row{selected_lettercode} = $temphash{ $patron_category->categorycode }->{"letter$i"};

    my $hrBranches = my $branches = Koha::Libraries->search({}, { order_by => ['branchname'] })->unblessed;

            my @selected_mtts = @{ GetOverdueMessageTransportTypes( $branch, $patron_category->categorycode, $i) };

    foreach my $rule ( @{$results} ) {

            my @mtts;

        $rule->{branchname} = $hrBranches->{$rule->{branchcode}}->{branchname};

            for my $mtt ( @$message_transport_types ) {

        $rule->{lettername} = $hrLetters->{$rule->{letter}}->{name};

                push @mtts, {

        $rule->{categorydescription} = $hrUsercats->{$rule->{categorycode}}->{description};

                    value => $mtt,

        $rule->{itemtypedescription} = $hrItemtypes->{$rule->{itemtype}}->{description};

                    selected => ( grep {/$mtt/} @selected_mtts ) ? 1 : 0 ,

        my @selected_mtts = @{ GetOverdueMessageTransportTypes( $rule->{overduerules_id} ) };

                }

        my @mtts;

            }

        for my $mtt ( @$arMessage_transport_types ) {

            $row{message_transport_types} = \@mtts;

            push @mtts, {

            if ( $i == 1 ) {

                value => $mtt,

                push @first, \%row;

                selected => ( grep {/$mtt/} @selected_mtts ) ? 1 : 0 ,

            } elsif ( $i == 2 ) {

                push @second, \%row;

            } else {

                push @third, \%row;

            }

        }

    } else {

    #getting values from table

        my $sth2=$dbh->prepare("SELECT * from overduerules WHERE branchcode=? AND categorycode=?");

        $sth2->execute($branch,$patron_category->categorycode);

        my $dat=$sth2->fetchrow_hashref;

        for my $i ( 1..3 ){

            my %row = (

                overduename => $patron_category->categorycode,

                line        => $patron_category->description,

            );

            $row{selected_lettercode} = $dat->{"letter$i"};

            if ($dat->{"delay$i"}){$row{delay}=$dat->{"delay$i"};}

            if ($dat->{"debarred$i"}){$row{debarred}=$dat->{"debarred$i"};}

            my @selected_mtts = @{ GetOverdueMessageTransportTypes( $branch, $patron_category->categorycode, $i) };

            my @mtts;

            for my $mtt ( @$message_transport_types ) {

                push @mtts, {

                    value => $mtt,

                    selected => ( grep {/$mtt/} @selected_mtts ) ? 1 : 0 ,

                }

            }

            $row{message_transport_types} = \@mtts;

            if ( $i == 1 ) {

                push @first, \%row;

            } elsif ( $i == 2 ) {

                push @second, \%row;

            } else {

                push @third, \%row;

my @tabs = (

    $template->param(

    {

          loop => \@loop,

        id => 'first',

    );

        number => 1,

}

        values => \@first,

    },

    {

        id => 'second',

        number => 2,

        values => \@second,

    },

    {

        id => 'third',

        number => 3,

        values => \@third,

    },

);