Lines 71-78
if ( $op eq 'add_form' ) {
Link Here
|
71 |
contractnumber => $contract->{contractnumber}, |
71 |
contractnumber => $contract->{contractnumber}, |
72 |
contractname => $contract->{contractname}, |
72 |
contractname => $contract->{contractname}, |
73 |
contractdescription => $contract->{contractdescription}, |
73 |
contractdescription => $contract->{contractdescription}, |
74 |
contractstartdate => output_pref({ dt => dt_from_string( $contract->{contractstartdate} ), dateonly => 1 }), |
74 |
contractstartdate => $contract->{contractstartdate}, |
75 |
contractenddate => output_pref({ dt => dt_from_string( $contract->{contractenddate} ), dateonly => 1 }), |
75 |
contractenddate => $contract->{contractenddate}, |
76 |
); |
76 |
); |
77 |
} else { |
77 |
} else { |
78 |
$template->param( |
78 |
$template->param( |
Lines 95-102
elsif ( $op eq 'add_validate' ) {
Link Here
|
95 |
|
95 |
|
96 |
if ( $is_a_modif ) { |
96 |
if ( $is_a_modif ) { |
97 |
ModContract({ |
97 |
ModContract({ |
98 |
contractstartdate => output_pref({ dt => dt_from_string( $input->param('contractstartdate') ), dateformat => 'iso', dateonly => 1 }), |
98 |
contractstartdate => eval { output_pref({ dt => dt_from_string( $input->param('contractstartdate') ), dateformat => 'iso', dateonly => 1 } ); }, |
99 |
contractenddate => output_pref({ dt => dt_from_string( $input->param('contractenddate') ), dateformat => 'iso', dateonly => 1 }), |
99 |
contractenddate => eval { output_pref({ dt => dt_from_string( $input->param('contractenddate') ), dateformat => 'iso', dateonly => 1 } ); }, |
100 |
contractname => $input->param('contractname'), |
100 |
contractname => $input->param('contractname'), |
101 |
contractdescription => $input->param('contractdescription'), |
101 |
contractdescription => $input->param('contractdescription'), |
102 |
booksellerid => $input->param('booksellerid'), |
102 |
booksellerid => $input->param('booksellerid'), |
Lines 107-114
elsif ( $op eq 'add_validate' ) {
Link Here
|
107 |
contractname => $input->param('contractname'), |
107 |
contractname => $input->param('contractname'), |
108 |
contractdescription => $input->param('contractdescription'), |
108 |
contractdescription => $input->param('contractdescription'), |
109 |
booksellerid => $input->param('booksellerid'), |
109 |
booksellerid => $input->param('booksellerid'), |
110 |
contractstartdate => output_pref({ dt => dt_from_string( $input->param('contractstartdate') ), dateformat => 'iso', dateonly => 1 }), |
110 |
contractstartdate => eval { output_pref({ dt => dt_from_string( $input->param('contractstartdate') ), dateformat => 'iso', dateonly => 1 } ); }, |
111 |
contractenddate => output_pref({ dt => dt_from_string( $input->param('contractenddate') ), dateformat => 'iso', dateonly => 1 }), |
111 |
contractenddate => eval { output_pref({ dt => dt_from_string( $input->param('contractenddate') ), dateformat => 'iso', dateonly => 1 } ); }, |
112 |
}); |
112 |
}); |
113 |
} |
113 |
} |
114 |
|
114 |
|
Lines 127-134
elsif ( $op eq 'delete_confirm' ) {
Link Here
|
127 |
contractnumber => $$contract{contractnumber}, |
127 |
contractnumber => $$contract{contractnumber}, |
128 |
contractname => $$contract{contractname}, |
128 |
contractname => $$contract{contractname}, |
129 |
contractdescription => $$contract{contractdescription}, |
129 |
contractdescription => $$contract{contractdescription}, |
130 |
contractstartdate => output_pref({ dt => dt_from_string( $$contract{contractstartdate} ), dateonly => 1 }), |
130 |
contractstartdate => $$contract{contractstartdate}, |
131 |
contractenddate => output_pref({ dt => dt_from_string( $$contract{contractenddate} ), dateonly => 1 }), |
131 |
contractenddate => $$contract{contractenddate}, |
132 |
); |
132 |
); |
133 |
|
133 |
|
134 |
# END $OP eq DELETE_CONFIRM |
134 |
# END $OP eq DELETE_CONFIRM |