[Koha-cvs] koha/C4 Accounts.pm

[Chris Cormack]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Chris Cormack <rangi>   07/07/02 00:44:25

Modified files:
        C4             : Accounts.pm 

Log message:
        Fix for bug 1314 manual credits broken

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Accounts.pm?cvsroot=koha&r1=1.22&r2=1.23

Patches:
Index: Accounts.pm
===================================================================
RCS file: /sources/koha/koha/C4/Accounts.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -b -r1.22 -r1.23
--- Accounts.pm 23 Apr 2007 14:06:18 -0000      1.22
+++ Accounts.pm 2 Jul 2007 00:44:25 -0000       1.23
@@ -17,7 +17,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: Accounts.pm,v 1.22 2007/04/23 14:06:18 tipaul Exp $
+# $Id: Accounts.pm,v 1.23 2007/07/02 00:44:25 rangi Exp $
 
 use strict;
 require Exporter;
@@ -28,7 +28,7 @@
 use vars qw($VERSION @ISA @EXPORT);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.22 $' =~ /\d+/g; 
+$VERSION = do { my @v = '$Revision: 1.23 $' =~ /\d+/g; 
 shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 =head1 NAME
@@ -273,7 +273,7 @@
 sub manualinvoice{
   my ($borrowernumber,$itemnum,$desc,$type,$amount,$user)address@hidden;
   my $dbh = C4::Context->dbh;
-  my $notifyid;
+  my $notifyid=0;
   my $insert;
   $itemnum=~ s/ //g;
   my $accountno=getnextacctno($borrowernumber);