query => $query,
type => "intranet",
flagsrequired => { catalogue => 1 },
- debug => 1,
}
);
query => $query,
type => 'intranet',
flagsrequired => { acquisition => '*' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { acquisition => 'order_manage' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { acquisition => 'order_manage' },
- debug => 1,
});
my $cgiparams = $input->Vars;
query => $query,
type => "intranet",
flagsrequired => { acquisition => 'order_manage' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => {acquisition => 'group_manage'},
- debug => 1,
});
sub BasketTotal {
query => $input,
type => "intranet",
flagsrequired => { acquisition => 'order_manage' },
- debug => 1,
}
);
query => $query,
type => 'intranet',
flagsrequired => { acquisition => '*' },
- debug => 1,
}
);
query => $input,
type => 'intranet',
flagsrequired => { 'acquisition' => 'order_manage' },
- debug => 1,
} );
my $action = $input->param('action');
{ template_name => "acqui/ajax.tt",
query => $input,
type => "intranet",
- debug => 1, } );
+} );
my $budget = GetBudget($budget_id);
query => $query,
type => 'intranet',
flagsrequired => { acquisition => 'order_manage' },
- debug => 1,
}
);
$template->param( eans => \@eans );
query => $q,
type => 'intranet',
flagsrequired => { acquisition => 'edi_manage' },
- debug => 1,
}
);
query => $q,
type => 'intranet',
flagsrequired => { acquisition => 'edi_manage' },
- debug => 1,
}
);
my $msg_id = $q->param('id');
query => $input,
type => "intranet",
flagsrequired => { acquisition => '*' },
- debug => 1,
}
);
query => $input,
type => 'intranet',
flagsrequired => { 'acquisition' => '*' },
- debug => 1,
}
);
query => $input,
type => 'intranet',
flagsrequired => { 'acquisition' => '*' },
- debug => 1,
}
);
query => $input,
type => 'intranet',
flagsrequired => { 'acquisition' => '*' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { acquisition => 'order_receive' },
- debug => 1,
}
);
query => $input,
type => 'intranet',
flagsrequired => { 'acquisition' => '*' },
- debug => 1,
} );
my $op = $input->param('op');
query => $input,
type => "intranet",
flagsrequired => { acquisition => 'order_manage' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { acquisition => 'order_manage' },
-# debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { acquisition => '*' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => {acquisition => 'order_receive'},
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => {acquisition => 'order_receive'},
- debug => 1,
});
my $op = $input->param('op') // '';
query => $input,
type => 'intranet',
flagsrequired => { acquisition => 'order_receive' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { acquisition => '*' },
- debug => 1,
}
);
query => $query,
type => 'intranet',
flagsrequired => { acquisition => '*' },
- debug => 1,
}
);
my $booksellerid = $query->param('booksellerid');
query => $input,
type => "intranet",
flagsrequired => { acquisition => 'order_manage' },
- debug => 1,
});
my $booksellerid = $input->param('booksellerid');
query => $input,
type => "intranet",
flagsrequired => \%flagsrequired,
- debug => 1,
}
);
query => $query,
type => "intranet",
flagsrequired => { parameters => '*' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { parameters => 'manage_keyboard_shortcuts' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { acquisition => 'period_manage' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { acquisition => 'budget_manage' },
- debug => 0,
}
);
query => $input,
type => "intranet",
flagsrequired => { acquisition => 'contracts_manage' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { acquisition => 'planning_manage' },
- debug => 0,
}
);
query => $cgi,
type => "intranet",
flagsrequired => { parameters => 'manage_audio_alerts' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { parameters => 'manage_marc_frameworks' },
- debug => 1,
}
);
my $pagesize = 30;
query => $input,
type => "intranet",
flagsrequired => {parameters => 'manage_marc_frameworks'},
- debug => 1,
});
my $authority_types = Koha::Authority::Types->search( {}, { order_by => ['authtypecode'] } );
flagsrequired => {parameters => 'manage_auth_values'},
query => $input,
type => "intranet",
- debug => 1,
});
################## ADD_FORM ##################################
query => $input,
type => "intranet",
flagsrequired => { parameters => 'manage_marc_frameworks' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => $flags_required,
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { parameters => 'manage_marc_frameworks' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => {parameters => 'manage_transfers'},
- debug => 1,
});
my $dbh = C4::Context->dbh;
query => $input,
type => "intranet",
flagsrequired => { parameters => 'manage_libraries' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { parameters => 'manage_patron_categories' },
- debug => 1,
}
);
{ template_name => "acqui/ajax.tt",
query => $input,
type => "intranet",
- debug => 0,
}
);
{ template_name => "acqui/ajax.tt",
query => $input,
type => "intranet",
- debug => 0,
}
);
my ($period, $parent , $budget);
query => $input,
type => "intranet",
flagsrequired => { parameters => 'manage_marc_frameworks' },
- debug => 1,
});
my $dbh = C4::Context->dbh;
query => $input,
type => "intranet",
flagsrequired => { parameters => 'manage_cities' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { parameters => 'manage_classifications' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => {parameters => 'manage_circ_rules'},
- debug => 1,
});
my $frombranch = $input->param("frombranch");
query => $input,
type => "intranet",
flagsrequired => { parameters => 'manage_column_config' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { parameters => 'manage_accounts' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { parameters => 'manage_accounts' },
- debug => 1,
}
);
type => "intranet",
authnotrequired => 0,
flagsrequired => { parameters => 'manage_libraries' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => {parameters => 'manage_didyoumean'},
- debug => 1,
});
my $opacplugins = from_json(C4::Context->preference('OPACdidyoumean') || '[]');
query => $input,
type => "intranet",
flagsrequired => { parameters => 'manage_itemtypes' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { parameters => 'manage_marc_frameworks' },
- debug => 1,
}
);
query => $cgi,
type => "intranet",
flagsrequired => { parameters => 'manage_libraries' },
- debug => 1,
}
);
flagsrequired => { parameters => 'manage_itemtypes' },
query => $query,
type => "intranet",
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { parameters => 'manage_marc_frameworks' },
- debug => 1,
}
);
my $cache = Koha::Caches->get_instance();
query => $input,
type => "intranet",
flagsrequired => { parameters => 'manage_marc_frameworks' },
- debug => 1,
});
my $frameworks = Koha::BiblioFrameworks->search({}, { order_by => ['frameworktext'] });
query => $input,
type => "intranet",
flagsrequired => { parameters => 'manage_matching_rules' },
- debug => 1,
});
$template->param(script_name => $script_name);
query => $input,
type => 'intranet',
flagsrequired => { 'parameters' => 'manage_oai_sets' },
- debug => 1,
} );
my $id = $input->param('id');
query => $input,
type => 'intranet',
flagsrequired => { 'parameters' => 'manage_oai_sets' },
- debug => 1,
} );
my $op = $input->param('op');
query => $input,
type => "intranet",
flagsrequired => { parameters => 'manage_sysprefs' },
- debug => 1,
}
);
query => $query,
type => "intranet",
flagsrequired => { parameters => 'manage_mana' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => {parameters => 'manage_circ_rules'},
- debug => 1,
});
my $type=$input->param('type');
query => $cgi,
type => "intranet",
flagsrequired => { parameters => 'manage_sms_providers' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { parameters => 'manage_sysprefs' },
- debug => 1,
}
);
my $pagesize = 100;
query => $input,
type => "intranet",
flagsrequired => { parameters => 'manage_transfers' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { parameters => 'manage_transfers' },
- debug => 1,
});
my $use_transport_cost_matrix = C4::Context->preference("UseTransportCostMatrix");
query => $query,
type => "intranet",
flagsrequired => { parameters => 'manage_usage_stats' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { parameters => 'manage_search_targets' },
- debug => 1,
});
my $script_name = "/cgi-bin/koha/admin/z3950servers.pl";
$template->param( script_name => $script_name );
query => $query,
type => 'intranet',
flagsrequired => { catalogue => 1 },
- debug => 1,
}
);
query => $query,
type => 'intranet',
flagsrequired => { catalogue => 1 },
- debug => 1,
}
);
query => $query,
type => 'intranet',
flagsrequired => { catalogue => 1 },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => {editauthorities => 1},
- debug => 1,
});
$template->param(nonav => $nonav,index=>$myindex,authtypecode=>$authtypecode,breedingid=>$breedingid);
query => $query,
type => "intranet",
flagsrequired => { catalogue => 1 },
- debug => 1,
}
);
query => $query,
type => "intranet",
flagsrequired => { catalogue => 1 },
- debug => 1,
}
);
query => $query,
type => "intranet",
flagsrequired => { catalogue => 1 },
- debug => 1,
}
);
query => $query,
type => "intranet",
flagsrequired => { catalogue => 1 },
- debug => 1,
}
);
query => $query,
type => "intranet",
flagsrequired => { catalogue => 1 },
- debug => 1,
});
my $op=$query->param("op");
query => $query,
type => "intranet",
flagsrequired => { catalogue => 1 },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { catalogue => 1 },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { editcatalogue => '*' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => $userflags},
- debug => 1,
});
query => $query,
type => "intranet",
flagsrequired => { editcatalogue => 'edit_catalogue' },
- debug => 1,
}
);
query => $query,
type => "intranet",
flagsrequired => { editcatalogue => 'edit_items' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $BASE_CALLNUMBER_RE = qr/^(\w+) (\w+)$/;
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $dbh = C4::Context->dbh;
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
$template->param(BIGLOOP=>\@BIGLOOP);
$template->param("index"=>$index);
query => $input,
type => "intranet",
flagsrequired => { editcatalogue => '*' },
- debug => 1,
}
);
$result = "a|||||r|||| 00| 0 " unless $result;
query => $input,
type => "intranet",
flagsrequired => { editcatalogue => '*' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { editcatalogue => '*' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $dateentered = date_entered();
$result = "$dateentered$defaultval" unless $result;
query => $input,
type => "intranet",
flagsrequired => { editcatalogue => '*' },
- debug => 1,
});
my $dateentered = date_entered();
$result = "$dateentered$defaultval" unless $result;
query => $input,
type => "intranet",
flagsrequired => { editcatalogue => '*' },
- debug => 1,
}
);
$result = " nam a22 7a 4500" unless $result;
query => $input,
type => "intranet",
flagsrequired => { editcatalogue => '*' },
- debug => 1,
}
);
$result = " nz a22 n 4500" unless $result;
query => $query,
type => "intranet",
flagsrequired => { editcatalogue => '*' },
- debug => 1,
}
);
{ template_name => "cataloguing/value_builder/marc21_linking_section.tt",
query => $query,
type => 'intranet',
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => 1},
- debug => 1,
});
$result = "ta" unless $result;
my $f0 = substr($result,0,1);
query => $input,
type => "intranet",
flagsrequired => { editcatalogue => 1 },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => 1},
- debug => 1,
});
$result = " nam a22 1 4500" unless $result;
my $f5 = substr($result,5,1);
query => $input,
type => "intranet",
flagsrequired => { editcatalogue => '*' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $dbh = C4::Context->dbh;
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
query => $input,
type => "intranet",
flagsrequired => { editcatalogue => '*' },
- debug => 1,
}
);
$result = " d u y0".$defaultlanguage."y50 ba" unless $result;
query => $input,
type => "intranet",
flagsrequired => { editcatalogue => '*' },
- debug => 1,
}
);
$result = " a".$defaultlanguage."y50 ba0" unless $result;
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,1); $f1 = wrapper( $f1 ) if $f1;
my $f2 = substr($result,1,1); $f2 = wrapper( $f2 ) if $f2;
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,1);
$template->param(index => $index,
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,1); $f1 = wrapper( $f1 ) if $f1;
my $f2 = substr($result,1,1); $f2 = wrapper( $f2 ) if $f2;
query => $input,
type => "intranet",
flagsrequired => { editcatalogue => '*' },
- debug => 1,
}
);
my $f1 = substr( $result, 0, 1 ); $f1 = wrapper( $f1 ) if $f1;
query => $input,
type => "intranet",
flagsrequired => { editcatalogue => '*' },
- debug => 1,
}
);
my $f1 = substr( $result, 0, 1 ); $f1 = wrapper( $f1 ) if $f1;
query => $input,
type => "intranet",
flagsrequired => { editcatalogue => '*' },
- debug => 1,
}
);
my $f1 = substr( $result, 0, 1 ); $f1 = wrapper( $f1 ) if $f1;
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,2); $f1 = wrapper( $f1 ) if $f1;
my $f2 = substr($result,2,2); $f2 = wrapper( $f2 ) if $f2;
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,1);
my $f2 = substr($result,1,1);
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,1);
my $f2 = substr($result,1,1); $f2 = wrapper( $f2 ) if $f2;
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,1);
my $f2 = substr($result,1,1);
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,1);
my $f2 = substr($result,1,4);
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,1);
$template->param(index => $index,
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,1);
my $f2 = substr($result,1,3);
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,1);
my $f2 = substr($result,1,3);
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,1);
my $f2 = substr($result,1,3);
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,1);
my $f2 = substr($result,1,3);
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,1);
my $f2 = substr($result,1,3);
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
}
);
my $f1 = substr($result,0,1);
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,8);
my $f2 = substr($result,8,1);
query => $input,
type => "intranet",
flagsrequired => { editcatalogue => '*' },
- debug => 1,
}
);
my $f1 = substr($result,0,1);
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,1);
$template->param(index => $index,
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,1);
$template->param(index => $index,
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,1);
$template->param(index => $index,
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,1);
$template->param(index => $index,
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,2);
$template->param(index => $index,
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,2);
$template->param(index => $index,
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,8);
my $f2 = substr($result,8,1);
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,1);
my $f2 = substr($result,1,1);
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,1); $f1 = wrapper( $f1 ) if $f1;
$template->param(index => $index,
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,8);
my $f2 = substr($result,8,1);
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,1);
my $f2 = substr($result,1,1);
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,1);
my $f2 = substr($result,1,1);
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,2);
my $f2 = substr($result,2,2);
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,2);
$template->param(index => $index,
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,2); $f1 = wrapper( $f1 ) if $f1;
$template->param(index => $index,
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,2);
$template->param(index => $index,
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,1);
my $f2 = substr($result,1,1);
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,1); $f1 = wrapper( $f1 ) if $f1;
my $f2 = substr($result,1,1);
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,1); $f1 = wrapper( $f1 ) if $f1;
my $f2 = substr($result,1,1); $f2 = wrapper( $f2 ) if $f2;
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,1);
my $f2 = substr($result,1,1);
query => $query,
type => 'intranet',
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
# Results displayed in current page
query => $query,
type => 'intranet',
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
$template->param(index => $index,
query => $input,
type => "intranet",
flagsrequired => { editcatalogue => '*' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { editcatalogue => '*' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { editcatalogue => '*' },
- debug => 1,
});
$template->param(index => $index);
query => $query,
type => "intranet",
flagsrequired => { editcatalogue => '*' },
- debug => 1,
}
);
"cataloguing/value_builder/unimarc_field_4XX.tt",
query => $query,
type => 'intranet',
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { editcatalogue => '*' },
- debug => 1,
}
);
$template->param(index => $index,
query => $input,
type => "intranet",
flagsrequired => { editcatalogue => '*' },
- debug => 1,
}
);
$template->param(index => $index,
query => $input,
type => "intranet",
flagsrequired => { editcatalogue => '*' },
- debug => 1,
}
);
$result = " nam 3 " unless $result;
query => $input,
type => "intranet",
flagsrequired => { borrowers => 'edit_borrowers' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { circulate => "circulate_remaining_permissions" },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { circulate => "circulate_remaining_permissions" },
- debug => 1,
});
my $default = C4::Context->userenv->{'branch'};
query => $input,
type => "intranet",
flagsrequired => { borrowers => 'edit_borrowers' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { circulate => "overdues_report" },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { circulate => "circulate_remaining_permissions" },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { circulate => "circulate_remaining_permissions" },
- debug => 1,
}
);
template_name => "circ/set-library.tt",
query => $query,
type => "intranet",
- debug => 1,
flagsrequired => { catalogue => 1, },
});
query => $input,
type => "intranet",
flagsrequired => { circulate => "circulate_remaining_permissions" },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { circulate => "circulate_remaining_permissions" },
- debug => 1,
}
);
query => $query,
type => "intranet",
flagsrequired => { circulate => "circulate_remaining_permissions" },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { circulate => "circulate_remaining_permissions" },
- debug => 1,
}
);
query => $query,
type => 'intranet',
authnotrequired => 1,
- debug => 1,
}
);
$template->param (
query => $query,
type => 'intranet',
authnotrequired => 1,
- debug => 1,
}
);
$template->param (
query => $query,
type => 'intranet',
authnotrequired => 1,
- debug => 1,
}
);
$template->param (
query => $query,
type => 'intranet',
authnotrequired => 1,
- debug => 1,
}
);
$template->param (
query => $query,
type => 'intranet',
authnotrequired => 1,
- debug => 1,
}
);
$template->param (
query => $query,
type => 'intranet',
authnotrequired => 1,
- debug => 1,
}
);
$template->param (
template_name => "installer/step" . ( $step ? $step : 1 ) . ".tt",
query => $query,
type => "intranet",
- debug => 1,
}
);
template_name => "onboarding/onboardingstep${step}.tt",
query => $input,
type => "intranet",
- debug => 1,
}
);
query => $cgi,
type => "intranet",
flagsrequired => { tools => 'label_creator' },
- debug => 1,
});
my $batch_id;
query => $cgi,
type => "intranet",
flagsrequired => { catalogue => 1 },
- debug => 1,
}
);
query => $cgi,
type => "intranet",
flagsrequired => { catalogue => 1 },
- debug => 1,
}
);
query => $cgi,
type => "intranet",
flagsrequired => { catalogue => 1 },
- debug => 1,
}
);
query => $cgi,
type => "intranet",
flagsrequired => { catalogue => 1 },
- debug => 1,
}
);
query => $cgi,
type => "intranet",
flagsrequired => { catalogue => 1 },
- debug => 1,
}
);
query => $cgi,
type => "intranet",
flagsrequired => { catalogue => 1 },
- debug => 1,
}
);
type => "intranet",
flagsrequired => { borrowers => 'edit_borrowers' },
flagsrequired => { catalogue => 1 },
- debug => 1,
}
);
query => $query,
type => "intranet",
flagsrequired => { catalogue => 1 },
- debug => 1,
}
);
my $itemtypes = Koha::ItemTypes->search;
query => $cgi,
type => "intranet",
flagsrequired => { catalogue => 1 },
- debug => 1,
}
);
query => $cgi,
type => "intranet",
flagsrequired => { catalogue => 1 },
- debug => 1,
}
);
query => $query,
type => "intranet",
flagsrequired => { catalogue => 1 },
- debug => 1,
}
);
query => $query,
type => "intranet",
flagsrequired => { catalogue => 1 },
- debug => 1,
}
);
type => "intranet",
flagsrequired => { borrowers => 'edit_borrowers',
updatecharges => 'remaining_permissions'},
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { borrowers => 'delete_borrowers' },
- debug => 1,
}
);
query => $cgi,
type => "intranet",
flagsrequired => { borrowers => 'edit_borrowers' },
- debug => 1,
}
);
$template->param( 'borrower_files' => 1 );
query => $input,
type => "intranet",
flagsrequired => {borrowers => 'edit_borrowers'},
- debug => 1,
});
my $patron;
query => $input,
type => "intranet",
flagsrequired => { borrowers => 'edit_borrowers' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => $flagsrequired,
- debug => 1,
});
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
query => $input,
type => "intranet",
flagsrequired => { borrowers => 'edit_borrowers' },
- debug => 1,
}
);
query => $query,
type => "intranet",
flagsrequired => {borrowers => 'edit_borrowers'},
- debug => 1,
});
my $no_add = 0;
query => $query,
type => "intranet",
flagsrequired => { borrowers => 'edit_borrowers' },
- debug => 1,
}
);
query => $query,
type => "intranet",
flagsrequired => { borrowers => 'edit_borrowers' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { borrowers => 'edit_borrowers' },
- debug => 1,
}
);
my $borrowernumber = $input->param('borrowernumber');
query => $input,
type => "intranet",
flagsrequired => {borrowers => 'edit_borrowers'},
- debug => 1,
});
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
query => $input,
type => 'intranet',
flagsrequired => { borrowers => 'edit_borrowers', updatecharges => $updatecharges_permissions },
- debug => 1,
}
);
query => $input,
type => 'intranet',
flagsrequired => { borrowers => 'edit_borrowers', updatecharges => $updatecharges_permissions },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => $flagsrequired,
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => $flagsrequired,
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { suggestions => 'suggestions_manage' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => {borrowers => 'edit_borrowers'},
- debug => 1,
});
my $op = $input->param('op') || '';
query => $input,
type => "intranet",
flagsrequired => { borrowers => 'edit_borrowers' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { circulate => "circulate_remaining_permissions" },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { borrowers => 'edit_borrowers' },
- debug => 1,
}
);
url => 'http://koha-dev:8080/cgi-bin/koha/svc',
user => 'svc-user',
password => 'svc-password',
- debug => 0,
);
URL must point to Koha's B<intranet> address and port.
query => $query,
type => "opac",
authnotrequired => 1,
- debug => 1,
}
);
$template->param (
query => $query,
type => "opac",
authnotrequired => 1,
- debug => 1,
}
);
$template->param (
query => $query,
type => "opac",
authnotrequired => 1,
- debug => 1,
}
);
$template->param (
query => $query,
type => "opac",
authnotrequired => 1,
- debug => 1,
}
);
$template->param (
query => $query,
type => "opac",
authnotrequired => 1,
- debug => 1,
}
);
$template->param (
query => $query,
type => "opac",
authnotrequired => 1,
- debug => 1,
}
);
$template->param (
query => $cgi,
type => "opac",
authnotrequired => 1,
- debug => 1,
}
);
output_html_with_http_headers $cgi, $cookie, $template->output;
query => $cgi,
type => "opac",
authnotrequired => 1,
- debug => 1,
}
);
$template->param( scalar $cgi->param('verb') => 1 );
query => $query,
type => "opac",
authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
- debug => 1,
}
);
query => $query,
type => "opac",
authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
- debug => 1,
}
);
template_name => "opac-account-pay-error.tt",
query => $cgi,
type => "opac",
- debug => 1,
}
);
template_name => "opac-account.tt",
query => $query,
type => "opac",
- debug => 1,
}
);
type => "opac",
authnotrequired => 0, # user must logged in to request
# subscription notifications
- debug => 1,
}
);
template_name => "opac-account.tt",
query => $query,
type => "opac",
- debug => 1,
}
);
query => $query,
type => 'opac',
authnotrequired => 1,
- debug => 1,
}
);
$template->param( search_query => $search_query ) if C4::Context->preference('DumpSearchQueryTemplate');
query => $query,
type => 'opac',
authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
- debug => 1,
}
);
query => $query,
type => "opac",
authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
- debug => 1,
}
);
query => $query,
type => "opac",
authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
- debug => 1,
}
);
query => $cgi,
type => "opac",
authnotrequired => 1,
- debug => 1,
}
);
query => $cgi,
type => "opac",
authnotrequired => 1,
- debug => 1,
}
);
template_name => "opac-discharge.tt",
query => $input,
type => "opac",
- debug => 1,
});
my $can_be_discharged = Koha::Patron::Discharge::can_be_discharged({ borrowernumber => $loggedinuser });
template_name => "opac-ics.tt",
query => $query,
type => "opac",
- debug => 1,
}
);
template_name => "opac-issue-note.tt",
query => $query,
type => "opac",
- debug => 1,
}
);
template_name => 'opac-messaging.tt',
query => $query,
type => 'opac',
- debug => 1,
}
);
template_name => "opac-account.tt",
query => $query,
type => "opac",
- debug => 1,
}
);
template_name => "opac-account.tt",
query => $query,
type => "opac",
- debug => 1,
}
);
template_name => 'opac-mymessages.tt',
query => $query,
type => 'opac',
- debug => 1,
}
);
type => "opac",
authnotrequired => 1,
flagsrequired => {borrowers => 'edit_borrowers'},
- debug => 1,
});
$template->{'VARS'}->{'q'} = $cgi->param('q');
template_name => "opac-passwd.tt",
query => $query,
type => "opac",
- debug => 1,
}
);
query => $query,
type => "opac",
authnotrequired => 1,
- debug => 1,
}
);
template_name => "opac-privacy.tt",
query => $query,
type => "opac",
- debug => 1,
}
);
query => $query,
type => "opac",
authnotrequired => 0, # auth required to add tags
- debug => 1,
}
);
}
template_name => "opac-readingrecord.tt",
query => $query,
type => "opac",
- debug => 1,
}
);
template_name => "opac-recordedbooks-search.tt",
query => $cgi,
type => "opac",
- debug => 1,
authnotrequired => 1,
}
);
template_name => "opac-user.tt",
query => $query,
type => "opac",
- debug => 1,
}
);
my @items = $query->multi_param('item');
template_name => "opac-request-article.tt",
query => $cgi,
type => "opac",
- debug => 1,
}
);
template_name => "opac-reserve.tt",
query => $query,
type => "opac",
- debug => 1,
}
);
query => $query,
type => "opac",
authnotrequired => $withinNetwork,
- debug => 1,
}
);
template_name => "opac-routing-lists.tt",
query => $query,
type => "opac",
- debug => 1,
}
);
query => $cgi,
type => "opac",
authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
- debug => 1,
}
);
query => $query,
type => "opac",
authnotrequired => 1,
- debug => 1,
}
);
my $subscriptions = GetFullSubscriptionsFromBiblionumber($biblionumber);
query => $query,
type => "opac",
authnotrequired => 1,
- debug => 1,
}
);
query => $input,
type => "opac",
authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
- debug => 1,
});
my $biblionumber = $input->param('id');
query => $query,
type => "opac",
authnotrequired => ($add_op ? 0 : 1), # auth required to add tags
- debug => 1,
});
}
query => $query,
type => "opac",
authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
- debug => 1,
}
);
query => $input,
type => "opac",
authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
- debug => 1,
}
);
my $dbh = C4::Context->dbh;
template_name => "opac-user.tt",
query => $query,
type => "opac",
- debug => 1,
}
);
template_name => "sco/help.tt",
query => $query,
type => "opac",
- debug => 1,
authnotrequired => 1,
flagsrequired => { self_check => "self_checkout_module" },
}
flagsrequired => { self_check => "self_checkout_module" },
query => $query,
type => "opac",
- debug => 1,
}
);
query => $cgi,
type => "intranet",
flagsrequired => { tools => 'label_creator' },
- debug => 1,
});
my $batch_id = $cgi->param('batch_id') || undef;
my $template_id = $cgi->param('template_id') || undef;
query => $cgi,
type => "intranet",
flagsrequired => { tools => 'label_creator' },
- debug => 1,
}
);
query => $cgi,
type => "intranet",
flagsrequired => { tools => 'label_creator' },
- debug => 1,
}
);
query => $cgi,
type => "intranet",
flagsrequired => { tools => 'label_creator' },
- debug => 1,
}
);
query => $cgi,
type => "intranet",
flagsrequired => { tools => 'label_creator' },
- debug => 1,
}
);
query => $cgi,
type => "intranet",
flagsrequired => { tools => 'label_creator' },
- debug => 1,
}
);
query => $cgi,
type => "intranet",
flagsrequired => {tools => 'label_creator'},
- debug => 0,
});
my $file_name = $cgi->param('uploadfile') || '';
query => $cgi,
type => "intranet",
flagsrequired => { tools => 'label_creator' },
- debug => 1,
}
);
query => $cgi,
type => "intranet",
flagsrequired => { tools => 'label_creator' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { plugins => '*' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { plugins => 'manage' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { plugins => 'manage' },
- debug => 1,
}
);
query => $cgi,
type => "intranet",
flagsrequired => { plugins => $method },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { reports => '*' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => {reports => '*'},
- debug => 1,
});
our $sep = $input->param("sep") || C4::Context->preference('CSVDelimiter') || ',';
$sep = "\t" if ($sep eq 'tabulation');
query => $input,
type => "intranet",
flagsrequired => {reports => '*'},
- debug => 1,
});
$template->param(do_it => $do_it,
);
query => $input,
type => "intranet",
flagsrequired => {reports => '*'},
- debug => 1,
});
$template->param(do_it => $do_it);
if ($do_it) {
query => $input,
type => "intranet",
flagsrequired => {reports => '*'},
- debug => 1,
});
my $do_it = $input->param('do_it');
query => $input,
type => "intranet",
flagsrequired => { reports => '*'},
- debug => 1,
});
our $sep = $input->param("sep");
$sep = "\t" if ($sep eq 'tabulation');
query => $input,
type => "intranet",
flagsrequired => { reports => 'execute_reports' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => {reports => '*'},
- debug => 1,
});
$template->param(do_it => $do_it);
if ($do_it) {
query => $input,
type => "intranet",
flagsrequired => { reports => '*' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { reports => $flagsrequired },
- debug => 1,
}
);
my $session = $cookie ? get_session($cookie->value) : undef;
query => $input,
type => "intranet",
flagsrequired => {reports => '*'},
- debug => 1,
});
our $sep = $input->param("sep");
$sep = "\t" if ($sep eq 'tabulation');
query => $input,
type => "intranet",
flagsrequired => {reports => '*'},
- debug => 0,
});
our $sep = $input->param("sep") // ';';
$sep = "\t" if ($sep eq 'tabulation');
query => $query,
type => "intranet",
flagsrequired => { reports => '*' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => {reports => '*'},
- debug => 1,
});
$template->param(do_it => $do_it,
report_name => $report_name,
query => $query,
type => "intranet",
flagsrequired => { reports => '*' },
- debug => 1,
}
);
query => $query,
type => "intranet",
flagsrequired => {reports => '*'},
- debug => 1,
});
$template->param(intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
intranetstylesheet => C4::Context->preference("intranetstylesheet"),
query => $input,
type => "intranet",
flagsrequired => {reports => '*'},
- debug => 0,
});
our $sep = $input->param("sep") || '';
$sep = "\t" if ($sep eq 'tabulation');
query => $input,
type => "intranet",
flagsrequired => {reports => '*'},
- debug => 1,
});
query => $query,
type => "intranet",
flagsrequired => { catalogue => 1 },
- debug => 1,
}
);
query => $query,
type => "intranet",
flagsrequired => { catalogue => 1 },
- debug => 1,
}
);
query => $query,
type => "intranet",
flagsrequired => { tools => 'moderate_comments' },
- debug => 1,
}
);
query => $query,
type => "intranet",
flagsrequired => { tools => 'rotating_collections' },
- debug => 1,
}
);
query => $query,
type => "intranet",
flagsrequired => { tools => 'rotating_collections' },
- debug => 1,
}
);
query => $query,
type => "intranet",
flagsrequired => { tools => 'rotating_collections' },
- debug => 1,
}
);
query => $query,
type => "intranet",
flagsrequired => { tools => 'rotating_collections' },
- debug => 1,
}
);
query => $query,
type => "intranet",
flagsrequired => {serials => '*'},
- debug => 1,
});
my $supplier=$query->param('supplier');
query => $query,
type => "intranet",
flagsrequired => { serials => '*' },
- debug => 1,
}
);
query => $query,
type => "intranet",
flagsrequired => { serials => 'check_expiration' },
- debug => 1,
}
);
query => $input,
type => 'intranet',
flagsrequired => {serials => 'claim_serials'},
- debug => 1,
});
# supplierlist is returned in name order
query => $query,
type => "intranet",
flagsrequired => {serials => '*'},
- debug => 1,
});
} else {
($template, $loggedinuser, $cookie)
query => $query,
type => "intranet",
flagsrequired => {serials => '*'},
- debug => 1,
});
}
query => $query,
type => "intranet",
flagsrequired => {serials => '*'},
- debug => 1,
});
my $biblionumber = $query->param('biblionumber');
my @subscriptionid = $query->multi_param('subscriptionid');
query => $query,
type => 'intranet',
flagsrequired => { serials => 'receive_serials' },
- debug => 1,
}
);
query => $query,
type => "intranet",
flagsrequired => { serials => '*' },
- debug => 1,
}
);
query => $query,
type => "intranet",
flagsrequired => { serials => '*' },
- debug => 1,
}
);
query => $query,
type => "intranet",
flagsrequired => {serials => $permission},
- debug => 1,
});
query => $input,
type => "intranet",
flagsrequired => { catalogue => 1, serials => '*' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { catalogue => 1, serials => '*' },
- debug => 1,
}
);
query => $query,
type => "intranet",
flagsrequired => {serials => $permission},
- debug => 1,
});
my $subs = GetSubscription($subscriptionid);
query => $input,
type => 'intranet',
flagsrequired => { 'serials' => 1 },
- debug => 1,
} );
my $op = $input->param('op');
query => $input,
type => 'intranet',
flagsrequired => { 'serials' => 'edit_subscription' },
- debug => 1,
} );
my $subscriptionid = $input->param('subscriptionid');
query => $query,
type => "intranet",
flagsrequired => { serials => 'renew_subscription' },
- debug => 1,
}
);
if ( $op eq "renew" ) {
query => $input,
type => "intranet",
flagsrequired => {serials => '*'},
- debug => 1,
});
my $subscriptionid = $input->param('subscriptionid');
template_name => "tags/list.tt",
query => $query,
type => "intranet",
- debug => 1,
flagsrequired => $needed_flags,
}
);
template_name => "tags/review.tt",
query => $input,
type => "intranet",
- debug => 1,
flagsrequired => $needed_flags,
}
);
query => $input,
type => "intranet",
flagsrequired => { tools => 'manage_csv_profiles' },
- debug => 1,
}
);
query => $query,
type => "intranet",
flagsrequired => { tools => 'export_catalog' },
- debug => 1,
}
);
type => "intranet",
query => $input,
flagsrequired => {tools => 'edit_calendar'},
- debug => 1,
});
# calendardate - date passed in url for human readability (syspref)
query => $input,
type => "intranet",
flagsrequired => { tools => 'import_patrons' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { tools => 'inventory' },
- debug => 1,
}
);
query => $cgi,
type => "intranet",
flagsrequired => { tools => 'edit_news' },
- debug => 1,
}
);
query => $input,
type => 'intranet',
flagsrequired => { tools => 'edit_notices' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => {tools => 'manage_staged_marc'},
- debug => 1,
});
my %cookies = parse CGI::Cookie($cookie);
query => $cgi,
type => "intranet",
flagsrequired => { tools => 'marc_modification_templates' },
- debug => 1,
});
if ( $op eq "create_template" ) {
query => $input,
type => "intranet",
flagsrequired => { tools => 'edit_notice_status_triggers' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { tools => 'batch_upload_patron_images'},
- debug => 0,
});
our $filetype = $input->param('filetype') || '';
query => $cgi,
type => "intranet",
flagsrequired => { tools => 'edit_quotes' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { tools => 'edit_quotes' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { tools => 'schedule_tasks' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { tools => 'manage_staged_marc' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { tools => 'stage_marc_import' },
- debug => 1,
}
);
query => $query,
type => "intranet",
flagsrequired => { tools => '*' },
- debug => 1,
}
);
query => $input,
type => "intranet",
flagsrequired => { tools => 'upload_local_cover_images' },
- debug => 0,
}
);
query => $input,
type => "intranet",
flagsrequired => { tools => 'view_system_logs' },
- debug => 1,
}
);