@@ -, +, @@ FAIL C4/Serials.pm FAIL forbidden patterns forbidden pattern: trailing space char (line 1501) forbidden pattern: trailing space char (line 921) FAIL serials/serials-edit.pl FAIL valid "my" variable $dbh masks earlier declaration in same scope --- C4/Serials.pm | 4 ++-- serials/serials-edit.pl | 1 - 2 files changed, 2 insertions(+), 3 deletions(-) --- a/C4/Serials.pm +++ a/C4/Serials.pm @@ -918,7 +918,7 @@ sub GetPreviousSerialid { FROM serial WHERE subscriptionid = ? AND status = 2 - ORDER BY serialid DESC LIMIT $nth,1 + ORDER BY serialid DESC LIMIT $nth,1 "; my $sth = $dbh->prepare($strsth); $sth->execute($subscriptionid); @@ -1498,7 +1498,7 @@ $subscriptionid = &NewSubscription($auser,branchcode,$aqbooksellerid,$cost,$aqbu $lastvalue1,$innerloop1,$lastvalue2,$innerloop2,$lastvalue3,$innerloop3, $status, $notes, $letter, $firstacquidate, $irregularity, $numberpattern, $locale, $callnumber, $manualhistory, $internalnotes, $serialsadditems, - $staffdisplaycount, $opacdisplaycount, $graceperiod, $location, $enddate, + $staffdisplaycount, $opacdisplaycount, $graceperiod, $location, $enddate, $skip_serialseq, $itemtype, $previousitemtype); Create a new subscription with value given on input args. --- a/serials/serials-edit.pl +++ a/serials/serials-edit.pl @@ -90,7 +90,6 @@ if ( scalar(@subscriptionids) == 1 && index( $subscriptionids[0], q|,| ) > 0 ) { } my @errors; my @errseq; -my $dbh = C4::Context->dbh; # If user comes from subscription details unless (@serialids) { --