Lines 1170-1175
sub IssueSlip {
Link Here
|
1170 |
my @issues = @{ GetPendingIssues($borrowernumber) }; |
1170 |
my @issues = @{ GetPendingIssues($borrowernumber) }; |
1171 |
|
1171 |
|
1172 |
for my $issue (@issues) { |
1172 |
for my $issue (@issues) { |
|
|
1173 |
$issue->{date_due_orig} = $issue->{date_due}; |
1173 |
$issue->{date_due} = $issue->{date_due_sql}; |
1174 |
$issue->{date_due} = $issue->{date_due_sql}; |
1174 |
if ($quickslip) { |
1175 |
if ($quickslip) { |
1175 |
my $today = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 }); |
1176 |
my $today = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 }); |
Lines 1182-1188
sub IssueSlip {
Link Here
|
1182 |
|
1183 |
|
1183 |
# Sort on timestamp then on issuedate (useful for tests and could be if modified in a batch |
1184 |
# Sort on timestamp then on issuedate (useful for tests and could be if modified in a batch |
1184 |
@issues = sort { |
1185 |
@issues = sort { |
1185 |
my $s = $b->{timestamp} <=> $a->{timestamp}; |
1186 |
my $s = $a->{date_due_orig} <=> $b->{date_due_orig}; |
|
|
1187 |
$s == 0 ? |
1188 |
$b->{timestamp} <=> $a->{timestamp} : $s; |
1186 |
$s == 0 ? |
1189 |
$s == 0 ? |
1187 |
$b->{issuedate} <=> $a->{issuedate} : $s; |
1190 |
$b->{issuedate} <=> $a->{issuedate} : $s; |
1188 |
} @issues; |
1191 |
} @issues; |
1189 |
- |
|
|