|
Lines 23-35
use warnings;
Link Here
|
| 23 |
use C4::Dates qw(format_date format_date_in_iso); |
23 |
use C4::Dates qw(format_date format_date_in_iso); |
| 24 |
use Date::Calc qw(:all); |
24 |
use Date::Calc qw(:all); |
| 25 |
use POSIX qw(strftime); |
25 |
use POSIX qw(strftime); |
| 26 |
use C4::Suggestions; |
|
|
| 27 |
use C4::Koha; |
| 28 |
use C4::Biblio; |
26 |
use C4::Biblio; |
| 29 |
use C4::Branch; |
|
|
| 30 |
use C4::Items; |
| 31 |
use C4::Search; |
| 32 |
use C4::Letters; |
| 33 |
use C4::Log; # logaction |
27 |
use C4::Log; # logaction |
| 34 |
use C4::Debug; |
28 |
use C4::Debug; |
| 35 |
|
29 |
|
|
Lines 417-423
sub PrepareSerialsData {
Link Here
|
| 417 |
$subs->{$datefield} = format_date( $subs->{$datefield} ); |
411 |
$subs->{$datefield} = format_date( $subs->{$datefield} ); |
| 418 |
} |
412 |
} |
| 419 |
} |
413 |
} |
| 420 |
$subs->{'branchname'} = GetBranchName( $subs->{'branchcode'} ); |
|
|
| 421 |
$subs->{ "status" . $subs->{'status'} } = 1; |
414 |
$subs->{ "status" . $subs->{'status'} } = 1; |
| 422 |
$subs->{"checked"} = $subs->{'status'} =~ /1|3|4|7/; |
415 |
$subs->{"checked"} = $subs->{'status'} =~ /1|3|4|7/; |
| 423 |
|
416 |
|
|
Lines 1338-1345
sub ReNewSubscription {
Link Here
|
| 1338 |
my $biblio = $sth->fetchrow_hashref; |
1331 |
my $biblio = $sth->fetchrow_hashref; |
| 1339 |
|
1332 |
|
| 1340 |
if ( C4::Context->preference("RenewSerialAddsSuggestion") ) { |
1333 |
if ( C4::Context->preference("RenewSerialAddsSuggestion") ) { |
| 1341 |
|
1334 |
require C4::Suggestions; |
| 1342 |
NewSuggestion( |
1335 |
C4::Suggestions::NewSuggestion( |
| 1343 |
{ 'suggestedby' => $user, |
1336 |
{ 'suggestedby' => $user, |
| 1344 |
'title' => $subscription->{bibliotitle}, |
1337 |
'title' => $subscription->{bibliotitle}, |
| 1345 |
'author' => $biblio->{author}, |
1338 |
'author' => $biblio->{author}, |
|
Lines 1556-1562
sub ItemizeSerials {
Link Here
|
| 1556 |
$marcrecord->insert_fields_ordered($newField); |
1549 |
$marcrecord->insert_fields_ordered($newField); |
| 1557 |
} |
1550 |
} |
| 1558 |
} |
1551 |
} |
| 1559 |
AddItemFromMarc( $marcrecord, $data->{'biblionumber'} ); |
1552 |
require C4::Items; |
|
|
1553 |
C4::Items::AddItemFromMarc( $marcrecord, $data->{'biblionumber'} ); |
| 1560 |
return 1; |
1554 |
return 1; |
| 1561 |
} |
1555 |
} |
| 1562 |
return ( 0, @errors ); |
1556 |
return ( 0, @errors ); |
| 1563 |
- |
|
|