From 24fc9b1925f2b2bc044b1b5d5d4b24249c6dc636 Mon Sep 17 00:00:00 2001
From: hdl <hdl>
Date: Fri, 3 Feb 2006 16:31:54 +0000
Subject: [PATCH] Recent Acuiqisition page with branch selection. BEWARE !!!
 One CANNOT list ALL recent acquisitions in ALL branches. You MUST select One
 criterium (either branch or doctype) No Answer when choosing no criteria

---
 .../css/en/opac-recacquisitions.tmpl          | 33 ++++++++++
 opac/opac-recacquisitions.pl                  | 62 +++++++++++++++++++
 2 files changed, 95 insertions(+)
 create mode 100644 koha-tmpl/opac-tmpl/css/en/opac-recacquisitions.tmpl
 create mode 100644 opac/opac-recacquisitions.pl

diff --git a/koha-tmpl/opac-tmpl/css/en/opac-recacquisitions.tmpl b/koha-tmpl/opac-tmpl/css/en/opac-recacquisitions.tmpl
new file mode 100644
index 0000000000..e54d03db74
--- /dev/null
+++ b/koha-tmpl/opac-tmpl/css/en/opac-recacquisitions.tmpl
@@ -0,0 +1,33 @@
+    <!-- TMPL_INCLUDE NAME="opac-top.inc" -->
+<div id="mainbloc">
+
+<h1 class="catalogue">Recent Acquisitions</h1>
+
+<form name="f" method="post" action="/cgi-bin/koha/opac-search.pl">
+	
+	<div id="bloc60">
+			<!-- TMPL_VAR name="CGIbranch" --> 
+			<input type="hidden" name="marclist" value="items.homebranch" />
+			<input type="hidden" name="and_or" value="and" />
+			<input type="hidden" name="excluding" value="" />
+			<input type="hidden" name="operator" value="=" />
+			<input type="hidden" name="op" value="do_search" />
+			<input type="hidden" name="type" value="opac" />
+			<!-- TMPL_VAR name="CGIitemtype" --> 
+			<input type="hidden" name="marclist" value="biblioitems.itemtype" />
+			<input type="hidden" name="and_or" value="and" />
+			<input type="hidden" name="excluding" value="" />
+			<input type="hidden" name="operator" value="=" />
+			<input type="hidden" name="op" value="do_search" />
+			<input type="hidden" name="type" value="opac" />
+			acquired in the last
+			<input type="text" name="desc_or_asc" size="3" />
+			days
+			<input type="hidden" name="orderby" value="biblio.timestamp" />
+			<input type="submit" value="OK" class="button" />
+	</div>
+	
+</form>
+</form>
+</div>
+<!-- TMPL_INCLUDE NAME="opac-bottom.inc" -->
diff --git a/opac/opac-recacquisitions.pl b/opac/opac-recacquisitions.pl
new file mode 100644
index 0000000000..574b6e7e40
--- /dev/null
+++ b/opac/opac-recacquisitions.pl
@@ -0,0 +1,62 @@
+#!/usr/bin/perl
+use strict;
+require Exporter;
+use CGI;
+use HTML::Template;
+
+use C4::Auth;       # get_template_and_user
+use C4::Acquisition;       # get_template_and_user
+use C4::Interface::CGI::Output;
+use C4::Koha;
+
+my $input = new CGI;
+my $dbh = C4::Context->dbh;
+my $query="Select itemtype,description from itemtypes order by description";
+my $sth=$dbh->prepare($query);
+$sth->execute;
+my  @itemtype;
+my %itemtypes;
+while (my ($value,$lib) = $sth->fetchrow_array) {
+	push @itemtype, $value;
+	$itemtypes{$value}=$lib;
+}
+
+my $CGIitemtype=CGI::scrolling_list( -name     => 'value',
+			-values   => \@itemtype,
+			-labels   => \%itemtypes,
+			-size     => 1,
+			-multiple => 0 );
+$sth->finish;
+
+my @branches;
+my @select_branch;
+my %select_branches;
+my ($count2,@branches)=branches();
+push @select_branch, "";
+$select_branches{''} = "";
+for (my $i=0;$i<$count2;$i++){
+		push @select_branch, $branches[$i]->{'branchcode'};#
+		$select_branches{$branches[$i]->{'branchcode'}} = $branches[$i]->{'branchname'};
+}
+my $CGIbranch=CGI::scrolling_list( -name     => 'value',
+						-values   => \@select_branch,
+						-labels   => \%select_branches,
+						-size     => 1,
+						-multiple => 0 );
+$sth->finish;
+
+
+my ($template, $borrowernumber, $cookie)
+    = get_template_and_user({template_name => "opac-recacquisitions.tmpl",
+			     type => "opac",
+			     query => $input,
+			     authnotrequired => 1,
+			     flagsrequired => {borrow => 1},
+			 });
+my $borrower = getmember('',$borrowernumber);
+my @options;
+my $counter=0;
+$template->param(CGIitemtype => $CGIitemtype,
+				CGIbranch=>$CGIbranch
+);
+output_html_with_http_headers $input, $cookie, $template->output;