| Lines 1312-1322
          returns the number of rows affected
      
      
        Link Here | 
        
          | 1312 |  | 1312 |  | 
        
          | 1313 | sub ModSubscription { | 1313 | sub ModSubscription { | 
        
          | 1314 |     my ( | 1314 |     my ( | 
          
            
              | 1315 |     $auser, $branchcode, $aqbooksellerid, $cost, $aqbudgetid, $startdate, | 1315 |     $manager_id, $branchcode, $aqbooksellerid, $cost, $aqbudgetid, $startdate, | 
        
          | 1316 |     $periodicity, $firstacquidate, $irregularity, $numberpattern, $locale, | 1316 |     $periodicity, $firstacquidate, $irregularity, $numberpattern, $locale, | 
        
          | 1317 |     $numberlength, $weeklength, $monthlength, $lastvalue1, $innerloop1, | 1317 |     $numberlength, $weeklength, $monthlength, $lastvalue1, $innerloop1, | 
        
          | 1318 |     $lastvalue2, $innerloop2, $lastvalue3, $innerloop3, $status, | 1318 |     $lastvalue2, $innerloop2, $lastvalue3, $innerloop3, $status, | 
          
            
              | 1319 |     $biblionumber, $callnumber, $notes, $letter, $manualhistory, | 1319 |     $biblionumber, $callnumber, $notes, $letter, $late_issue_letter_code, $manualhistory, | 
        
          | 1320 |     $internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, | 1320 |     $internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, | 
        
          | 1321 |     $graceperiod, $location, $enddate, $subscriptionid, $skip_serialseq, | 1321 |     $graceperiod, $location, $enddate, $subscriptionid, $skip_serialseq, | 
        
          | 1322 |     $itemtype, $previousitemtype, $mana_id | 1322 |     $itemtype, $previousitemtype, $mana_id | 
  
    | Lines 1325-1331
          sub ModSubscription {
      
      
        Link Here | 
        
          | 1325 |     my $subscription = Koha::Subscriptions->find($subscriptionid); | 1325 |     my $subscription = Koha::Subscriptions->find($subscriptionid); | 
        
          | 1326 |     $subscription->set( | 1326 |     $subscription->set( | 
        
          | 1327 |         { | 1327 |         { | 
          
            
              | 1328 |             librarian         => $auser, | 1328 |             manager_id        => $manager_id, | 
        
          | 1329 |             branchcode        => $branchcode, | 1329 |             branchcode        => $branchcode, | 
        
          | 1330 |             aqbooksellerid    => $aqbooksellerid, | 1330 |             aqbooksellerid    => $aqbooksellerid, | 
        
          | 1331 |             cost              => $cost, | 1331 |             cost              => $cost, | 
  
    | Lines 1345-1350
          sub ModSubscription {
      
      
        Link Here | 
        
          | 1345 |             status            => $status, | 1345 |             status            => $status, | 
        
          | 1346 |             notes             => $notes, | 1346 |             notes             => $notes, | 
        
          | 1347 |             letter            => $letter, | 1347 |             letter            => $letter, | 
            
              |  |  | 1348 |             late_issue_letter_code => $late_issue_letter_code, | 
        
          | 1348 |             firstacquidate    => $firstacquidate, | 1349 |             firstacquidate    => $firstacquidate, | 
        
          | 1349 |             irregularity      => $irregularity, | 1350 |             irregularity      => $irregularity, | 
        
          | 1350 |             numberpattern     => $numberpattern, | 1351 |             numberpattern     => $numberpattern, | 
  
    | Lines 1376-1385
          sub ModSubscription {
      
      
        Link Here | 
        
          | 1376 |  | 1377 |  | 
        
          | 1377 | =head2 NewSubscription | 1378 | =head2 NewSubscription | 
        
          | 1378 |  | 1379 |  | 
          
            
              | 1379 | $subscriptionid = &NewSubscription($auser,branchcode,$aqbooksellerid,$cost,$aqbudgetid,$biblionumber, | 1380 | $subscriptionid = &NewSubscription($manager_id,branchcode,$aqbooksellerid,$cost,$aqbudgetid,$biblionumber, | 
        
          | 1380 |     $startdate,$periodicity,$numberlength,$weeklength,$monthlength, | 1381 |     $startdate,$periodicity,$numberlength,$weeklength,$monthlength, | 
        
          | 1381 |     $lastvalue1,$innerloop1,$lastvalue2,$innerloop2,$lastvalue3,$innerloop3, | 1382 |     $lastvalue1,$innerloop1,$lastvalue2,$innerloop2,$lastvalue3,$innerloop3, | 
          
            
              | 1382 |     $status, $notes, $letter, $firstacquidate, $irregularity, $numberpattern, | 1383 |     $status, $notes, $letter, $late_issue_letter_code, $firstacquidate, $irregularity, $numberpattern, | 
        
          | 1383 |     $locale, $callnumber, $manualhistory, $internalnotes, $serialsadditems, | 1384 |     $locale, $callnumber, $manualhistory, $internalnotes, $serialsadditems, | 
        
          | 1384 |     $staffdisplaycount, $opacdisplaycount, $graceperiod, $location, $enddate, | 1385 |     $staffdisplaycount, $opacdisplaycount, $graceperiod, $location, $enddate, | 
        
          | 1385 |     $skip_serialseq, $itemtype, $previousitemtype); | 1386 |     $skip_serialseq, $itemtype, $previousitemtype); | 
  
    | Lines 1393-1402
          the id of this new subscription
      
      
        Link Here | 
        
          | 1393 |  | 1394 |  | 
        
          | 1394 | sub NewSubscription { | 1395 | sub NewSubscription { | 
        
          | 1395 |     my ( | 1396 |     my ( | 
          
            
              | 1396 |     $auser, $branchcode, $aqbooksellerid, $cost, $aqbudgetid, $biblionumber, | 1397 |     $manager_id, $branchcode, $aqbooksellerid, $cost, $aqbudgetid, $biblionumber, | 
        
          | 1397 |     $startdate, $periodicity, $numberlength, $weeklength, $monthlength, | 1398 |     $startdate, $periodicity, $numberlength, $weeklength, $monthlength, | 
        
          | 1398 |     $lastvalue1, $innerloop1, $lastvalue2, $innerloop2, $lastvalue3, | 1399 |     $lastvalue1, $innerloop1, $lastvalue2, $innerloop2, $lastvalue3, | 
          
            
              | 1399 |     $innerloop3, $status, $notes, $letter, $firstacquidate, $irregularity, | 1400 |     $innerloop3, $status, $notes, $letter, $late_issue_letter_code, $firstacquidate, $irregularity, | 
        
          | 1400 |     $numberpattern, $locale, $callnumber, $manualhistory, $internalnotes, | 1401 |     $numberpattern, $locale, $callnumber, $manualhistory, $internalnotes, | 
        
          | 1401 |     $serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, | 1402 |     $serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, | 
        
          | 1402 |     $location, $enddate, $skip_serialseq, $itemtype, $previousitemtype, $mana_id | 1403 |     $location, $enddate, $skip_serialseq, $itemtype, $previousitemtype, $mana_id | 
  
    | Lines 1405-1411
          sub NewSubscription {
      
      
        Link Here | 
        
          | 1405 |  | 1406 |  | 
        
          | 1406 |     my $subscription = Koha::Subscription->new( | 1407 |     my $subscription = Koha::Subscription->new( | 
        
          | 1407 |         { | 1408 |         { | 
          
            
              | 1408 |             librarian         => $auser, | 1409 |             manager_id        => $manager_id, | 
        
          | 1409 |             branchcode        => $branchcode, | 1410 |             branchcode        => $branchcode, | 
        
          | 1410 |             aqbooksellerid    => $aqbooksellerid, | 1411 |             aqbooksellerid    => $aqbooksellerid, | 
        
          | 1411 |             cost              => $cost, | 1412 |             cost              => $cost, | 
  
    | Lines 1425-1430
          sub NewSubscription {
      
      
        Link Here | 
        
          | 1425 |             status            => $status, | 1426 |             status            => $status, | 
        
          | 1426 |             notes             => $notes, | 1427 |             notes             => $notes, | 
        
          | 1427 |             letter            => $letter, | 1428 |             letter            => $letter, | 
            
              |  |  | 1429 |             late_issue_letter_code => $late_issue_letter_code, | 
        
          | 1428 |             firstacquidate    => $firstacquidate, | 1430 |             firstacquidate    => $firstacquidate, | 
        
          | 1429 |             irregularity      => $irregularity, | 1431 |             irregularity      => $irregularity, | 
        
          | 1430 |             numberpattern     => $numberpattern, | 1432 |             numberpattern     => $numberpattern, |