[Koha-cvs] koha koha-tmpl/opac-tmpl/css/en/opac-recacquisi... [rel_2_2]

[Henri-Damien LAURENT]

CVSROOT:	/cvsroot/koha
Module name:	koha
Branch: 	rel_2_2
Changes by:	Henri-Damien LAURENT <hdl at savannah.gnu.org>	06/02/03 16:31:54

Added files:
	koha-tmpl/opac-tmpl/css/en: opac-recacquisitions.tmpl 
	opac           : opac-recacquisitions.pl 

Log message:
	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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/koha-tmpl/opac-tmpl/css/en/opac-recacquisitions.tmpl?only_with_tag=rel_2_2&rev=1.1.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha/opac/opac-recacquisitions.pl?only_with_tag=rel_2_2&rev=1.1.2.1

Patches:
Index: koha/koha-tmpl/opac-tmpl/css/en/opac-recacquisitions.tmpl
diff -u /dev/null koha/koha-tmpl/opac-tmpl/css/en/opac-recacquisitions.tmpl:1.1.2.1
--- /dev/null	Fri Feb  3 16:31:54 2006
+++ koha/koha-tmpl/opac-tmpl/css/en/opac-recacquisitions.tmpl	Fri Feb  3 16:31:54 2006
@@ -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" -->
Index: koha/opac/opac-recacquisitions.pl
diff -u /dev/null koha/opac/opac-recacquisitions.pl:1.1.2.1
--- /dev/null	Fri Feb  3 16:31:54 2006
+++ koha/opac/opac-recacquisitions.pl	Fri Feb  3 16:31:54 2006
@@ -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, at 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;