|
Lines 42-48
use C4::Output;
Link Here
|
| 42 |
use C4::Members; |
42 |
use C4::Members; |
| 43 |
use C4::Members::Attributes; |
43 |
use C4::Members::Attributes; |
| 44 |
use C4::Members::AttributeTypes; |
44 |
use C4::Members::AttributeTypes; |
| 45 |
use C4::Dates; |
|
|
| 46 |
use C4::Reserves; |
45 |
use C4::Reserves; |
| 47 |
use C4::Circulation; |
46 |
use C4::Circulation; |
| 48 |
use C4::Koha; |
47 |
use C4::Koha; |
|
Lines 134-140
foreach (qw(dateenrolled dateexpiry dateofbirth)) {
Link Here
|
| 134 |
$data->{$_} = ''; |
133 |
$data->{$_} = ''; |
| 135 |
next; |
134 |
next; |
| 136 |
} |
135 |
} |
| 137 |
$userdate = C4::Dates->new($userdate,'iso')->output('syspref'); |
136 |
$userdate = output_pref({ dt => dt_from_string( $userdate, 'iso' ), dateonly => 1 }); |
| 138 |
$data->{$_} = $userdate || ''; |
137 |
$data->{$_} = $userdate || ''; |
| 139 |
$template->param( $_ => $userdate ); |
138 |
$template->param( $_ => $userdate ); |
| 140 |
} |
139 |
} |
|
Lines 148-154
if ( IsDebarred($borrowernumber) ) {
Link Here
|
| 148 |
$template->param( 'userdebarred' => 1, 'flagged' => 1 ); |
147 |
$template->param( 'userdebarred' => 1, 'flagged' => 1 ); |
| 149 |
my $debar = $data->{'debarred'}; |
148 |
my $debar = $data->{'debarred'}; |
| 150 |
if ( $debar ne "9999-12-31" ) { |
149 |
if ( $debar ne "9999-12-31" ) { |
| 151 |
$template->param( 'userdebarreddate' => C4::Dates::format_date($debar) ); |
150 |
$template->param( 'userdebarreddate' => output_pref({ dt => dt_from_string( $debar, 'iso' ), dateonly => 1 }) ); |
| 152 |
$template->param( 'debarredcomment' => $data->{debarredcomment} ); |
151 |
$template->param( 'debarredcomment' => $data->{debarredcomment} ); |
| 153 |
} |
152 |
} |
| 154 |
} |
153 |
} |
|
Lines 349-355
$template->param(
Link Here
|
| 349 |
categoryname => $data->{'description'}, |
348 |
categoryname => $data->{'description'}, |
| 350 |
was_renewed => $input->param('was_renewed') ? 1 : 0, |
349 |
was_renewed => $input->param('was_renewed') ? 1 : 0, |
| 351 |
branch => $branch, |
350 |
branch => $branch, |
| 352 |
todaysdate => C4::Dates->today(), |
351 |
todaysdate => output_pref({ dt => dt_from_string, dateonly => 1 }), |
| 353 |
totalprice => sprintf("%.2f", $totalprice), |
352 |
totalprice => sprintf("%.2f", $totalprice), |
| 354 |
totaldue => sprintf("%.2f", $total), |
353 |
totaldue => sprintf("%.2f", $total), |
| 355 |
totaldue_raw => $total, |
354 |
totaldue_raw => $total, |
| 356 |
- |
|
|