[Koha-cvs] koha/C4 Bookseller.pm [rel_3_0]
Antoine Farnault
antoine at koha-fr.org
Thu Dec 21 10:21:42 CET 2006
CVSROOT: /sources/koha
Module name: koha
Branch: rel_3_0
Changes by: Antoine Farnault <toins> 06/12/21 09:21:42
Modified files:
C4 : Bookseller.pm
Log message:
fix pod error, removing warn compilation.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Bookseller.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.1&r2=1.1.2.1
Patches:
Index: Bookseller.pm
===================================================================
RCS file: /sources/koha/koha/C4/Bookseller.pm,v
retrieving revision 1.1
retrieving revision 1.1.2.1
diff -u -b -r1.1 -r1.1.2.1
--- Bookseller.pm 27 Jul 2006 13:39:00 -0000 1.1
+++ Bookseller.pm 21 Dec 2006 09:21:42 -0000 1.1.2.1
@@ -17,14 +17,14 @@
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id: Bookseller.pm,v 1.1 2006/07/27 13:39:00 toins Exp $
+# $Id: Bookseller.pm,v 1.1.2.1 2006/12/21 09:21:42 toins Exp $
use strict;
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.1 $' =~ /\d+/g; shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.1.2.1 $' =~ /\d+/g; shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v ); };
@ISA = qw(Exporter);
@EXPORT = qw(
@@ -50,15 +50,11 @@
=head1 FUNCTIONS
-=over 2
-
=cut
#-------------------------------------------------------------------#
-=head3 GetBookSeller
-
-=over 4
+=head2 GetBookSeller
@results = &GetBookSeller($searchstring);
@@ -68,8 +64,6 @@
C<@results> is an array of references-to-hash, whose keys are the fields of of the
aqbooksellers table in the Koha database.
-=back
-
=cut
sub GetBookSeller {
@@ -93,16 +87,12 @@
#-----------------------------------------------------------------#
-=head3 GetBooksellersWithLateOrders
-
-=over 4
+=head2 GetBooksellersWithLateOrders
%results = &GetBooksellersWithLateOrders;
Searches for suppliers with late orders.
-=back
-
=cut
sub GetBooksellersWithLateOrders {
@@ -147,9 +137,7 @@
#--------------------------------------------------------------------#
-=head3 AddBookseller
-
-=over 4
+=head2 AddBookseller
$id = &AddBookseller($bookseller);
@@ -159,8 +147,6 @@
Returns the ID of the newly-created bookseller.
-=back
-
=cut
sub AddBookseller {
@@ -197,20 +183,18 @@
);
# return the id of this new supplier
- my $query = "
+ $query = "
SELECT max(id)
FROM aqbooksellers
";
- my $sth = $dbh->prepare($query);
+ $sth = $dbh->prepare($query);
$sth->execute;
return scalar($sth->fetchrow);
}
#-----------------------------------------------------------------#
-=head3 ModSupplier
-
-=over 4
+=head2 ModSupplier
&ModSupplier($bookseller);
@@ -223,8 +207,6 @@
book seller with C<&booksellers>, modify what's necessary, then call
C<&ModSupplier> with the result.
-=back
-
=cut
sub ModBookseller {
@@ -260,15 +242,12 @@
$sth->finish;
}
-
END { } # module clean-up code here (global destructor)
1;
__END__
-=back
-
=head1 AUTHOR
Koha Developement team <info at koha.org>
More information about the Koha-cvs
mailing list