Lines 50-59
BEGIN {
Link Here
|
50 |
&AddBudgetPeriod |
50 |
&AddBudgetPeriod |
51 |
&DelBudgetPeriod |
51 |
&DelBudgetPeriod |
52 |
|
52 |
|
53 |
&GetBudgetPeriodsDropbox |
|
|
54 |
&GetBudgetSortDropbox |
55 |
&GetAuthvalueDropbox |
53 |
&GetAuthvalueDropbox |
56 |
&GetBudgetPermDropbox |
|
|
57 |
|
54 |
|
58 |
&ModBudgetPlan |
55 |
&ModBudgetPlan |
59 |
|
56 |
|
Lines 335-358
sub GetBudgetOrdered {
Link Here
|
335 |
} |
332 |
} |
336 |
|
333 |
|
337 |
# ------------------------------------------------------------------- |
334 |
# ------------------------------------------------------------------- |
338 |
sub GetBudgetPermDropbox { |
|
|
339 |
my ($perm) = @_; |
340 |
my %labels; |
341 |
$labels{'0'} = 'None'; |
342 |
$labels{'1'} = 'Owner'; |
343 |
$labels{'2'} = 'Library'; |
344 |
my $radio = CGI::scrolling_list( |
345 |
-id => 'budget_permission', |
346 |
-name => 'budget_permission', |
347 |
-values => [ '0', '1', '2' ], |
348 |
-default => $perm, |
349 |
-labels => \%labels, |
350 |
-size => 1, |
351 |
); |
352 |
return $radio; |
353 |
} |
354 |
|
355 |
# ------------------------------------------------------------------- |
356 |
sub GetBudgetAuthCats { |
335 |
sub GetBudgetAuthCats { |
357 |
my ($budget_period_id) = shift; |
336 |
my ($budget_period_id) = shift; |
358 |
# now, populate the auth_cats_loop used in the budget planning button |
337 |
# now, populate the auth_cats_loop used in the budget planning button |
Lines 374-434
sub GetBudgetAuthCats {
Link Here
|
374 |
|
353 |
|
375 |
# ------------------------------------------------------------------- |
354 |
# ------------------------------------------------------------------- |
376 |
sub GetAuthvalueDropbox { |
355 |
sub GetAuthvalueDropbox { |
377 |
my ( $name, $authcat, $default ) = @_; |
356 |
my ( $authcat, $default ) = @_; |
378 |
my @authorised_values; |
357 |
my $dbh = C4::Context->dbh; |
379 |
my %authorised_lib; |
358 |
my $sth = $dbh->prepare( |
380 |
my $value; |
359 |
'SELECT authorised_value,lib FROM authorised_values |
381 |
my $dbh = C4::Context->dbh; |
360 |
WHERE category = ? ORDER BY lib' |
382 |
my $sth = $dbh->prepare( |
|
|
383 |
"SELECT authorised_value,lib |
384 |
FROM authorised_values |
385 |
WHERE category = ? |
386 |
ORDER BY lib" |
387 |
); |
388 |
$sth->execute( $authcat ); |
389 |
|
390 |
push @authorised_values, ''; |
391 |
while (my ($value, $lib) = $sth->fetchrow_array) { |
392 |
push @authorised_values, $value; |
393 |
$authorised_lib{$value} = $lib; |
394 |
} |
395 |
|
396 |
return 0 if keys(%authorised_lib) == 0; |
397 |
|
398 |
my $budget_authvalue_dropbox = CGI::scrolling_list( |
399 |
-values => \@authorised_values, |
400 |
-labels => \%authorised_lib, |
401 |
-default => $default, |
402 |
-override => 1, |
403 |
-size => 1, |
404 |
-multiple => 0, |
405 |
-name => $name, |
406 |
-id => $name, |
407 |
); |
361 |
); |
|
|
362 |
$sth->execute( $authcat ); |
363 |
my $option_list = []; |
364 |
my @authorised_values = ( q{} ); |
365 |
while (my ($value, $lib) = $sth->fetchrow_array) { |
366 |
push @{$option_list}, { |
367 |
value => $value, |
368 |
label => $lib, |
369 |
default => ($default eq $value), |
370 |
}; |
371 |
} |
408 |
|
372 |
|
409 |
return $budget_authvalue_dropbox |
373 |
if ( @{$option_list} ) { |
410 |
} |
374 |
return $option_list; |
411 |
|
375 |
} |
412 |
# ------------------------------------------------------------------- |
376 |
return; |
413 |
sub GetBudgetPeriodsDropbox { |
|
|
414 |
my ($budget_period_id) = @_; |
415 |
my %labels; |
416 |
my @values; |
417 |
my ($active, $periods) = GetBudgetPeriods(); |
418 |
foreach my $r (@$periods) { |
419 |
$labels{"$r->{budget_period_id}"} = $r->{budget_period_description}; |
420 |
push @values, $r->{budget_period_id}; |
421 |
} |
422 |
|
423 |
# if no buget_id is passed then its an add |
424 |
my $budget_period_dropbox = CGI::scrolling_list( |
425 |
-name => 'budget_period_id', |
426 |
-values => \@values, |
427 |
-default => $budget_period_id ? $budget_period_id : $active, |
428 |
-size => 1, |
429 |
-labels => \%labels, |
430 |
); |
431 |
return $budget_period_dropbox; |
432 |
} |
377 |
} |
433 |
|
378 |
|
434 |
# ------------------------------------------------------------------- |
379 |
# ------------------------------------------------------------------- |