|
Lines 93-98
my $messages;
Link Here
|
| 93 |
|
93 |
|
| 94 |
my $date = C4::Dates->today('iso'); |
94 |
my $date = C4::Dates->today('iso'); |
| 95 |
my $action = $input->param('action'); |
95 |
my $action = $input->param('action'); |
|
|
96 |
$action ||= q{}; |
| 96 |
|
97 |
|
| 97 |
if ( $action eq 'move' ) { |
98 |
if ( $action eq 'move' ) { |
| 98 |
my $where = $input->param('where'); |
99 |
my $where = $input->param('where'); |
| 99 |
- |
|
|