From 11b021d69cb4df2cf8d6eec4c480f25160f7e8ae Mon Sep 17 00:00:00 2001
From: tgarip1957 <tgarip1957>
Date: Tue, 9 May 2006 09:09:34 +0000
Subject: [PATCH] Export from biblioitems (very fast)

---
 export/marc.pl | 99 ++++++++------------------------------------------
 1 file changed, 15 insertions(+), 84 deletions(-)

diff --git a/export/marc.pl b/export/marc.pl
index 8eb41fa51b..7d9dcf80de 100755
--- a/export/marc.pl
+++ b/export/marc.pl
@@ -8,94 +8,31 @@ use C4::Interface::CGI::Output;
 use C4::Output;  # contains gettemplate
 use C4::Biblio;
 use CGI;
-use C4::Koha;
+use C4::Auth;
 
 my $query = new CGI;
 my $op=$query->param("op");
-my $dbh=C4::Context->dbh;
-
 if ($op eq "export") {
-	print $query->header(	-type => 'application/octet-stream',
-				-attachment=>'koha.mrc');
+	print $query->header('Content-Type: text/marc');
 	my $start_bib = $query->param("start_bib");
 	my $end_bib = $query->param("end_bib");
-	my $format = $query->param("format");
-	my $branch = $query->param("branch");
-	my $start_callnumber = $query->param("start_callnumber");
-	my $end_callnumber = $query->param("end_callnumber");
-	my $limit = $query->param("limit");
-	my $strsth;
-	$strsth="select bibid from marc_biblio ";
+	my $dbh=C4::Context->dbh;
+	my $sth;
 	if ($start_bib && $end_bib) {
-		$strsth.=" where biblionumber>=$start_bib and biblionumber<=$end_bib ";
-	}elsif ($format) {
-		if ($strsth=~/ where/){
-			$strsth=~s/ where (.*)/,biblioitems where biblioitems.biblionumber=marc_biblio.biblionumber and biblioitems.itemtype=\'$format\' and $1/;
-		}else {
-			$strsth.=",biblioitems where biblioitems.biblionumber=marc_biblio.biblionumber and biblioitems.itemtype=\'$format\'";
-		}
-	} elsif ($branch) {
-		if ($strsth=~/ where/){
-			$strsth=~s/ where (.*)/,items where items.biblionumber=marc_biblio.biblionumber and items.homebranch=\'$branch\' and $1/;
-		}else {
-			$strsth.=",items where items.biblionumber=marc_biblio.biblionumber and items.homebranch=\'$branch\'";
-		}
-	} elsif ($start_callnumber && $end_callnumber) {
-		$start_callnumber=~s/\*/\%/g;
-		$start_callnumber=~s/\?/\_/g;
-		$end_callnumber=~s/\*/\%/g;
-		$end_callnumber=~s/\?/\_/g;
-		if ($strsth=~/,items/){
-			$strsth.=" and items.itemcallnumber between \'$start_callnumber\' and \'$end_callnumber\'";
-		} else {
-			if ($strsth=~/ where/){
-				$strsth=~s/ where (.*)/,items where items.biblionumber=marc_biblio.biblionumber and items.itemcallnumber between \'$start_callnumber\' and \'$end_callnumber\' and $1/;
-			}else {
-				$strsth=~",items where items.biblionumber=marc_biblio.biblionumber and items.itemcallnumber between \'$start_callnumber\' and \'$end_callnumber\' ";
-			}
-		}
+		$sth=$dbh->prepare("select marc from biblioitems where biblionumber >=? and biblionumber <=? order by biblionumber");
+		$sth->execute($start_bib,$end_bib);
+	} elsif ($start_bib ) {
+		$sth=$dbh->prepare("select marc from biblioitems where biblionumber >=?  order by biblionumber");
+		$sth->execute($start_bib);
+	}else {
+		$sth=$dbh->prepare("select marc from biblioitems order by biblionumber");
+		$sth->execute();
 	}
-	$strsth.=" order by marc_biblio.biblionumber ";
-	$strsth.= "LIMIT 0,$limit " if ($limit);
-	warn "requête marc.pl : ".$strsth;
-	my $req=$dbh->prepare($strsth);
-	$req->execute;
-	while (my ($bibid) = $req->fetchrow) {
-		my $record = MARCgetbiblio($dbh,$bibid);
-
-		print $record->as_usmarc();
+	while (my ($marc) = $sth->fetchrow) {
+		
+		if ($marc){print $marc;}
 	}
 } else {
-	my $sth=$dbh->prepare("Select itemtype,description from itemtypes order by description");
-	$sth->execute;
-	my  @itemtype;
-	my %itemtypes;
-	push @itemtype, "";
-	$itemtypes{''} = "";
-	while (my ($value,$lib) = $sth->fetchrow_array) {
-			push @itemtype, $value;
-			$itemtypes{$value}=$lib;
-	}
-	
-	my $CGIitemtype=CGI::scrolling_list( -name     => 'format',
-							-values   => \@itemtype,
-							-default  => '',
-							-labels   => \%itemtypes,
-							-size     => 1,
-							-multiple => 0 );
-	$sth->finish;
-	
-	my $branches = getallbranches;
-	my @branchloop;
-	foreach my $thisbranch (keys %$branches) {
-# 			my $selected = 1 if $thisbranch eq $branch;
-			my %row =(value => $thisbranch,
-# 									selected => $selected,
-									branchname => $branches->{$thisbranch}->{'branchname'},
-							);
-			push @branchloop, \%row;
-	}
-	
 	my ($template, $loggedinuser, $cookie)
 	= get_template_and_user({template_name => "export/marc.tmpl",
 					query => $query,
@@ -104,12 +41,6 @@ if ($op eq "export") {
 					flagsrequired => {parameters => 1, management => 1, tools => 1},
 					debug => 1,
 					});
-	$template->param(branchloop=>\@branchloop,
-			CGIitemtype=>$CGIitemtype,
-			intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
-		intranetstylesheet => C4::Context->preference("intranetstylesheet"),
-		IntranetNav => C4::Context->preference("IntranetNav"),
-			);
 	output_html_with_http_headers $query, $cookie, $template->output;
 }