From: Galen Charlton <galen.charlton@liblime.com>
Date: Tue, 9 Jun 2009 14:26:11 +0000 (-0500)
Subject: removing disused script
X-Git-Tag: n_acq_a_porter~26^2~87
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=8aedc8f53f162965636738d73a7800bc8821a5f9;p=koha.git

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 <galen.charlton@liblime.com>
---

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");
-