my $dbh   = C4::Context->dbh;

    my $subscription = Koha::Subscriptions->find( $subscriptionid );

    my $query = "UPDATE subscription

    return unless $subscription;

        SET librarian=?, branchcode=?, aqbooksellerid=?, cost=?, aqbudgetid=?,

            startdate=?, periodicity=?, firstacquidate=?, irregularity=?,

            numberpattern=?, locale=?, numberlength=?, weeklength=?, monthlength=?,

            lastvalue1=?, innerloop1=?, lastvalue2=?, innerloop2=?,

            lastvalue3=?, innerloop3=?, status=?, biblionumber=?,

            callnumber=?, notes=?, letter=?, manualhistory=?,

            internalnotes=?, serialsadditems=?, staffdisplaycount=?,

            opacdisplaycount=?, graceperiod=?, location = ?, enddate=?,

            skip_serialseq=?, itemtype=?, previousitemtype=?, mana_id=?

        WHERE subscriptionid = ?";

    my $sth = $dbh->prepare($query);

    $subscription->librarian($auser);

    $sth->execute(

    $subscription->branchcode($branchcode);

        $auser,           $branchcode,     $aqbooksellerid, $cost,

    $subscription->aqbooksellerid($aqbooksellerid);

        $aqbudgetid,      $startdate,      $periodicity,    $firstacquidate,

    $subscription->cost($cost);

        $irregularity,    $numberpattern,  $locale,         $numberlength,

    $subscription->aqbudgetid($aqbudgetid);

        $weeklength,      $monthlength,    $lastvalue1,     $innerloop1,

    $subscription->biblionumber($biblionumber);

        $lastvalue2,      $innerloop2,     $lastvalue3,     $innerloop3,

    $subscription->startdate($startdate);

        $status,          $biblionumber,   $callnumber,     $notes,

    $subscription->periodicity($periodicity);

        $letter,          ($manualhistory ? $manualhistory : 0),

    $subscription->numberlength($numberlength);

        $internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount,

    $subscription->weeklength($weeklength);

        $graceperiod,     $location,       $enddate,        $skip_serialseq,

    $subscription->monthlength($monthlength);

        $itemtype,        $previousitemtype, $mana_id,

    $subscription->lastvalue1($lastvalue1);

        $subscriptionid

    $subscription->innerloop1($innerloop1);

    );

    $subscription->lastvalue2($lastvalue2);

    my $rows = $sth->rows;

    $subscription->lastvalue3($lastvalue3);

    $subscription->innerloop3($innerloop3);

    $subscription->status($status);

    $subscription->notes($notes);

    $subscription->letter($letter);

    $subscription->firstacquidate($firstacquidate);

    $subscription->irregularity($irregularity);

    $subscription->numberpattern($numberpattern);

    $subscription->locale($locale);

    $subscription->callnumber($callnumber);

    $subscription->manualhistory($manualhistory || 0);

    $subscription->internalnotes($internalnotes);

    $subscription->serialsadditems($serialsadditems);

    $subscription->staffdisplaycount($staffdisplaycount);

    $subscription->opacdisplaycount($opacdisplaycount);

    $subscription->graceperiod($graceperiod);

    $subscription->location($location);

    $subscription->enddate($enddate);

    $subscription->skip_serialseq($skip_serialseq);

    $subscription->itemtype($itemtype);

    $subscription->previousitemtype($previousitemtype);

    $subscription->mana_id($mana_id);

    my $modified = $subscription->store;

    return $rows;

    return $modified;

        "",      "",  "", "", "", "",

        "",      "",  "", "", "",

        1,          $notes,"", '2013-01-01', "", $pattern_id,

        "", 1,          $notes,"", '2013-01-01', "",

        "",       "",  0,    $internalnotes,  0,

        $pattern_id, "",       "",  0,    $internalnotes,

        "", "", 0,          "",         '2013-12-31', 0

        0, "", "", 0,

        "",         '2013-12-31', 0,

        "",      "",     "", "", $budget_id, $biblionumber,

        "",      "",     "", "", $budget_id, '2013-01-01',

        '2013-01-01', $frequency_id, "", "",  "",

        $frequency_id, '2013-01-01', "", $pattern_id,  "",

        "",      "",  "", "", "", "",

        "",      "",  "", "", "",

        1,          $notes,"", '2013-01-01', "", $pattern_id,

        "",      "",  "", "", 1,

        "",       "",  0,    $internalnotes,  0,

        $biblionumber,      "",  "", "", 0,

        "", "", 0,          "",         '2013-12-31', $subscription->subscriptionid,

        "",      0,  "", "",

        0

        0,      "",  "", $subscription->subscriptionid, 0,

    is($modified, 1);

    isnt($modified, 0);