[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/serials subscription-add.pl
From: |
Antoine Farnault |
Subject: |
[Koha-cvs] koha/serials subscription-add.pl |
Date: |
Wed, 12 Jul 2006 16:43:17 +0000 |
CVSROOT: /sources/koha
Module name: koha
Changes by: Antoine Farnault <toins> 06/07/12 16:43:17
Modified files:
serials : subscription-add.pl
Log message:
GPL licence added, POD added, call to Members.pm added
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/serials/subscription-add.pl?cvsroot=koha&r1=1.2&r2=1.3
Patches:
Index: subscription-add.pl
===================================================================
RCS file: /sources/koha/koha/serials/subscription-add.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- subscription-add.pl 7 Jul 2006 09:05:23 -0000 1.2
+++ subscription-add.pl 12 Jul 2006 16:43:17 -0000 1.3
@@ -1,5 +1,48 @@
#!/usr/bin/perl
+# Copyright 2000-2003 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+# $Id: subscription-add.pl,v 1.3 2006/07/12 16:43:17 toins Exp $
+
+=head1 NAME
+
+subscription-add.pl
+
+=head1 DESCRIPTION
+
+this script add a subscription into the database.
+
+=head1 PARAMETERS
+
+=over 4
+
+=item op
+op use to know the operation to do on this template.
+ * mod : to modify an existing subscription
+ * addsubscription : to add a subscription
+
+Note that if op = mod or addsubscription there are a lot of other params.
+
+
+=back
+
+=cut
+
use strict;
use CGI;
@@ -13,6 +56,7 @@
use C4::Context;
use HTML::Template;
use C4::Letters;
+use C4::Members;
my $query = new CGI;
my $op = $query->param('op');
@@ -38,7 +82,7 @@
#FIXME : If Budgets are never used, then these lines are useless.
$dbh = C4::Context->dbh;
-my $sthtemp = $dbh->prepare("Select flags, branchcode from borrowers where
borrowernumber = ?");
+my $sthtemp = GetBranchCodeFromBorrowers();
$sthtemp->execute($loggedinuser);
my ($flags, $homebranch)=$sthtemp->fetchrow;
#FIXME : END added by hdl on July,14 2005
@@ -125,8 +169,6 @@
notes => $notes,
letter => $letter,
subscriptionid => $subscriptionid,
- );
- $template->param(
"periodicity$periodicity" => 1,
"dow$dow" => 1,
);
- [Koha-cvs] koha/serials subscription-add.pl,
Antoine Farnault <=