[Koha-cvs] koha/C4 Accounts2.pm Letters.pm Reserves2.pm [rel_3_0]
Antoine Farnault
antoine at koha-fr.org
Fri Dec 22 16:37:14 CET 2006
CVSROOT: /sources/koha
Module name: koha
Branch: rel_3_0
Changes by: Antoine Farnault <toins> 06/12/22 15:37:14
Modified files:
C4 : Accounts2.pm Letters.pm Reserves2.pm
Log message:
removing warn compilation.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Accounts2.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.30.2.3&r2=1.30.2.4
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Letters.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.4.2.6&r2=1.4.2.7
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Reserves2.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.46.2.11&r2=1.46.2.12
Patches:
Index: Accounts2.pm
===================================================================
RCS file: /sources/koha/koha/C4/Accounts2.pm,v
retrieving revision 1.30.2.3
retrieving revision 1.30.2.4
diff -u -b -r1.30.2.3 -r1.30.2.4
--- Accounts2.pm 24 Nov 2006 13:56:19 -0000 1.30.2.3
+++ Accounts2.pm 22 Dec 2006 15:37:14 -0000 1.30.2.4
@@ -18,18 +18,18 @@
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id: Accounts2.pm,v 1.30.2.3 2006/11/24 13:56:19 btoumi Exp $
+# $Id: Accounts2.pm,v 1.30.2.4 2006/12/22 15:37:14 toins Exp $
+
use strict;
require Exporter;
-use DBI;
use C4::Context;
use C4::Stats;
use C4::Members;
-use C4::Circulation::Circ2;
+#use C4::Circulation::Circ2;
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.30.2.3 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.30.2.4 $' =~ /\d+/g;
shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
=head1 NAME
@@ -48,15 +48,13 @@
=head1 FUNCTIONS
-=over 2
-
=cut
@ISA = qw(Exporter);
@EXPORT = qw(&checkaccount &recordpayment &fixaccounts &makepayment &manualinvoice
&getnextacctno &reconcileaccount);
-=item checkaccount
+=head2 checkaccount
$owed = &checkaccount($env, $borrowernumber, $dbh, $date);
@@ -69,6 +67,7 @@
C<$env> is ignored.
=cut
+
#'
sub checkaccount {
#take borrower number
@@ -100,7 +99,7 @@
return($total);
}
-=item recordpayment
+=head2 recordpayment
&recordpayment($env, $borrowernumber, $payment);
@@ -116,6 +115,7 @@
will be credited to the next one.
=cut
+
#'
sub recordpayment{
#here we update both the accountoffsets and the account lines
@@ -163,7 +163,7 @@
$sth->finish;
}
-=item makepayment
+=head2 makepayment
&makepayment($borrowernumber, $acctnumber, $amount, $branchcode);
@@ -177,6 +177,7 @@
was made.
=cut
+
#'
# FIXME - I'm not at all sure about the above, because I don't
# understand what the acct* tables in the Koha database are for.
@@ -232,7 +233,7 @@
}
}
-=item getnextacctno
+=head2 getnextacctno
$nextacct = &getnextacctno($env, $borrowernumber, $dbh);
@@ -244,6 +245,7 @@
C<$env> is ignored.
=cut
+
#'
# FIXME - Okay, so what does the above actually _mean_?
sub getnextacctno {
@@ -260,11 +262,12 @@
return($nextaccntno);
}
-=item fixaccounts
+=head2 fixaccounts
&fixaccounts($borrowernumber, $accountnumber, $amount);
=cut
+
#'
# FIXME - I don't understand what this function does.
sub fixaccounts {
@@ -305,7 +308,7 @@
$sth->finish;
}
-=item manualinvoice
+=head2 manualinvoice
&manualinvoice($borrowernumber, $itemnumber, $description, $type,
$amount, $user);
@@ -318,6 +321,7 @@
should be the empty string.
=cut
+
#'
# FIXME - Okay, so what does this function do, really?
sub manualinvoice{
@@ -375,11 +379,15 @@
}
}
-# fixcredit
-# $amountleft = &fixcredit($env, $borrowernumber, $data, $barcode, $type, $user);
-#
-# This function is only used internally.
-# FIXME - Figure out what this function does, and write it down.
+=head2 fixcredit
+
+ $amountleft = &fixcredit($env, $borrowernumber, $data, $barcode, $type, $user);
+
+ This function is only used internally, not exported.
+ FIXME - Figure out what this function does, and write it down.
+
+=cut
+
sub fixcredit{
#here we update both the accountoffsets and the account lines
my ($env,$borrowernumber,$data,$barcode,$type,$user)=@_;
@@ -460,7 +468,12 @@
}
+=head2 refund
+
# FIXME - Figure out what this function does, and write it down.
+
+=cut
+
sub refund{
#here we update both the accountoffsets and the account lines
my ($env,$borrowernumber,$data)=@_;
@@ -509,7 +522,6 @@
1;
__END__
-=back
=head1 SEE ALSO
Index: Letters.pm
===================================================================
RCS file: /sources/koha/koha/C4/Letters.pm,v
retrieving revision 1.4.2.6
retrieving revision 1.4.2.7
diff -u -b -r1.4.2.6 -r1.4.2.7
--- Letters.pm 13 Dec 2006 19:45:04 -0000 1.4.2.6
+++ Letters.pm 22 Dec 2006 15:37:14 -0000 1.4.2.7
@@ -24,14 +24,15 @@
use Date::Manip;
use C4::Suggestions;
use C4::Members;
-use C4::Serials;
use C4::Log;
require Exporter;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
# set the version for version checking
-$VERSION = 0.01;
+$VERSION = do { my @v = '$Revision: 1.4.2.7 $' =~ /\d+/g;
+ shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v );
+};
=head1 NAME
Index: Reserves2.pm
===================================================================
RCS file: /sources/koha/koha/C4/Reserves2.pm,v
retrieving revision 1.46.2.11
retrieving revision 1.46.2.12
diff -u -b -r1.46.2.11 -r1.46.2.12
--- Reserves2.pm 19 Dec 2006 16:48:17 -0000 1.46.2.11
+++ Reserves2.pm 22 Dec 2006 15:37:14 -0000 1.46.2.12
@@ -20,19 +20,18 @@
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id: Reserves2.pm,v 1.46.2.11 2006/12/19 16:48:17 alaurin Exp $
+# $Id: Reserves2.pm,v 1.46.2.12 2006/12/22 15:37:14 toins Exp $
use strict;
require Exporter;
use C4::Context;
use C4::Biblio;
use C4::Search;
-use C4::Circulation::Circ2;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
my $library_name = C4::Context->preference("LibraryName");
# set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.46.2.11 $' =~ /\d+/g; shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.46.2.12 $' =~ /\d+/g; shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v ); };
=head1 NAME
More information about the Koha-cvs
mailing list