View | Details | Raw Unified | Return to bug 13540
Collapse All | Expand All

(-)a/C4/Items.pm (-2 / +25 lines)
Lines 959-964 sub GetItemLocation { Link Here
959
    return \%itemlocation;
959
    return \%itemlocation;
960
}
960
}
961
961
962
=head GetRealItemLocations
963
964
    my $locations = C4::Items::GetRealItemLocations($itemnumber);
965
966
A convenience function of getting just the Item location and permanent_location
967
@PARAM1, Long, the koha-items.itemnumber
968
@RETURNS, Reference to Hash, with koha.items.location and permanent_location as hash keys.
969
970
=cut
971
sub GetRealItemLocations {
972
    my $itemnumber = shift;
973
    my $sth = C4::Context->dbh()->prepare('SELECT location, permanent_location FROM items WHERE itemnumber = ?');
974
    $sth->execute($itemnumber);
975
    return $sth->fetchrow_hashref();
976
}
977
962
=head2 GetLostItems
978
=head2 GetLostItems
963
979
964
  $items = GetLostItems( $where );
980
  $items = GetLostItems( $where );
Lines 2049-2055 sub _do_column_fixes_for_mod { Link Here
2049
        $item->{'withdrawn'} = 0;
2065
        $item->{'withdrawn'} = 0;
2050
    }
2066
    }
2051
    if (exists $item->{'location'} && !$item->{'permanent_location'}) {
2067
    if (exists $item->{'location'} && !$item->{'permanent_location'}) {
2052
        $item->{'permanent_location'} = $item->{'location'};
2068
        if ($item->{'location'} ne 'CART' && $item->{'location'} ne 'PROC') {
2069
            $item->{'permanent_location'} = $item->{'location'};
2070
        }
2071
        else {
2072
            #Preserve the old permanent_location in face of adversity!
2073
            #Don't let it fall to 'PROC' or 'CART'. Otherwise it will be forever lost!
2074
            my $locations = GetRealItemLocations( $item->{itemnumber} );
2075
            $item->{'permanent_location'} = $locations->{'permanent_location'};
2076
        }
2053
    }
2077
    }
2054
    if (exists $item->{'timestamp'}) {
2078
    if (exists $item->{'timestamp'}) {
2055
        delete $item->{'timestamp'};
2079
        delete $item->{'timestamp'};
2056
- 

Return to bug 13540