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

(-)a/C4/Log.pm (-2 / +5 lines)
Lines 96-102 sub logaction { Link Here
96
        $updated = $infos;
96
        $updated = $infos;
97
        if ( ref $infos eq 'HASH' ) {
97
        if ( ref $infos eq 'HASH' ) {
98
            local $Data::Dumper::Sortkeys = 1;
98
            local $Data::Dumper::Sortkeys = 1;
99
            $infos = Dumper($updated);
99
            if ( $modulename eq 'CATALOGUING' && $actionname eq 'MODIFY' ) {
100
                $infos = "biblio " . Dumper( ref $original eq 'HASH' ? $original : {} );
101
            } else {
102
                $infos = Dumper($updated);
103
            }
100
        }
104
        }
101
    }
105
    }
102
106
103
- 

Return to bug 40135