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 93-102
elsif ( $op eq 'add_validate' ) {
Link Here
|
93 |
|
93 |
|
94 |
my $is_a_modif = $input->param("is_a_modif"); |
94 |
my $is_a_modif = $input->param("is_a_modif"); |
95 |
|
95 |
|
|
|
96 |
my $contractstart_dt = eval { dt_from_string( $input->param('contractstartdate') ); }; |
97 |
$contractstart_dt = dt_from_string if ( ! $contractstart_dt ); |
98 |
|
99 |
my $contractend_dt = eval { dt_from_string( $input->param('contractenddate') ); }; |
100 |
$contractend_dt = dt_from_string if ( ! $contractend_dt ); |
101 |
|
96 |
if ( $is_a_modif ) { |
102 |
if ( $is_a_modif ) { |
97 |
ModContract({ |
103 |
ModContract({ |
98 |
contractstartdate => output_pref({ dt => dt_from_string( $input->param('contractstartdate') ), dateformat => 'iso', dateonly => 1 }), |
104 |
contractstartdate => eval { output_pref({ dt => dt_from_string( $contractstart_dt ), dateformat => 'iso', dateonly => 1 } ); }, |
99 |
contractenddate => output_pref({ dt => dt_from_string( $input->param('contractenddate') ), dateformat => 'iso', dateonly => 1 }), |
105 |
contractenddate => eval { output_pref({ dt => dt_from_string( $contractend_dt ), dateformat => 'iso', dateonly => 1 } ); }, |
100 |
contractname => $input->param('contractname'), |
106 |
contractname => $input->param('contractname'), |
101 |
contractdescription => $input->param('contractdescription'), |
107 |
contractdescription => $input->param('contractdescription'), |
102 |
booksellerid => $input->param('booksellerid'), |
108 |
booksellerid => $input->param('booksellerid'), |
Lines 107-114
elsif ( $op eq 'add_validate' ) {
Link Here
|
107 |
contractname => $input->param('contractname'), |
113 |
contractname => $input->param('contractname'), |
108 |
contractdescription => $input->param('contractdescription'), |
114 |
contractdescription => $input->param('contractdescription'), |
109 |
booksellerid => $input->param('booksellerid'), |
115 |
booksellerid => $input->param('booksellerid'), |
110 |
contractstartdate => output_pref({ dt => dt_from_string( $input->param('contractstartdate') ), dateformat => 'iso', dateonly => 1 }), |
116 |
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 }), |
117 |
contractenddate => eval { output_pref({ dt => dt_from_string( $input->param('contractenddate') ), dateformat => 'iso', dateonly => 1 } ); }, |
112 |
}); |
118 |
}); |
113 |
} |
119 |
} |
114 |
|
120 |
|
Lines 127-134
elsif ( $op eq 'delete_confirm' ) {
Link Here
|
127 |
contractnumber => $$contract{contractnumber}, |
133 |
contractnumber => $$contract{contractnumber}, |
128 |
contractname => $$contract{contractname}, |
134 |
contractname => $$contract{contractname}, |
129 |
contractdescription => $$contract{contractdescription}, |
135 |
contractdescription => $$contract{contractdescription}, |
130 |
contractstartdate => output_pref({ dt => dt_from_string( $$contract{contractstartdate} ), dateonly => 1 }), |
136 |
contractstartdate => $$contract{contractstartdate}, |
131 |
contractenddate => output_pref({ dt => dt_from_string( $$contract{contractenddate} ), dateonly => 1 }), |
137 |
contractenddate => $$contract{contractenddate}, |
132 |
); |
138 |
); |
133 |
|
139 |
|
134 |
# END $OP eq DELETE_CONFIRM |
140 |
# END $OP eq DELETE_CONFIRM |