[Koha-patches] [PATCH] (BUG #4857) aqplan.pl: consideration of Planning categories with authorised values
Alex Arnaud
alex.arnaud at biblibre.com
Wed Jun 9 11:07:49 CEST 2010
---
admin/aqplan.pl | 14 +++++++++++++-
.../prog/en/modules/admin/aqplan.tmpl | 1 +
2 files changed, 14 insertions(+), 1 deletions(-)
diff --git a/admin/aqplan.pl b/admin/aqplan.pl
index 0090208..302e21c 100755
--- a/admin/aqplan.pl
+++ b/admin/aqplan.pl
@@ -156,6 +156,7 @@ while ( my ($category) = $sth->fetchrow_array ) {
push( @category_list, 'MONTHS' );
push( @category_list, 'ITEMTYPES' );
push( @category_list, 'BRANCHES' );
+push( @category_list, $$_{'authcat'} ) foreach @$auth_cats_loop;
#reorder the list
@category_list = sort { $a cmp $b } @category_list;
@@ -177,7 +178,6 @@ my @authvals;
my %labels;
my @names = $input->param();
-
# ------------------------------------------------------------
if ( $op eq 'save' ) {
@@ -294,6 +294,18 @@ elsif ( $authcat eq 'ITEMTYPES' ) {
}
}
$sth->finish;
+} elsif ($authcat) {
+ my $query = qq{ SELECT * FROM authorised_values WHERE category=? order by lib };
+ my $sth = $dbh->prepare($query);
+ $sth->execute($authcat);
+ if ( $sth->rows > 0 ) {
+ for ( my $i = 0 ; $i < $sth->rows ; $i++ ) {
+ my $results = $sth->fetchrow_hashref;
+ push @authvals, $results->{authorised_value};
+ $labels{ $results->{authorised_value} } = $results->{lib};
+ }
+ }
+ $sth->finish;
}
my @authvals_row;
diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/aqplan.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/aqplan.tmpl
index 97e4aed..91bd6a7 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/aqplan.tmpl
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/aqplan.tmpl
@@ -103,6 +103,7 @@ YAHOO.util.Event.onAvailable("popmenu", function () {
<form method="post" id='Aform' name="Aform" action="/cgi-bin/koha/admin/aqplan.pl">
+<input type="hidden" id="budget_period_id" name="budget_period_id" value="<!-- TMPL_VAR NAME="budget_period_id" -->"/>
<fieldset style=" border:2px solid #EEEEEE; " >
<legend>Planning for <!-- TMPL_VAR NAME="budget_period_description" --> by <!-- TMPL_VAR NAME="authcat" --></legend>
<table class="invis" >
--
1.6.3.3
More information about the Koha-patches
mailing list