[Koha-cvs] koha/serials acqui-search.pl acqui-search-resul...
Antoine Farnault
antoine at koha-fr.org
Fri Jul 7 11:05:23 CEST 2006
CVSROOT: /sources/koha
Module name: koha
Changes by: Antoine Farnault <toins> 06/07/07 09:05:23
Modified files:
serials : acqui-search.pl acqui-search-result.pl
lateissues.pl serial-issues.pl serials-home.pl
subscription-add.pl subscription-detail.pl
Log message:
Sub renamed and/or GPL Licence added according to the coding guideline.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/serials/acqui-search.pl?cvsroot=koha&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/koha/serials/acqui-search-result.pl?cvsroot=koha&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/koha/serials/lateissues.pl?cvsroot=koha&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/koha/serials/serial-issues.pl?cvsroot=koha&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/koha/serials/serials-home.pl?cvsroot=koha&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/koha/serials/subscription-add.pl?cvsroot=koha&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/koha/serials/subscription-detail.pl?cvsroot=koha&r1=1.1&r2=1.2
Patches:
Index: acqui-search.pl
===================================================================
RCS file: /sources/koha/koha/serials/acqui-search.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- acqui-search.pl 19 Jan 2006 12:46:58 -0000 1.1
+++ acqui-search.pl 7 Jul 2006 09:05:23 -0000 1.2
@@ -1,5 +1,24 @@
#!/usr/bin/perl
+# Copyright 2000-2002 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: acqui-search.pl,v 1.2 2006/07/07 09:05:23 toins Exp $
+
use strict;
use CGI;
use C4::Auth;
@@ -18,7 +37,7 @@
debug => 1,
});
-#FIXME : Is this page still used ????
+# FIXME : Is this page still used ????
# looks like no.
# budget
Index: acqui-search-result.pl
===================================================================
RCS file: /sources/koha/koha/serials/acqui-search-result.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- acqui-search-result.pl 19 Jan 2006 12:46:58 -0000 1.1
+++ acqui-search-result.pl 7 Jul 2006 09:05:23 -0000 1.2
@@ -1,11 +1,8 @@
#!/usr/bin/perl
-# $Id: acqui-search-result.pl,v 1.1 2006/01/19 12:46:58 tipaul Exp $
-
#script to show suppliers and orders
#written by chris at katipo.co.nz 23/2/2000
-
# Copyright 2000-2002 Katipo Communications
#
# This file is part of Koha.
@@ -23,6 +20,8 @@
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
+# $Id: acqui-search-result.pl,v 1.2 2006/07/07 09:05:23 toins Exp $
+
use strict;
use C4::Auth;
use C4::Biblio;
Index: lateissues.pl
===================================================================
RCS file: /sources/koha/koha/serials/lateissues.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- lateissues.pl 19 Jan 2006 12:46:58 -0000 1.1
+++ lateissues.pl 7 Jul 2006 09:05:23 -0000 1.2
@@ -1,9 +1,28 @@
#!/usr/bin/perl
+# Copyright 2000-2002 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: lateissues.pl,v 1.2 2006/07/07 09:05:23 toins Exp $
+
use strict;
use CGI;
use C4::Auth;
-use C4::Bull;
+use C4::Serials;
use C4::Acquisition;
use C4::Output;
use C4::Interface::CGI::Output;
@@ -13,10 +32,10 @@
my $query = new CGI;
# my $title = $query->param('title');
# my $ISSN = $query->param('ISSN');
-# my @subscriptions = getsubscriptions($title,$ISSN);
+# my @subscriptions = GetSubscriptions($title,$ISSN);
my $supplierid = $query->param('supplierid');
-my %supplierlist = getSupplierListWithLateIssues;
+my %supplierlist = GetSupplierListWithLateIssues;
my @select_supplier;
push @select_supplier,"";
foreach my $supplierid (keys %supplierlist){
Index: serial-issues.pl
===================================================================
RCS file: /sources/koha/koha/serials/serial-issues.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- serial-issues.pl 19 Jan 2006 12:46:58 -0000 1.1
+++ serial-issues.pl 7 Jul 2006 09:05:23 -0000 1.2
@@ -1,11 +1,30 @@
#!/usr/bin/perl
+# Copyright 2000-2002 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: serial-issues.pl,v 1.2 2006/07/07 09:05:23 toins Exp $
+
use strict;
use CGI;
use C4::Auth;
use C4::Koha;
use C4::Date;
-use C4::Bull;
+use C4::Serials;
use C4::Output;
use C4::Interface::CGI::Output;
use C4::Context;
@@ -22,7 +41,7 @@
my ($template, $loggedinuser, $cookie);
my $biblionumber = $query->param('biblionumber');
if ($selectview eq "full"){
- my $subscriptions = get_full_subscription_list_from_biblionumber($biblionumber);
+ my $subscriptions = GetFullSubscriptionListFromBiblionumber($biblionumber);
my $title = $subscriptions->[0]{bibliotitle};
my $yearmin=$subscriptions->[0]{year};
@@ -50,7 +69,7 @@
);
} else {
- my $subscriptions = get_subscription_list_from_biblionumber($biblionumber);
+ my $subscriptions = GetSubscriptionListFromBiblionumber($biblionumber);
($template, $loggedinuser, $cookie)
= get_template_and_user({template_name => "serials/serial-issues.tmpl",
Index: serials-home.pl
===================================================================
RCS file: /sources/koha/koha/serials/serials-home.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- serials-home.pl 19 Jan 2006 12:46:58 -0000 1.1
+++ serials-home.pl 7 Jul 2006 09:05:23 -0000 1.2
@@ -1,9 +1,28 @@
#!/usr/bin/perl
+# Copyright 2000-2002 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: serials-home.pl,v 1.2 2006/07/07 09:05:23 toins Exp $
+
use strict;
use CGI;
use C4::Auth;
-use C4::Bull;
+use C4::Serials;
use C4::Output;
use C4::Interface::CGI::Output;
use C4::Context;
@@ -13,7 +32,7 @@
my $title = $query->param('title');
my $ISSN = $query->param('ISSN');
my $biblionumber = $query->param('biblionumber');
-my @subscriptions = getsubscriptions($title,$ISSN,$biblionumber);
+my @subscriptions = GetSubscriptions($title,$ISSN,$biblionumber);
my ($template, $loggedinuser, $cookie)
= get_template_and_user({template_name => "serials/serials-home.tmpl",
query => $query,
Index: subscription-add.pl
===================================================================
RCS file: /sources/koha/koha/serials/subscription-add.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- subscription-add.pl 19 Jan 2006 12:46:58 -0000 1.1
+++ subscription-add.pl 7 Jul 2006 09:05:23 -0000 1.2
@@ -7,12 +7,11 @@
use C4::Auth;
use C4::Date;
use C4::Output;
-use C4::Bull;
+use C4::Serials;
use C4::Acquisition;
use C4::Interface::CGI::Output;
use C4::Context;
use HTML::Template;
-use C4::Bull;
use C4::Letters;
my $query = new CGI;
@@ -46,7 +45,7 @@
if ($op eq 'mod') {
my $subscriptionid = $query->param('subscriptionid');
- my $subs = &getsubscription($subscriptionid);
+ my $subs = &GetSubscription($subscriptionid);
$auser = $subs->{'user'};
$librarian = $subs->{'librarian'};
$cost = $subs->{'cost'};
@@ -180,7 +179,7 @@
my $biblionumber = $query->param('biblionumber');
my $notes = $query->param('notes');
my $letter = $query->param('letter');
- my $subscriptionid = newsubscription($auser,$aqbooksellerid,$cost,$aqbudgetid,$biblionumber,
+ my $subscriptionid = NewSubscription($auser,$aqbooksellerid,$cost,$aqbudgetid,$biblionumber,
$startdate,$periodicity,$dow,$numberlength,$weeklength,$monthlength,
$add1,$every1,$whenmorethan1,$setto1,$lastvalue1,
$add2,$every2,$whenmorethan2,$setto2,$lastvalue2,
Index: subscription-detail.pl
===================================================================
RCS file: /sources/koha/koha/serials/subscription-detail.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- subscription-detail.pl 19 Jan 2006 12:46:58 -0000 1.1
+++ subscription-detail.pl 7 Jul 2006 09:05:23 -0000 1.2
@@ -1,11 +1,30 @@
#!/usr/bin/perl
+# Copyright 2000-2002 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-detail.pl,v 1.2 2006/07/07 09:05:23 toins Exp $
+
use strict;
use CGI;
use C4::Auth;
use C4::Koha;
use C4::Date;
-use C4::Bull;
+use C4::Serials;
use C4::Output;
use C4::Interface::CGI::Output;
use C4::Context;
@@ -62,7 +81,7 @@
$notes = $query->param('notes');
$letter = $query->param('letter');
- &modsubscription($auser,$aqbooksellerid,$cost,$aqbudgetid,$startdate,
+ &ModSubscription($auser,$aqbooksellerid,$cost,$aqbudgetid,$startdate,
$periodicity,$dow,$numberlength,$weeklength,$monthlength,
$add1,$every1,$whenmorethan1,$setto1,$lastvalue1,$innerloop1,
$add2,$every2,$whenmorethan2,$setto2,$lastvalue2,$innerloop2,
@@ -71,15 +90,15 @@
}
if ($op eq 'del') {
- &delsubscription($subscriptionid);
+ &DelSubscription($subscriptionid);
print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=../bull-home.pl\"></html>";
exit;
}
-$subs = &getsubscription($subscriptionid);
+$subs = &GetSubscription($subscriptionid);
# html'ize distributedto
$subs->{distributedto}=~ s/\n/<br \/>/g;
-my ($totalissues, at serialslist) = getserials($subscriptionid);
+my ($totalissues, at serialslist) = GetSerials($subscriptionid);
$totalissues-- if $totalissues; # the -1 is to have 0 if this is a new subscription (only 1 issue)
($template, $loggedinuser, $cookie)
More information about the Koha-cvs
mailing list