|
Lines 127-140
if ( $op eq 'else' ) {
Link Here
|
| 127 |
} |
127 |
} |
| 128 |
} |
128 |
} |
| 129 |
|
129 |
|
| 130 |
my @suggestion_fields = |
130 |
$suggestion = { |
| 131 |
qw( title author copyrightdate isbn publishercode collectiontitle place quantity itemtype patronreason note ); |
|
|
| 132 |
my $suggestion = { |
| 133 |
map { |
131 |
map { |
|
|
132 |
my $p = $suggestion->{$_} |
| 134 |
# Keep parameters that are not an empty string |
133 |
# Keep parameters that are not an empty string |
| 135 |
my $p = $input->param($_); |
|
|
| 136 |
( defined $p && $p ne '' ? ( $_ => $p ) : () ) |
134 |
( defined $p && $p ne '' ? ( $_ => $p ) : () ) |
| 137 |
} @suggestion_fields |
135 |
} keys %$suggestion |
| 138 |
}; |
136 |
}; |
| 139 |
$suggestion->{suggestedby} = $borrowernumber; |
137 |
$suggestion->{suggestedby} = $borrowernumber; |
| 140 |
|
138 |
|
| 141 |
- |
|
|