From 0da95d7509581c71d599a952318c9ddba3b6c849 Mon Sep 17 00:00:00 2001
From: hdl <hdl>
Date: Fri, 16 Dec 2005 13:04:03 +0000
Subject: [PATCH] Adding some export features : Itemtypes Itemcallnumber branch
 And biblionumber and not bibid selection

---
 export/marc.pl                                | 83 +++++++++++++++++--
 .../intranet-tmpl/default/en/export/marc.tmpl | 15 +++-
 2 files changed, 87 insertions(+), 11 deletions(-)

diff --git a/export/marc.pl b/export/marc.pl
index 280c479502..6c4db28859 100755
--- a/export/marc.pl
+++ b/export/marc.pl
@@ -8,29 +8,93 @@ use C4::Interface::CGI::Output;
 use C4::Output;  # contains gettemplate
 use C4::Biblio;
 use CGI;
-use C4::Auth;
+use C4::Koha;
 
 my $query = new CGI;
 my $op=$query->param("op");
+my $dbh=C4::Context->dbh;
+
 if ($op eq "export") {
 	print $query->header('Content-Type: text/marc');
 	my $start_bib = $query->param("start_bib");
 	my $end_bib = $query->param("end_bib");
-	my $dbh=C4::Context->dbh;
-	my $sth;
+	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 ";
 	if ($start_bib && $end_bib) {
-		$sth=$dbh->prepare("select bibid from marc_biblio where bibid >=? and bibid <=? order by bibid");
-		$sth->execute($start_bib,$end_bib);
-	} else {
-		$sth=$dbh->prepare("select bibid from marc_biblio order by bibid");
-		$sth->execute();
+		$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\' ";
+			}
+		}
 	}
-	while (my ($bibid) = $sth->fetchrow) {
+	$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();
 	}
 } 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,
@@ -39,6 +103,7 @@ if ($op eq "export") {
 					flagsrequired => {parameters => 1, management => 1, tools => 1},
 					debug => 1,
 					});
+	$template->param(branchloop=>\@branchloop,CGIitemtype=>$CGIitemtype);
 	output_html_with_http_headers $query, $cookie, $template->output;
 }
 
diff --git a/koha-tmpl/intranet-tmpl/default/en/export/marc.tmpl b/koha-tmpl/intranet-tmpl/default/en/export/marc.tmpl
index 889b5ae08f..dc80aaa276 100644
--- a/koha-tmpl/intranet-tmpl/default/en/export/marc.tmpl
+++ b/koha-tmpl/intranet-tmpl/default/en/export/marc.tmpl
@@ -7,9 +7,20 @@
 		<form method="post">
 			<p>from biblio number : <input type="text" name="start_bib">
 			to biblio number : <input type="text" name="end_bib"></p>
-			<input type="hidden" name="op" value="export">
-			<p>(leave blank to export every biblio)</p>
+			<p>Document type : <!--TMPL_VAR Name="CGIitemtype"--></p>
+			<p>Branch :  <select name="branch">
+			<option value="">Default</option>
+                        <!-- TMPL_LOOP name="branchloop" -->
+                                <option value="<!-- TMPL_VAR name="value" -->" <!-- TMPL_IF name="selected" -->selected<!-- /TMPL_IF -->><!-- TMPL_VAR name
+="branchname" --></option>
+                        <!-- /TMPL_LOOP -->
+                        </select>
+</p>
+			<p>from itemcallnumber : <input type="text" name="start_callnumber">
+			to itemcallnumber : <input type="text" name="end_callnumber"></p>
+			<p>Limit to <input type="text" name="limit"> first biblio</p>
 			<p>Note : the items are NOT exported by this tool</p>
+			<input type="hidden" name="op" value="export">
 			<input type="submit" value="Export" class="button">
 		</form>
 	</div>
-- 
2.39.5