# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
-use strict;
-use warnings;
+use Modern::Perl;
+
use CGI qw ( -utf8 );
use Encode qw( encode );
use Koha::AuthorisedValues;
use Koha::Libraries;
+use Koha::Patrons;
use Koha::DateUtils qw( dt_from_string );
# Is the person allowed to choose their branch
if ( C4::Context->preference("AllowPurchaseSuggestionBranchChoice") ) {
- my ( $borr ) = GetMember( borrowernumber => $borrowernumber );
+ my $branchcode = $input->param('branchcode') || q{};
-# pass the pickup branch along....
- my $userbranch = '';
- if (C4::Context->userenv && C4::Context->userenv->{'branch'}) {
- $userbranch = C4::Context->userenv->{'branch'};
+ if ( !$branchcode
+ && C4::Context->userenv
+ && C4::Context->userenv->{branch} )
+ {
+ $branchcode = C4::Context->userenv->{branch};
}
- my $branchcode = $input->param('branchcode') || $borr->{'branchcode'} || $userbranch || '' ;
$template->param( branchcode => $branchcode );
}
-my $mandatoryfields = '';
+my @mandatoryfields;
{
last unless ($op eq 'add');
my $fldsreq_sp = C4::Context->preference("OPACSuggestionMandatoryFields") || 'title';
- $mandatoryfields = join(', ', (map { '"'.$_.'"'; } sort split(/\s*\,\s*/, $fldsreq_sp)));
+ @mandatoryfields = sort split(/\s*\,\s*/, $fldsreq_sp);
+ foreach (@mandatoryfields) {
+ $template->param( $_."_required" => 1);
+ }
}
$template->param(
messages => \@messages,
suggestionsview => 1,
suggested_by_anyone => $suggested_by_anyone,
- mandatoryfields => $mandatoryfields,
patrons_pending_suggestions_count => $patrons_pending_suggestions_count,
);
-output_html_with_http_headers $input, $cookie, $template->output;
+output_html_with_http_headers $input, $cookie, $template->output, undef, { force_no_caching => 1 };