|
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 |
- |
|
|