From 8aedc8f53f162965636738d73a7800bc8821a5f9 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Tue, 9 Jun 2009 09:26:11 -0500 Subject: [PATCH] removing disused script serials/subscription-copy.pl had been removed in commit 8c78ff5aa5d52e3b16ea4c45cc38dc6999100ac3 but for some reason had been accidentally restored in a subsequent commit. Signed-off-by: Galen Charlton --- serials/subscription-copy.pl | 33 --------------------------------- 1 file changed, 33 deletions(-) delete mode 100755 serials/subscription-copy.pl diff --git a/serials/subscription-copy.pl b/serials/subscription-copy.pl deleted file mode 100755 index 65aa6165b9..0000000000 --- a/serials/subscription-copy.pl +++ /dev/null @@ -1,33 +0,0 @@ -#!/usr/bin/perl - - -use strict; -use CGI; - -use C4::Koha; -use C4::Auth; -use C4::Dates; -use C4::Output; -use C4::Acquisition; -use C4::Context; -use C4::Serials; - -my $query = new CGI; -my $subscriptionid = $query->param('subscriptionid'); -my $dbh = C4::Context->dbh; -# get old subscription -my $subs = &GetSubscription($subscriptionid); - -# make newsubscription() -$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"); - -- 2.39.5