From c3fe3af20953aebb47a786537211e295b0d15bf2 Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Fri, 12 Mar 2010 18:23:20 +0100 Subject: [PATCH] Using only default framework for koha2marclinks Signed-off-by: Galen Charlton --- admin/koha2marclinks.pl | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/admin/koha2marclinks.pl b/admin/koha2marclinks.pl index 4880421f50..a89681dc35 100755 --- a/admin/koha2marclinks.pl +++ b/admin/koha2marclinks.pl @@ -63,17 +63,20 @@ my $dbh = C4::Context->dbh; ################## ADD_FORM ################################## # called by default. Used to create form to add or modify a record if ( $op eq 'add_form' ) { - my $sth = $dbh->prepare( -"select tagfield,tagsubfield,liblibrarian as lib,tab from marc_subfield_structure where kohafield=?" - ); + my $data; + my $sth = + $dbh->prepare( +"select tagfield,tagsubfield,liblibrarian as lib,tab from marc_subfield_structure where kohafield=? AND frameworkcode=''" + ); $sth->execute( $tablename . "." . $kohafield ); my ( $defaulttagfield, $defaulttagsubfield, $defaultliblibrarian ) = $sth->fetchrow; for ( my $i = 0 ; $i <= 9 ; $i++ ) { - my $sth2 = $dbh->prepare( -"select tagfield,tagsubfield,liblibrarian as lib,tab from marc_subfield_structure where tagfield like ?" - ); + my $sth2 = + $dbh->prepare( +"select tagfield,tagsubfield,liblibrarian as lib,tab from marc_subfield_structure where tagfield like ? AND frameworkcode=''" + ); $sth2->execute("$i%"); my @marcarray; push @marcarray, " "; -- 2.39.5