Lines 80-86
sub update_bib {
Link Here
|
80 |
my $query = shift; |
80 |
my $query = shift; |
81 |
my $biblionumber = shift; |
81 |
my $biblionumber = shift; |
82 |
my $old_record = GetMarcBiblio({ biblionumber => $biblionumber }); |
82 |
my $old_record = GetMarcBiblio({ biblionumber => $biblionumber }); |
83 |
my $frameworkcode = $query->url_param('frameworkcode') // ''; |
83 |
my $frameworkcode = $query->url_param('frameworkcode') // GetFrameworkCode($biblionumber); |
84 |
unless (defined $old_record) { |
84 |
unless (defined $old_record) { |
85 |
print $query->header(-type => 'text/xml', -status => '404 Not Found'); |
85 |
print $query->header(-type => 'text/xml', -status => '404 Not Found'); |
86 |
return; |
86 |
return; |
87 |
- |
|
|