|
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 |
# ------------------------------------------------------------------- |