sub _initialize {
my ($self, $msg, $control_block) = @_;
- my ($fs, $fn, $fe);
+ my $fn;
my $proto = $control_block->{protocol}->{$protocol_version};
$self->{name} = $control_block->{name};
my ($lang, $trans_date, $summary) = @{$self->{fixed_fields}};
my $fields = $self->{fields};
my ($inst_id, $patron_id, $terminal_pwd, $patron_pwd, $start, $end);
- my ($resp, $patron, $count);
+ my ($resp, $patron);
$inst_id = $fields->{(FID_INST_ID)};
$patron_id = $fields->{(FID_PATRON_ID)};
};
my $start = clock_gettime( CLOCK_MONOTONIC );
my $select = IO::Select->new;
- my @worker_fhs;
my @cached_sets;
my @servers;
sub attributes_to_attr_string {
my ($attributes) = @_;
my $attr_string = '';
- my $value;
foreach my $key ( sort keys %{$attributes} ) {
next unless looks_like_number($key);
$attr_string .= ' @attr ' . $key . '=' . $attributes->{ $key } . ' ';
sub target_syntax {
my ($self, $server, $query_plan) = @_;
my $pqf = '';
- my @fields;
my $attributes = $query_plan->QueryParser->bib1_mapping_by_name('modifier', $self->name, $server);
$pqf = ($attributes->{'op'} ? $attributes->{'op'} . ' ' : '') . ($self->negate ? '@not @attr 1=_ALLRECORDS @attr 2=103 "" ' : '') . $attributes->{'attr_string'};
my ( $self, $value, $args, $config ) = @_;
$value ||= 0;
$config->{on_editing} //= 0;
- my $formatted_price;
return $config->{on_editing}
? Koha::Number::Price->new( $value )->format_for_editing
: Koha::Number::Price->new( $value )->format;
my $deliveryplace = $basket->{'deliveryplace'} || C4::Context->userenv->{"branch"};
# Build the combobox to select the billing place
- my @billingplaceloop;
my $branches = C4::Branch::GetBranchesLoop( $billingplace );
$template->param( billingplaceloop => $branches );
my $bookseller = Koha::Acquisition::Bookseller->fetch({ id => $details->{booksellerid} });
my @orders_loop = ();
my $orders = $details->{'orders'};
-my $qty_total;
my @foot_loop;
my %foot;
my $total_quantity = 0;
die "An error occurred fetching records: " . $sth->errstr;
}
my $subtotal = 0;
-my $toggle;
my @spent;
while ( my $data = $sth->fetchrow_hashref ) {
my $recv = $data->{'quantityreceived'};
my $borrower_id = $template->{VARS}->{'USER_INFO'}->{'borrowernumber'};
my $borrower_branchcode = $template->{VARS}->{'USER_INFO'}->{'branchcode'};
-my $periods;
my $authcat = $input->param('authcat');
my $show_active = $input->param('show_active');
my $show_actual = $input->param('show_actual');
my $budget_id = $input->param('budget_id');
my $op = $input->param("op");
-my $budget_branchcode;
-
my $budgets_ref = GetBudgetHierarchy( $budget_period_id, $show_mine?$template->{VARS}->{'USER_INFO'}->{'branchcode'}:'', $show_mine?$template->{VARS}->{'USER_INFO'}->{'borrowernumber'}:'' );
# build categories list
});
my @budgets = @$budgets_ref;
-my $CGISort;
my @authvals;
my %labels;
my %seen;
@buds = grep { !$seen{$_}++ } @buds;
@auth_values = grep { !$seen{$_}++ } @auth_values;
- my @budget_ids;
my @budget_lines;
foreach my $budget (@buds) {
my @kohafield = ''.$input->param('kohafield');
my @tab = $input->param('tab');
my @seealso = $input->param('seealso');
- my @hidden;
my @ohidden = $input->param('ohidden');
#my @ihidden = $input->param('ihidden');
#my @ehidden = $input->param('ehidden');
################## ADD_FORM ##################################
# called by default. Used to create form to add or modify a record
if ( $op eq 'add_form' ) {
- my $data;
my $sth =
$dbh->prepare(
"select tagfield,tagsubfield,liblibrarian as lib,tab from marc_subfield_structure where kohafield=? AND frameworkcode=''"
name => $branches->{$_}->{'branchname'} },
sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} }
keys %$branches;
-my (@branchfromloop, @cost, @errors);
+my (@branchfromloop, @errors);
foreach my $branchfrom ( @branchloop ) {
my $fromcode = $branchfrom->{code};
}
}
# COinS format FIXME: for books Only
- my $coins_format;
my $fmt = substr $record->leader(), 6,2;
my $fmts;
$fmts->{'am'} = 'book';
$template->param( frameworkcodeloop => \@frameworkcodeloop, );
# fill arrays
my @loop_data = ();
-my $tag;
# loop through each tab 0 through 9
for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) {
&& !C4::Context->IsSuperLibrarian()
&& C4::Context->userenv->{branch};
my $branches = GetBranches($onlymine);
- my @branchloop;
foreach my $thisbranch ( sort keys %$branches ) {
push @authorised_values, $thisbranch;
$authorised_lib{$thisbranch} = $branches->{$thisbranch}->{'branchname'};
$biblionumbertagsubfield,
$biblioitemnumtagfield,
$biblioitemnumtagsubfield,
- $bibitem,
$biblioitemnumber
);
my $confirm_not_duplicate = $input->param('confirm_not_duplicate');
# it is not a duplicate (determined either by Koha itself or by user checking it's not a duplicate)
if ( !$duplicatebiblionumber or $confirm_not_duplicate ) {
- my $oldbibnum;
my $oldbibitemnum;
if (C4::Context->preference("BiblioAddsAuthorities")){
BiblioAutoLink( $record, $frameworkcode );
my @marcfields = $marcrecord->field($field->{tag});
foreach my $marcfield (@marcfields) {
my $tag = $marcfield->tag();
- my %subfields;
if (scalar @{$field->{subfields}}) {
foreach my $subfield (@{$field->{subfields}}) {
my @values = $marcfield->subfield($subfield);
sub plugin {
my ($input) = @_;
- my %env;
# my $input = new CGI;
my $index= $input->param('index');
#tabs
$rq->execute;
my @BIGLOOP;
- my @innerloop;
- my (%numbers,%cells,@colhdr,@rowhdr,@multiplelines,@lists,$table);
+ my (%numbers,@lists,$table);
while (my $tab = $rq->fetchrow_hashref){
my $number=substr($tab->{authorised_value},0,1);
if ($tab->{authorised_value}=~/[0-9]XX/){
$startfrom = 0 if ( !defined $startfrom );
my ( $template, $loggedinuser, $cookie );
my $resultsperpage;
- my $searchdesc;
if ( $op eq "fillinput" ) {
my $biblionumber = $query->param('biblionumber');
$startfrom = 0 if ( !defined $startfrom );
my ( $template, $loggedinuser, $cookie );
my $resultsperpage;
- my $searchdesc;
if ( $op eq "fillinput" ) {
my $biblionumber = $query->param('biblionumber');
# collect the stack of books already transfered so they can printed...
my @trsfitemloop;
-my %transfereditems;
my $transfered;
my $barcode = $query->param('barcode');
# strip whitespace
}
);
-my $duedate;
-my $borrowernumber;
-my $itemnum;
-my $data1;
-my $data2;
-my $data3;
-my $name;
-my $phone;
-my $email;
-my $biblionumber;
-my $title;
-my $author;
-
my $today = dt_from_string;
$startdate =~ s/^\s+//;
$startdate =~ s/\s+$//;
my $cancelall = $input->param('cancelall');
my $tab = $input->param('tab');
-my $cancel;
-
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
{
template_name => "circ/waitingreserves.tt",
my $startfrom = $query->param('startfrom') || 1;
my ($template, $loggedinuser, $cookie) = (undef, undef, undef);
my (
- $total_hits, $orderby, $results, $total, $error,
+ $total_hits, $total, $error,
$marcresults, $idx, $datefrom, $dateto, $ccl_textbox
);
my $resultsperpage = C4::Context->preference('numSearchResults') || '20';
);
# build page nav stuff.
- my ( @field_data, @numbers );
+ my @numbers;
$total = $total_hits;
my ( $from, $to, $startfromnext, $startfromprev, $displaynext,
$data->{ "sex_".$data->{'sex'}."_p" } = 1 if defined $data->{sex};
-my $catcode;
if ( $category_type eq 'C') {
my ( $catcodes, $labels ) = GetborCatFromCatType( 'A', 'WHERE category_type = ?' );
my $cnt = scalar(@$catcodes);
my $roadtype = C4::Koha::GetAuthorisedValueByCode( 'ROADTYPE', $data->{streettype} );
my $today = DateTime->now( time_zone => C4::Context->tz);
$today->truncate(to => 'day');
-my @borrowers_with_issues;
my $overdues_exist = 0;
my $totalprice = 0;
$i2++;
}
}
- my $const;
if (defined $checkitem && $checkitem ne ''){
my $item = GetItem($checkitem);
use Koha::Holds;
my $dbh = C4::Context->dbh;
-my $sth;
my $input = new CGI;
my ( $template, $borrowernumber, $cookie, $flags ) = get_template_and_user(
{
if ($borrowernumber_hold && !$action) {
my $borrowerinfo = GetMember( borrowernumber => $borrowernumber_hold );
my $diffbranch;
- my @getreservloop;
# we check the reserves of the borrower, and if he can reserv a document
# FIXME At this time we have a simple count of reservs, but, later, we could improve the infos "title" ...
# adding a fixed value for priority options
my $fixedRank = $count+1;
- my @branchcodes;
my %itemnumbers_of_biblioitem;
my @itemnumbers;
);
}
-my $branchname;
my $branches_loop;
if ( !C4::Context->preference("IndependentBranches")
or C4::Context->IsSuperLibrarian()
my $dbh = C4::Context->dbh;
my $sub_length;
-my @budgets;
# Permission needed if it is a modification : edit_subscription
# Permission needed otherwise (nothing or dup) : create_subscription
sub insert_additional_fields {
my ( $additional_fields, $biblionumber, $subscriptionid ) = @_;
- my @additional_field_values;
my $record = GetMarcBiblio( $biblionumber, 1 );
for my $field ( @$additional_fields ) {
my $af = Koha::AdditionalField->new({ id => $field->{id} })->fetch;
use C4::Circulation;
my ($res,$ua);
-my %commands;
my $message;
-my $phone;
my $result;
my $errorcode;
my $smsid;