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 1330-1337
sub ReNewSubscription {
Link Here
|
1330 |
my $biblio = $sth->fetchrow_hashref; |
1323 |
my $biblio = $sth->fetchrow_hashref; |
1331 |
|
1324 |
|
1332 |
if ( C4::Context->preference("RenewSerialAddsSuggestion") ) { |
1325 |
if ( C4::Context->preference("RenewSerialAddsSuggestion") ) { |
1333 |
|
1326 |
require C4::Suggestions; |
1334 |
NewSuggestion( |
1327 |
C4::Suggestions::NewSuggestion( |
1335 |
{ 'suggestedby' => $user, |
1328 |
{ 'suggestedby' => $user, |
1336 |
'title' => $subscription->{bibliotitle}, |
1329 |
'title' => $subscription->{bibliotitle}, |
1337 |
'author' => $biblio->{author}, |
1330 |
'author' => $biblio->{author}, |
Lines 1548-1554
sub ItemizeSerials {
Link Here
|
1548 |
$marcrecord->insert_fields_ordered($newField); |
1541 |
$marcrecord->insert_fields_ordered($newField); |
1549 |
} |
1542 |
} |
1550 |
} |
1543 |
} |
1551 |
AddItemFromMarc( $marcrecord, $data->{'biblionumber'} ); |
1544 |
require C4::Items; |
|
|
1545 |
C4::Items::AddItemFromMarc( $marcrecord, $data->{'biblionumber'} ); |
1552 |
return 1; |
1546 |
return 1; |
1553 |
} |
1547 |
} |
1554 |
return ( 0, @errors ); |
1548 |
return ( 0, @errors ); |
1555 |
- |
|
|