[Koha-cvs] CVS: koha/C4 Search.pm,1.18.2.19,1.18.2.20 Reserves2.pm,1.5.2.13,1.5.2.14

[Finlay Thompson]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv31395

Modified Files:
      Tag: rel-1-2
	Search.pm Reserves2.pm 
Log Message:

Some small changes to handle to new opac


Index: Search.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Search.pm,v
retrieving revision 1.18.2.19
retrieving revision 1.18.2.20
diff -C2 -r1.18.2.19 -r1.18.2.20
*** Search.pm	27 Nov 2002 01:48:53 -0000	1.18.2.19
--- Search.pm	28 Nov 2002 10:53:38 -0000	1.18.2.20
***************
*** 1265,1268 ****
--- 1265,1269 ----
        # according to local convention.
        my @temp=split('-',$idata->{'date_due'});
+       $data->{'date_due'} = $idata->{'date_due'};
        $datedue = "$temp[2]/$temp[1]/$temp[0]";
      }
***************
*** 1301,1305 ****
  	$data->{'publictype'} = $bdata->{'publictype'};
      }
- 
  
      my $class = $data->{'classification'};
--- 1302,1305 ----

Index: Reserves2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Reserves2.pm,v
retrieving revision 1.5.2.13
retrieving revision 1.5.2.14
diff -C2 -r1.5.2.13 -r1.5.2.14
*** Reserves2.pm	26 Nov 2002 04:45:03 -0000	1.5.2.13
--- Reserves2.pm	28 Nov 2002 10:53:38 -0000	1.5.2.14
***************
*** 304,309 ****
  
  sub CreateReserve {
!   my
! ($env,$branch,$borrnum,$biblionumber,$constraint,$bibitems,$priority,$notes,$title,$required_date, $expires_date)= @_;
    my $fee=CalcReserveFee($env,$borrnum,$biblionumber,$constraint,$bibitems);
    my $dbh = &C4Connect;
--- 304,308 ----
  
  sub CreateReserve {
!   my ($env,$branch,$borrnum,$biblionumber,$constraint,$bibitems,$priority,$notes,$title)= @_;
    my $fee=CalcReserveFee($env,$borrnum,$biblionumber,$constraint,$bibitems);
    my $dbh = &C4Connect;
***************
*** 326,332 ****
    #if ($const eq 'a'){
      my $query="insert into reserves
!    (borrowernumber,biblionumber,reservedate,branchcode,constrainttype,priority,reservenotes,required_date,expires_date)
!     values
! (?, ?, ?, ?, ?, ?, ?, ?, ?)";   
      my $sth = $dbh->prepare($query);                        
      $sth->execute($borrnum,
--- 325,330 ----
    #if ($const eq 'a'){
      my $query="insert into reserves
!    (borrowernumber,biblionumber,reservedate,branchcode,constrainttype,priority,reservenotes)
!     values (?, ?, ?, ?, ?, ?, ?)";   
      my $sth = $dbh->prepare($query);                        
      $sth->execute($borrnum,
***************
*** 336,342 ****
  		  $const,
  		  $priority,
! 		  $notes,
! 		  $required_date,
! 		  $expires_date);
      $sth->finish;
    #}
--- 334,338 ----
  		  $const,
  		  $priority,
! 		  $notes);
      $sth->finish;
    #}