[Koha-cvs] koha/serials subscription-copy.pl
Robert Lyon
bob at katipo.co.nz
Thu Jul 20 05:18:43 CEST 2006
CVSROOT: /sources/koha
Module name: koha
Changes by: Robert Lyon <bob_lyon> 06/07/20 03:18:43
Added files:
serials : subscription-copy.pl
Log message:
Merging in katipo changes for serials
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/serials/subscription-copy.pl?cvsroot=koha&rev=1.1
Patches:
Index: subscription-copy.pl
===================================================================
RCS file: subscription-copy.pl
diff -N subscription-copy.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ subscription-copy.pl 20 Jul 2006 03:18:43 -0000 1.1
@@ -0,0 +1,34 @@
+#!/usr/bin/perl
+
+
+use strict;
+use CGI;
+use C4::Koha;
+use C4::Auth;
+use C4::Date;
+use C4::Output;
+use C4::Acquisition;
+use C4::Interface::CGI::Output;
+use C4::Context;
+use HTML::Template;
+use C4::Serials;
+use Date::Manip;
+
+my $query = new CGI;
+my $subscriptionid = $query->param('subscriptionid');
+my $dbh = C4::Context->dbh;
+# get old subscription
+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'},
+ );
+print $query->redirect("/cgi-bin/koha/serials/subscription-detail.pl?subscriptionid=$subscriptionid");
+
More information about the Koha-cvs
mailing list