From ed9c558817e747d11282f752f7a5f7f97abdf788 Mon Sep 17 00:00:00 2001
From: finlayt <finlayt>
Date: Thu, 28 Nov 2002 10:53:38 +0000
Subject: [PATCH] Some small changes to handle to new opac

---
 C4/Reserves2.pm | 12 ++++--------
 C4/Search.pm    |  2 +-
 2 files changed, 5 insertions(+), 9 deletions(-)

diff --git a/C4/Reserves2.pm b/C4/Reserves2.pm
index a83d4f6745..bc290bd89a 100755
--- a/C4/Reserves2.pm
+++ b/C4/Reserves2.pm
@@ -303,8 +303,7 @@ sub Findgroupreserve {
 }
 
 sub CreateReserve {
-  my
-($env,$branch,$borrnum,$biblionumber,$constraint,$bibitems,$priority,$notes,$title,$required_date, $expires_date)= @_;
+  my ($env,$branch,$borrnum,$biblionumber,$constraint,$bibitems,$priority,$notes,$title)= @_;
   my $fee=CalcReserveFee($env,$borrnum,$biblionumber,$constraint,$bibitems);
   my $dbh = &C4Connect;
   my $const = lc substr($constraint,0,1);
@@ -325,9 +324,8 @@ sub CreateReserve {
   }                     
   #if ($const eq 'a'){
     my $query="insert into reserves
-   (borrowernumber,biblionumber,reservedate,branchcode,constrainttype,priority,reservenotes,required_date,expires_date)
-    values
-(?, ?, ?, ?, ?, ?, ?, ?, ?)";   
+   (borrowernumber,biblionumber,reservedate,branchcode,constrainttype,priority,reservenotes)
+    values (?, ?, ?, ?, ?, ?, ?)";   
     my $sth = $dbh->prepare($query);                        
     $sth->execute($borrnum,
     		  $biblionumber,
@@ -335,9 +333,7 @@ sub CreateReserve {
 		  $branch,
 		  $const,
 		  $priority,
-		  $notes,
-		  $required_date,
-		  $expires_date);
+		  $notes);
     $sth->finish;
   #}
   if (($const eq "o") || ($const eq "e")) {     
diff --git a/C4/Search.pm b/C4/Search.pm
index 046d9e6bc3..28eef85bdd 100755
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -1264,6 +1264,7 @@ sub ItemInfo {
       # FIXME - The date ought to be properly parsed, and printed
       # according to local convention.
       my @temp=split('-',$idata->{'date_due'});
+      $data->{'date_due'} = $idata->{'date_due'};
       $datedue = "$temp[2]/$temp[1]/$temp[0]";
     }
     if ($data->{'itemlost'} eq '2'){
@@ -1301,7 +1302,6 @@ sub ItemInfo {
 	$data->{'publictype'} = $bdata->{'publictype'};
     }
 
-
     my $class = $data->{'classification'};
     my $dewey = $data->{'dewey'};
     $dewey =~ s/0+$//;
-- 
2.39.5