Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Fixed bug #2357

Browse source 
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Frederic Demians 2008-07-16 18:11:29 +02:00 committed by Joshua Ferraro
parent c86f708197
commit 550801cb5d
1 changed files with 14 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
tools/export.pl
View file

@ -73,9 +73,17 @@ if ($op eq "export") {
my $strip_nonlocal_items = $query->param("strip_nonlocal_items");
my $dont_export_fields = $query->param("dont_export_fields");
my @sql_params;
my $query = " SELECT DISTINCT biblioitems.biblionumber
FROM biblioitems,items
WHERE biblioitems.biblionumber=items.biblionumber ";
my $items_filter =
$branch || $start_callnumber || $end_callnumber ||
$start_accession || $end_accession ||
($itemtype && C4::Context->preference('item-level_itypes'));
my $query = $items_filter ?
"SELECT DISTINCT biblioitems.biblionumber
FROM biblioitems,items
WHERE biblioitems.biblionumber=items.biblionumber "
:
"SELECT biblioitems.biblionumber FROM biblioitems WHERE biblionumber >0 ";
if ( $StartingBiblionumber ) {
$query .= " AND biblioitems.biblionumber >= ? ";
@ -120,8 +128,10 @@ if ($op eq "export") {
while (my ($biblionumber) = $sth->fetchrow) {
my $record = GetMarcBiblio($biblionumber);
my ( $homebranchfield, $homebranchsubfield ) = GetMarcFromKohaField( 'items.homebranch', '' );
if ( $dont_export_items || $strip_nonlocal_items || $limit_ind_branch) {
my ( $homebranchfield, $homebranchsubfield ) =
GetMarcFromKohaField( 'items.homebranch', '' );
for my $itemfield ($record->field($homebranchfield)){
# if stripping nonlocal items, use loggedinuser's branch if they didn't select one
$branch = C4::Context->userenv->{'branch'} unless $branch;