View | Details | Raw Unified | Return to bug 16424
Collapse All | Expand All

(-)a/svc/bib (-2 / +1 lines)
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
- 

Return to bug 16424