my $record =GetAuthority($authid);
# open template
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "authorities/detail-biblio-search.tt",
- query => $query,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {catalogue => 1},
- debug => 1,
- });
+my ($template, $loggedinuser, $cookie) = get_template_and_user(
+ {
+ template_name => "authorities/detail-biblio-search.tt",
+ query => $query,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => { catalogue => 1 },
+ debug => 1,
+ }
+);
# fill arrays
my @loop_data =();
use C4::Search;
use C4::Output;
-=head1
+=head1 FUNCTIONS
-plugin_parameters : other parameters added when the plugin is called by the dopop function
+=head2 plugin_parameters
+
+Other parameters added when the plugin is called by the dopop function
=cut
use C4::Search;
use C4::Output;
-=head1
+=head1 FUNCTIONS
-plugin_parameters : other parameters added when the plugin is called by the dopop function
+=head2 plugin_parameters
+
+Other parameters added when the plugin is called by the dopop function
=cut
use C4::Search;
use C4::Output;
-=head1
+=head1 FUNCTIONS
-plugin_parameters : other parameters added when the plugin is called by the dopop function
+=head2 plugin_parameters
+
+Other parameters added when the plugin is called by the dopop function
=cut
+
sub plugin_parameters {
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
return "";
use C4::Search;
use C4::Output;
-=head1
+=head1 FUNCTIONS
-plugin_parameters : other parameters added when the plugin is called by the dopop function
+=head2 plugin_parameters
+
+Other parameters added when the plugin is called by the dopop function
=cut
use C4::Search;
use C4::Output;
-=head1
+=head1 FUNCTIONS
-plugin_parameters : other parameters added when the plugin is called by the dopop function
+=head2 plugin_parameters
+
+Other parameters added when the plugin is called by the dopop function
=cut
+
sub plugin_parameters {
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
return "";
use C4::Search;
use C4::Output;
-=head1
+=head1 FUNCTIONS
-plugin_parameters : other parameters added when the plugin is called by the dopop function
+=head2 plugin_parameters
+
+Other parameters added when the plugin is called by the dopop function
=cut
+
sub plugin_parameters {
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
return "";
my $dbh = C4::Context->dbh;
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "cataloguing/value_builder/unimarc_field_124a.tt",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => '*'},
- debug => 1,
- });
+ my ($template, $loggedinuser, $cookie) = get_template_and_user(
+ {
+ template_name => "cataloguing/value_builder/unimarc_field_124a.tt",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => { editcatalogue => '*' },
+ debug => 1,
+ }
+ );
my $f1 = substr($result,0,1);
$template->param(index => $index,
"f1$f1" => 1);
use C4::Search;
use C4::Output;
-=head1
+=head1 FUNCTIONS
-plugin_parameters : other parameters added when the plugin is called by the dopop function
+=head2 plugin_parameters
+
+Other parameters added when the plugin is called by the dopop function
=cut
+
sub plugin_parameters {
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
return "";
use C4::Search;
use C4::Output;
-=head1
+=head1 FUNCTIONS
-plugin_parameters : other parameters added when the plugin is called by the dopop function
+=head2 plugin_parameters
+
+Other parameters added when the plugin is called by the dopop function
=cut
+
sub plugin_parameters {
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
return "";
use C4::Search;
use C4::Output;
-=head1
+=head1 FUNCTIONS
-plugin_parameters : other parameters added when the plugin is called by the dopop function
+=head2 plugin_parameters
+
+Other parameters added when the plugin is called by the dopop function
=cut
+
sub plugin_parameters {
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
return "";
use C4::Search;
use C4::Output;
-=head1
+=head1 FUNCTIONS
-plugin_parameters : other parameters added when the plugin is called by the dopop function
+=head2 plugin_parameters
+
+Other parameters added when the plugin is called by the dopop function
=cut
+
sub plugin_parameters {
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
return "";
use C4::Search;
use C4::Output;
-=head1
+=head1 FUNCTIONS
-plugin_parameters : other parameters added when the plugin is called by the dopop function
+=head2 plugin_parameters
+
+Other parameters added when the plugin is called by the dopop function
=cut
use C4::Search;
use C4::Output;
-=head1
+=head1 FUNCTIONS
-plugin_parameters : other parameters added when the plugin is called by the dopop function
+=head2 plugin_parameters
+
+Other parameters added when the plugin is called by the dopop function
=cut
+
sub plugin_parameters {
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
return "";
use C4::Search;
use C4::Output;
-=head1
+=head1 FUNCTIONS
-plugin_parameters : other parameters added when the plugin is called by the dopop function
+=head2 plugin_parameters
+
+Other parameters added when the plugin is called by the dopop function
=cut
+
sub plugin_parameters {
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
return "";
###TODO To rewrite in order to use SearchAuthorities
-=head1
+=head1 FUNCTIONS
-plugin_parameters : other parameters added when the plugin is called by the dopop function
+=head2 plugin_parameters
+
+Other parameters added when the plugin is called by the dopop function
=cut
+
sub plugin_parameters {
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
return "";
}
-=head1
+=head2 plugin_javascript
-plugin_javascript : the javascript function called when the user enters the subfield.
+The javascript function called when the user enters the subfield.
contain 3 javascript functions :
* one called when the field is entered (OnFocus). Named FocusXXX
* one called when the field is leaved (onBlur). Named BlurXXX
the 3 scripts are inserted after the <input> in the html code
=cut
+
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
my $function_name= $field_number;
return ($function_name,$res);
}
-=head1
+=head2 plugin
-plugin : the true value_builded. The screen that is open in the popup window.
+The true value_builded. The screen that is open in the popup window.
=cut
use C4::Search;
use C4::Output;
-=head1
+=head1 FUNCTIONS
-plugin_parameters : other parameters added when the plugin is called by the dopop function
+=head2 plugin_parameters
+
+Other parameters added when the plugin is called by the dopop function
=cut
print $input->redirect("/cgi-bin/koha/members/boraccount.pl?borrowernumber=$borrowernumber");
}
} else {
- my ($template, $loggedinuser, $cookie) = get_template_and_user(
+ my ($template, $loggedinuser, $cookie) = get_template_and_user(
{
template_name => "members/mancredit.tt",
query => $input,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
=head1 members/statistics.pl
+
Generate statistic issues for a member
+
=cut
use Modern::Perl;
=head1 FUNCTIONS
=head2 add_actual_state
+
Add a 'count_actual_state' key in all hashes
count_actual_state = count_precedent_state - count_total_issues_returned_today + count_total_issues_today
+
=cut
+
sub add_actual_state {
my ( $array ) = @_;
for my $hash ( @$array ) {
}
=head2 build_array
+
Build a new array containing values of hashes.
It used by template whitch display silly values.
ex:
];
=cut
+
sub build_array {
my ( $array ) = @_;
my ( @r, $total );
}
=head2 merge
+
Merge hashes with the same statistic column names into one
param: array, a arrayref of arrayrefs
ex:
];
=cut
+
sub merge {
my @array = @_;
my @r;
#!/usr/bin/perl
-
# Copyright 2000-2002 Katipo Communications
#
# This file is part of Koha.
# with Koha; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-# test comment
-
use Modern::Perl;
use C4::Auth;
=head1 NAME
-plugin that shows a stats on borrowers
+reports/acquisitions_stats.pl
=head1 DESCRIPTION
-=over 2
+Plugin that shows a stats on borrowers
=cut
=head1 NAME
-plugin that shows a stats on borrowers
+reports/borrowers_out.pl
=head1 DESCRIPTION
-=over 2
+Plugin that shows a stats on borrowers
=cut
#!/usr/bin/perl
-
# Copyright 2000-2002 Katipo Communications
#
# This file is part of Koha.
=head1 NAME
-plugin that shows circulation stats
+reports/issues_stats.pl
=head1 DESCRIPTION
-=over 2
+Plugin that shows circulation stats
=cut
acqui-search-result.pl
=head1 DESCRIPTION
+
TODO
=head1 PARAMETERS
=head1 NAME
- addbybiblionumber.pl
+addbybiblionumber.pl
=head1 DESCRIPTION
projects / koha.git / commitdiff