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

(-)a/admin/aqcontract.pl (-4 / +3 lines)
Lines 26-38 use C4::Context; Link Here
26
use C4::Auth     qw( get_template_and_user );
26
use C4::Auth     qw( get_template_and_user );
27
use C4::Output   qw( output_html_with_http_headers );
27
use C4::Output   qw( output_html_with_http_headers );
28
use C4::Contract qw(
28
use C4::Contract qw(
29
    AddContract
30
    DelContract
29
    DelContract
31
    ModContract
30
    ModContract
32
);
31
);
33
use Koha::DateUtils qw( dt_from_string );
32
use Koha::DateUtils qw( dt_from_string );
34
33
35
use Koha::Acquisition::Booksellers;
34
use Koha::Acquisition::Booksellers;
35
use Koha::Acquisition::Contract;
36
use Koha::Acquisition::Contracts;
36
use Koha::Acquisition::Contracts;
37
37
38
my $input          = CGI->new;
38
my $input          = CGI->new;
Lines 114-120 elsif ( $op eq 'cud-add_validate' ) { Link Here
114
            }
114
            }
115
        );
115
        );
116
    } else {
116
    } else {
117
        AddContract(
117
        my $contract = Koha::Acquisition::Contract->new(
118
            {
118
            {
119
                contractname        => scalar $input->param('contractname'),
119
                contractname        => scalar $input->param('contractname'),
120
                contractdescription => scalar $input->param('contractdescription'),
120
                contractdescription => scalar $input->param('contractdescription'),
Lines 122-128 elsif ( $op eq 'cud-add_validate' ) { Link Here
122
                contractstartdate   => scalar $input->param('contractstartdate'),
122
                contractstartdate   => scalar $input->param('contractstartdate'),
123
                contractenddate     => scalar $input->param('contractenddate'),
123
                contractenddate     => scalar $input->param('contractenddate'),
124
            }
124
            }
125
        );
125
        )->store;
126
    }
126
    }
127
127
128
    print $input->redirect("/cgi-bin/koha/acquisition/vendors/$booksellerid");
128
    print $input->redirect("/cgi-bin/koha/acquisition/vendors/$booksellerid");
129
- 

Return to bug 39711