X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=serials%2Fsubscription-copy.pl;h=65aa6165b92624de359a0d0915828e49e6184710;hb=886749cf310b3b16921093a554c665324ebbb09e;hp=7993f12abc4ae3de7b4eff9796f8fb3f2dc05846;hpb=100e6a9808ead4ee8d951da59ead1550e75bb4c3;p=koha-ffzg.git

diff --git a/serials/subscription-copy.pl b/serials/subscription-copy.pl
index 7993f12abc..65aa6165b9 100755
--- a/serials/subscription-copy.pl
+++ b/serials/subscription-copy.pl
@@ -3,11 +3,10 @@
 
 use strict;
 use CGI;
-use Date::Manip;
 
 use C4::Koha;
 use C4::Auth;
-use C4::Date;
+use C4::Dates;
 use C4::Output;
 use C4::Acquisition;
 use C4::Context;
@@ -20,14 +19,15 @@ my $dbh = C4::Context->dbh;
 my $subs = &GetSubscription($subscriptionid);
 
 # make newsubscription()
-my $subscriptionid =  old_newsubscription($subs->{'auser'},$subs->{'aqbooksellerid'},$subs->{'cost'},$subs->{'aqbudgetid'},
-           $subs->{'biblionumber'},$subs->{'startdate'},$subs->{'periodicity'},$subs->{'firstacquidate'},
-           $subs->{'dow'},$subs->{'irregularity'},$subs->{'numberpattern'},$subs->{'numberlength'},
-           $subs->{'weeklength'},$subs->{'monthlength'},$subs->{'add1'},$subs->{'every1'},
-           $subs->{'whenmorethan1'},$subs->{'setto1'},$subs->{'lastvalue1'},$subs->{'add2'},
-           $subs->{'every2'},$subs->{'whenmorethan2'},$subs->{'setto2'},$subs->{'lastvalue2'},$subs->{'add3'},
-           $subs->{'every3'},$subs->{'whenmorethan3'},$subs->{'setto3'},$subs->{'lastvalue3'},
-           $subs->{'numberingmethod'},$subs->{'status'},$subs->{'notes'},
-				);
+$subscriptionid =  old_newsubscription(
+	$subs->{'auser'},$subs->{'aqbooksellerid'},$subs->{'cost'},$subs->{'aqbudgetid'},
+	$subs->{'biblionumber'},$subs->{'startdate'},$subs->{'periodicity'},$subs->{'firstacquidate'},
+	$subs->{'dow'},$subs->{'irregularity'},$subs->{'numberpattern'},$subs->{'numberlength'},
+	$subs->{'weeklength'},$subs->{'monthlength'},$subs->{'add1'},$subs->{'every1'},
+	$subs->{'whenmorethan1'},$subs->{'setto1'},$subs->{'lastvalue1'},$subs->{'add2'},
+	$subs->{'every2'},$subs->{'whenmorethan2'},$subs->{'setto2'},$subs->{'lastvalue2'},$subs->{'add3'},
+	$subs->{'every3'},$subs->{'whenmorethan3'},$subs->{'setto3'},$subs->{'lastvalue3'},
+	$subs->{'numberingmethod'},$subs->{'status'},$subs->{'notes'},
+);
 print $query->redirect("/cgi-bin/koha/serials/subscription-detail.pl?subscriptionid=$subscriptionid");