Lines 58-63
sub add_opac_new {
Link Here
|
58 |
my $retval = 0; |
58 |
my $retval = 0; |
59 |
|
59 |
|
60 |
if ($href_entry) { |
60 |
if ($href_entry) { |
|
|
61 |
$href_entry->{number} = 0 if $href_entry->{number} !~ /^\d+$/; |
61 |
my @fields = keys %{$href_entry}; |
62 |
my @fields = keys %{$href_entry}; |
62 |
my @values = values %{$href_entry}; |
63 |
my @values = values %{$href_entry}; |
63 |
my $field_string = join ',', @fields; |
64 |
my $field_string = join ',', @fields; |
Lines 85-90
sub upd_opac_new {
Link Here
|
85 |
my $retval = 0; |
86 |
my $retval = 0; |
86 |
|
87 |
|
87 |
if ($href_entry) { |
88 |
if ($href_entry) { |
|
|
89 |
$href_entry->{number} = 0 if $href_entry->{number} !~ /^\d+$/; |
88 |
# take the keys of hash entry and make a list, but... |
90 |
# take the keys of hash entry and make a list, but... |
89 |
my @fields = keys %{$href_entry}; |
91 |
my @fields = keys %{$href_entry}; |
90 |
my @values; |
92 |
my @values; |
91 |
- |
|
|