From 35fae6a9e4ae6852451f419cfdec1385b2cc4526 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Fri, 4 May 2007 13:59:53 +0000
Subject: [PATCH] bugfixes for acquisition module

---
 C4/Members.pm                                         | 2 +-
 acqui/neworderempty.pl                                | 2 +-
 acqui/parcel.pl                                       | 2 +-
 koha-tmpl/intranet-tmpl/prog/en/acqui/histsearch.tmpl | 2 +-
 koha-tmpl/intranet-tmpl/prog/en/acqui/parcels.tmpl    | 2 +-
 5 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/C4/Members.pm b/C4/Members.pm
index 8a5b33f746..502d0f35f1 100644
--- a/C4/Members.pm
+++ b/C4/Members.pm
@@ -1637,7 +1637,7 @@ sub ExtendMemberSubscriptionTo {
     my $dbh = C4::Context->dbh;
     unless ($date){
       $date=POSIX::strftime("%Y-%m-%d",localtime(time));
-      my $borrower = GetBorrower($borrowerid,'borrowernumber');
+      my $borrower = GetMember($borrowerid,'borrowernumber');
       $date = GetExpiryDate( $borrower->{'categorycode'}, $date );
     }
     my $sth = $dbh->do(<<EOF);
diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl
index 7ebb053180..d1a21a583d 100755
--- a/acqui/neworderempty.pl
+++ b/acqui/neworderempty.pl
@@ -184,7 +184,7 @@ foreach my $thisbranch ( sort keys %$branches ) {
 $template->param( branchloop => \@branchloop );
 
 # build bookfund list
-my $borrower= GetBorrower($loggedinuser);
+my $borrower= GetMember($loggedinuser);
 my ( $flags, $homebranch )= ($borrower->{'flags'},$borrower->{'branchcode'});
 
 my $count2;
diff --git a/acqui/parcel.pl b/acqui/parcel.pl
index ca03a2c85a..1d0ee1f2cf 100644
--- a/acqui/parcel.pl
+++ b/acqui/parcel.pl
@@ -73,7 +73,7 @@ my $count = scalar @booksellers;
 my $invoice=$input->param('invoice') || '';
 my $freight=$input->param('freight');
 my $gst=$input->param('gst');
-my $datereceived=$input->param('datereceived') || format_date(join "-",Date::Calc::Today());
+my $datereceived=format_date_in_iso($input->param('datereceived')) || format_date(join "-",Date::Calc::Today());
 my $code=$input->param('code');
 
 my ($template, $loggedinuser, $cookie)
diff --git a/koha-tmpl/intranet-tmpl/prog/en/acqui/histsearch.tmpl b/koha-tmpl/intranet-tmpl/prog/en/acqui/histsearch.tmpl
index 6a292b35c9..89bed17879 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/acqui/histsearch.tmpl
+++ b/koha-tmpl/intranet-tmpl/prog/en/acqui/histsearch.tmpl
@@ -92,7 +92,7 @@
 				<tr>
 					<td>
 					    <!-- TMPL_IF NAME="invoicenumber" -->
-					        <a href="/cgi-bin/koha/acqui/parcel.pl?code=<!-- TMPL_VAR NAME="invoicenumber"-->&supplierid=<!-- TMPL_VAR NAME="id"-->&datereceived=<!-- TMPL_VAR NAME="datereceived" -->">Parcel</a>
+					        <a href="/cgi-bin/koha/acqui/parcel.pl?invoice=<!-- TMPL_VAR NAME="invoicenumber"-->&supplierid=<!-- TMPL_VAR NAME="id"-->&datereceived=<!-- TMPL_VAR NAME="datereceived" -->">Parcel</a>
 					    <!-- TMPL_ELSE -->
 					        &nbsp;
 					    <!-- /TMPL_IF -->
diff --git a/koha-tmpl/intranet-tmpl/prog/en/acqui/parcels.tmpl b/koha-tmpl/intranet-tmpl/prog/en/acqui/parcels.tmpl
index 48ceb7cf5e..ae75b28402 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/acqui/parcels.tmpl
+++ b/koha-tmpl/intranet-tmpl/prog/en/acqui/parcels.tmpl
@@ -84,7 +84,7 @@
         </td>
         <!-- TMPL_IF NAME="hilighted" --><td class="hilighted number"><!-- TMPL_ELSE --><td class="number">
         <!-- /TMPL_IF -->
-            <a href="/cgi-bin/koha/acqui/parcel.pl?type=intra&amp;supplierid=<!-- TMPL_VAR NAME="supplierid" ESCAPE=URL -->&amp;datereceived=<!-- TMPL_VAR NAME="raw_datereceived" ESCAPE=URL --><!--TMPL_IF Name="code"-->&amp;code=<!--TMPL_VAR Name="code" ESCAPE=URL --><!--/TMPL_IF-->">
+            <a href="/cgi-bin/koha/acqui/parcel.pl?type=intra&amp;supplierid=<!-- TMPL_VAR NAME="supplierid" ESCAPE=URL -->&amp;datereceived=<!-- TMPL_VAR NAME="raw_datereceived" ESCAPE=URL --><!--TMPL_IF Name="code"-->&amp;invoice=<!--TMPL_VAR Name="code" ESCAPE=URL --><!--/TMPL_IF-->">
                 <!-- TMPL_VAR NAME="datereceived" -->
             </a>
         </td>
-- 
2.39.5