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

(-)a/admin/z3950servers.pl (-8 / +7 lines)
Lines 55-83 my $schema = Koha::Database->new()->schema(); Link Here
55
# First process a confirmed delete, or save a validated record
55
# First process a confirmed delete, or save a validated record
56
56
57
if( $op eq 'delete_confirmed' && $id ) {
57
if( $op eq 'delete_confirmed' && $id ) {
58
    my $server=$schema->resultset('Z3950server')->find( { id => $id } );
58
    my $server = $schema->resultset('Z3950server')->find($id);
59
    if( $server ) {
59
    if ( $server ) {
60
        $server->delete;
60
        $server->delete;
61
        $template->param( msg_deleted => 1, msg_add => $server->name );
61
        $template->param( msg_deleted => 1, msg_add => $server->name );
62
    } else {
62
    } else {
63
        $template->param( msg_notfound => 1, msg_add => $id );
63
        $template->param( msg_notfound => 1, msg_add => $id );
64
    }
64
    }
65
    $id=0;
65
    $id = 0;
66
} elsif( $op eq 'add_validated' ) {
66
} elsif ( $op eq 'add_validated' ) {
67
    my @fields=qw/host port db userid password rank syntax encoding timeout
67
    my @fields=qw/host port db userid password rank syntax encoding timeout
68
        recordtype checked/;
68
        recordtype checked/;
69
    my $formdata = _form_data_hashref( $input, \@fields );
69
    my $formdata = _form_data_hashref( $input, \@fields );
70
    #add name from servername (an input with name="name" gave problems)
70
    #add name from servername (an input with name="name" gave problems)
71
    $formdata->{name} = $input->param('servername');
71
    $formdata->{name} = $input->param('servername');
72
    if( $id ) {
72
    if( $id ) {
73
        my $server= $schema->resultset('Z3950server')->find( { id => $id } );
73
        my $server = $schema->resultset('Z3950server')->find($id);
74
        if( $server ) {
74
        if ( $server ) {
75
            $server->update( $formdata );
75
            $server->update( $formdata );
76
            $template->param( msg_updated => 1, msg_add => $formdata->{name} );
76
            $template->param( msg_updated => 1, msg_add => $formdata->{name} );
77
        } else {
77
        } else {
78
            $template->param( msg_notfound => 1, msg_add => $id );
78
            $template->param( msg_notfound => 1, msg_add => $id );
79
        }
79
        }
80
        $id=0;
80
        $id = 0;
81
    } else {
81
    } else {
82
        $schema->resultset('Z3950server')->create( $formdata );
82
        $schema->resultset('Z3950server')->create( $formdata );
83
        $template->param( msg_added => 1, msg_add => $formdata->{name} );
83
        $template->param( msg_added => 1, msg_add => $formdata->{name} );
84
- 

Return to bug 12265