16 my $subscriptionid = $query->param('subscriptionid');
17 my $dbh = C4
::Context
->dbh;
18 # get old subscription
19 my $subs = &GetSubscription
($subscriptionid);
21 # make newsubscription()
22 $subscriptionid = old_newsubscription
(
23 $subs->{'auser'},$subs->{'aqbooksellerid'},$subs->{'cost'},$subs->{'aqbudgetid'},
24 $subs->{'biblionumber'},$subs->{'startdate'},$subs->{'periodicity'},$subs->{'firstacquidate'},
25 $subs->{'dow'},$subs->{'irregularity'},$subs->{'numberpattern'},$subs->{'numberlength'},
26 $subs->{'weeklength'},$subs->{'monthlength'},$subs->{'add1'},$subs->{'every1'},
27 $subs->{'whenmorethan1'},$subs->{'setto1'},$subs->{'lastvalue1'},$subs->{'add2'},
28 $subs->{'every2'},$subs->{'whenmorethan2'},$subs->{'setto2'},$subs->{'lastvalue2'},$subs->{'add3'},
29 $subs->{'every3'},$subs->{'whenmorethan3'},$subs->{'setto3'},$subs->{'lastvalue3'},
30 $subs->{'numberingmethod'},$subs->{'status'},$subs->{'notes'},
32 print $query->redirect("/cgi-bin/koha/serials/subscription-detail.pl?subscriptionid=$subscriptionid");