View | Details | Raw Unified | Return to bug 30303
Collapse All | Expand All

(-)a/members/merge-patrons.pl (-1 / +49 lines)
Lines 40-45 my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user( Link Here
40
my $op  = $cgi->param('op') || 'show';
40
my $op  = $cgi->param('op') || 'show';
41
my @ids = $cgi->multi_param('id');
41
my @ids = $cgi->multi_param('id');
42
42
43
my $copy   = $cgi->param('copy');
44
my $name   = $cgi->param('name');
45
my @fields = qw(
46
    preferred_name
47
    initials
48
    othernames
49
    branchcode
50
    cardnumber
51
    categorycode
52
    address
53
    address2
54
    city
55
    state
56
    zipcode
57
    country
58
    dateenrolled
59
    date_renewed
60
    dateexpiry
61
    dateofbirth
62
    debarred
63
    email
64
    emailpro
65
    phone
66
    phonepro
67
    mobile
68
    sex
69
    updated_on
70
    userid
71
);
72
73
my %data;
74
75
for my $field (@fields) {
76
    my $val = $cgi->param($field);
77
78
    if ( defined $val ) {
79
        $data{$field} = $val;
80
    }
81
}
82
83
if ($name) {
84
    my @names = split( ', ', $name );
85
    $data{'firstname'} = $names[0];
86
    $data{'surname'}   = $names[1];
87
}
88
43
if ( $op eq 'show' ) {
89
if ( $op eq 'show' ) {
44
    my $patrons = Koha::Patrons->search( { borrowernumber => { -in => \@ids } } );
90
    my $patrons = Koha::Patrons->search( { borrowernumber => { -in => \@ids } } );
45
    $template->param( patrons => $patrons );
91
    $template->param( patrons => $patrons );
Lines 56-61 if ( $op eq 'show' ) { Link Here
56
                keeper  => $keeper,
102
                keeper  => $keeper,
57
                results => $results
103
                results => $results
58
            );
104
            );
105
            if ($copy) {
106
                $keeper->set( \%data )->store();
107
            }
59
        } catch {
108
        } catch {
60
            $template->param( error => $_ );
109
            $template->param( error => $_ );
61
        }
110
        }
62
- 

Return to bug 30303