[Koha-cvs] koha/serials subscription-add.pl

[Antoine Farnault]

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