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 |
- |
|
|