View | Details | Raw Unified | Return to bug 6875
Collapse All | Expand All

(-)a/C4/Serials.pm (-11 / +4 lines)
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
- 

Return to bug 6875