HUGE COMMIT : code cleaning circulation.

[koha.git] / circ / waitingreservestransfers.pl

diff --git a/circ/waitingreservestransfers.pl b/circ/waitingreservestransfers.pl
index 30beaf7..916b6c9 100755 (executable)
--- a/circ/waitingreservestransfers.pl
+++ b/circ/waitingreservestransfers.pl
@@ -26,10 +26,10 @@ use CGI;
 use C4::Branch; # GetBranches
 use C4::Auth;
 use C4::Date;
-use C4::Circulation::Circ2;
+use C4::Circulation;
 use Date::Calc qw(
   Today
-  Add_Delta_YM
+  Add_Delta_Days
   Date_to_Days
 );
 use C4::Koha;
@@ -85,11 +85,11 @@ foreach my $br ( keys %$branches ) {
         foreach my $num (@getreserves) {
             my %getreserv;
             my %env;
-            my $gettitle     = getiteminformation( $num->{'itemnumber'} );
+            my $gettitle     = GetBiblioFromItemNumber( $num->{'itemnumber'} );
             my $itemtypeinfo = getitemtypeinfo( $gettitle->{'itemtype'} );
             if ( $gettitle->{'holdingbranch'} eq $default ) {
                 my $getborrower =
-                  getpatroninformation( \%env, $num->{'borrowernumber'} );
+                  GetMemberDetails( $num->{'borrowernumber'} );
                 $getreserv{'reservedate'} =
                   format_date( $num->{'reservedate'} );
 
@@ -99,8 +99,8 @@ foreach my $br ( keys %$branches ) {
                 my ( $reserve_year, $reserve_month, $reserve_day ) = split /-/,
                   $num->{'reservedate'};
                 ( $reserve_year, $reserve_month, $reserve_day ) =
-                  Add_Delta_YM( $reserve_year, $reserve_month, $reserve_day,
-                    C4::Context->preference('ReservesMaxPickUpDelay'), 0 );
+                  Add_Delta_Days( $reserve_year, $reserve_month, $reserve_day,
+                    C4::Context->preference('ReservesMaxPickUpDelay'));
                 my $calcDate =
                   Date_to_Days( $reserve_year, $reserve_month, $reserve_day );
                 my $today   = Date_to_Days(&Today);