@@ -, +, @@ --- admin/aqbudgets.pl | 6 +++++- admin/aqcontract.pl | 32 ++++++++++++++++++++++---------- admin/auth_tag_structure.pl | 17 ++++++++--------- admin/branches.pl | 8 +++----- admin/smart-rules.pl | 13 ++++++------- 5 files changed, 44 insertions(+), 32 deletions(-) --- a/admin/aqbudgets.pl +++ a/admin/aqbudgets.pl @@ -323,7 +323,11 @@ if ($op eq 'add_form') { ); } - my $budget_period_total = $num->format_price($$period{budget_period_total}) if $$period{budget_period_total}; + my $budget_period_total; + if ( $period->{budget_period_total} ) { + $budget_period_total = + $num->format_price( $period->{budget_period_total} ); + } $template->param( else => 1, budget => \@loop, --- a/admin/aqcontract.pl +++ a/admin/aqcontract.pl @@ -59,17 +59,29 @@ $template->param( if ( $op eq 'add_form' ) { $template->param( add_form => 1 ); - # if contractnumber exists, it's a modify action, so read values to modify... - my $contract = @{GetContract( { contractnumber => $contractnumber } )}[0] if $contractnumber; - - $template->param( - contractnumber => $$contract{contractnumber}, - contractname => $$contract{contractname}, - contractdescription => $$contract{contractdescription}, - contractstartdate => format_date( $$contract{contractstartdate} ), - contractenddate => format_date( $$contract{contractenddate} ), - DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar, - ); + # if contractnumber exists, it's a modify action, so read values to modify... + if ($contractnumber) { + my $contract = + @{ GetContract( { contractnumber => $contractnumber } ) }[0]; + + $template->param( + contractnumber => $contract->{contractnumber}, + contractname => $contract->{contractname}, + contractdescription => $contract->{contractdescription}, + contractstartdate => format_date( $contract->{contractstartdate} ), + contractenddate => format_date( $contract->{contractenddate} ), + DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar, + ); + } else { + $template->param( + contractnumber => undef, + contractname => undef, + contractdescription => undef, + contractstartdate => undef, + contractenddate => undef, + DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar, + ); + } # END $OP eq ADD_FORM } --- a/admin/auth_tag_structure.pl +++ a/admin/auth_tag_structure.pl @@ -55,15 +55,14 @@ my ($template, $loggedinuser, $cookie) }); # get authtype list -my $authtypes = getauthtypes; -my @authtypesloop; -foreach my $thisauthtype (keys %$authtypes) { - my $selected = 1 if $thisauthtype eq $authtypecode; - my %row =(value => $thisauthtype, - selected => $selected, - authtypetext => $authtypes->{$thisauthtype}->{'authtypetext'}, - ); - push @authtypesloop, \%row; +my $authtypes = getauthtypes; +my @authtypesloop = (); +foreach my $thisauthtype ( keys %{$authtypes} ) { + push @authtypesloop, + { value => $thisauthtype, + selected => $thisauthtype eq $authtypecode, + authtypetext => $authtypes->{$thisauthtype}->{'authtypetext'}, + }; } my $sth; --- a/admin/branches.pl +++ a/admin/branches.pl @@ -189,12 +189,10 @@ elsif ( $op eq 'addcategory_validate' ) { elsif ( $op eq 'delete_category' ) { # if the user has pressed the "delete branch" button. - my $message = "MESSAGE8" if CheckBranchCategorycode($categorycode); - if ($message) { + if ( CheckBranchCategorycode($categorycode) ) { $template->param( else => 1 ); - default($message,$template); - } - else { + default( 'MESSAGE8', $template ); + } else { $template->param( delete_category => 1 ); $template->param( categorycode => $categorycode ); } --- a/admin/smart-rules.pl +++ a/admin/smart-rules.pl @@ -339,12 +339,11 @@ elsif ($op eq "add-branch-item") { my $branches = GetBranches(); my @branchloop; for my $thisbranch (sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} } keys %$branches) { - my $selected = 1 if $thisbranch eq $branch; - my %row =(value => $thisbranch, - selected => $selected, - branchname => $branches->{$thisbranch}->{'branchname'}, - ); - push @branchloop, \%row; + push @branchloop, { + value => $thisbranch, + selected => $thisbranch eq $branch, + branchname => $branches->{$thisbranch}->{'branchname'}, + }; } my $sth=$dbh->prepare("SELECT description,categorycode FROM categories ORDER BY description"); @@ -426,7 +425,7 @@ foreach my $entry (@sorted_branch_cat_rules, @sorted_row_loop) { $entry->{unlimited_maxissueqty} = 1 unless defined($entry->{maxissueqty}); } -my @sorted_row_loop = sort by_category_and_itemtype @row_loop; +@sorted_row_loop = sort by_category_and_itemtype @row_loop; my $sth_branch_item; if ($branch eq "*") { --