View | Details | Raw Unified | Return to bug 11349
Collapse All | Expand All

(-)a/authorities/detail-biblio-search.pl (-8 / +10 lines)
Lines 62-75 my $tagslib = &GetTagsLabels(1,$authtypecode); Link Here
62
62
63
my $record =GetAuthority($authid);
63
my $record =GetAuthority($authid);
64
# open template
64
# open template
65
my ($template, $loggedinuser, $cookie)
65
my ($template, $loggedinuser, $cookie) = get_template_and_user(
66
		= get_template_and_user({template_name => "authorities/detail-biblio-search.tt",
66
    {
67
			     query => $query,
67
        template_name   => "authorities/detail-biblio-search.tt",
68
			     type => "intranet",
68
        query           => $query,
69
			     authnotrequired => 0,
69
        type            => "intranet",
70
			     flagsrequired => {catalogue => 1},
70
        authnotrequired => 0,
71
			     debug => 1,
71
        flagsrequired   => { catalogue => 1 },
72
			     });
72
        debug           => 1,
73
    }
74
);
73
75
74
# fill arrays
76
# fill arrays
75
my @loop_data =();
77
my @loop_data =();
(-)a/cataloguing/value_builder/marc21_leader_computerfile.pl (-2 / +4 lines)
Lines 27-35 use C4::Context; Link Here
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output;
29
29
30
=head1
30
=head1 FUNCTIONS
31
31
32
plugin_parameters : other parameters added when the plugin is called by the dopop function
32
=head2 plugin_parameters
33
34
Other parameters added when the plugin is called by the dopop function
33
35
34
=cut
36
=cut
35
37
(-)a/cataloguing/value_builder/normarc_field_008.pl (-2 / +4 lines)
Lines 25-33 use C4::Context; Link Here
25
use C4::Search;
25
use C4::Search;
26
use C4::Output;
26
use C4::Output;
27
27
28
=head1
28
=head1 FUNCTIONS
29
29
30
plugin_parameters : other parameters added when the plugin is called by the dopop function
30
=head2 plugin_parameters
31
32
Other parameters added when the plugin is called by the dopop function
31
33
32
=cut
34
=cut
33
35
(-)a/cataloguing/value_builder/unimarc_field_123i.pl (-2 / +5 lines)
Lines 27-37 use C4::Context; Link Here
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output;
29
29
30
=head1
30
=head1 FUNCTIONS
31
31
32
plugin_parameters : other parameters added when the plugin is called by the dopop function
32
=head2 plugin_parameters
33
34
Other parameters added when the plugin is called by the dopop function
33
35
34
=cut
36
=cut
37
35
sub plugin_parameters {
38
sub plugin_parameters {
36
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
39
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
37
return "";
40
return "";
(-)a/cataloguing/value_builder/unimarc_field_123j.pl (-2 / +4 lines)
Lines 27-35 use C4::Context; Link Here
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output;
29
29
30
=head1
30
=head1 FUNCTIONS
31
31
32
plugin_parameters : other parameters added when the plugin is called by the dopop function
32
=head2 plugin_parameters
33
34
Other parameters added when the plugin is called by the dopop function
33
35
34
=cut
36
=cut
35
37
(-)a/cataloguing/value_builder/unimarc_field_124.pl (-2 / +5 lines)
Lines 27-37 use C4::Context; Link Here
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output;
29
29
30
=head1
30
=head1 FUNCTIONS
31
31
32
plugin_parameters : other parameters added when the plugin is called by the dopop function
32
=head2 plugin_parameters
33
34
Other parameters added when the plugin is called by the dopop function
33
35
34
=cut
36
=cut
37
35
sub plugin_parameters {
38
sub plugin_parameters {
36
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
39
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
37
return "";
40
return "";
(-)a/cataloguing/value_builder/unimarc_field_124a.pl (-10 / +15 lines)
Lines 27-37 use C4::Context; Link Here
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output;
29
29
30
=head1
30
=head1 FUNCTIONS
31
31
32
plugin_parameters : other parameters added when the plugin is called by the dopop function
32
=head2 plugin_parameters
33
34
Other parameters added when the plugin is called by the dopop function
33
35
34
=cut
36
=cut
37
35
sub plugin_parameters {
38
sub plugin_parameters {
36
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
39
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
37
return "";
40
return "";
Lines 68-81 my ($input) = @_; Link Here
68
71
69
	my $dbh = C4::Context->dbh;
72
	my $dbh = C4::Context->dbh;
70
73
71
my ($template, $loggedinuser, $cookie)
74
    my ($template, $loggedinuser, $cookie) = get_template_and_user(
72
    = get_template_and_user({template_name => "cataloguing/value_builder/unimarc_field_124a.tt",
75
        {
73
			     query => $input,
76
            template_name   => "cataloguing/value_builder/unimarc_field_124a.tt",
74
			     type => "intranet",
77
            query           => $input,
75
			     authnotrequired => 0,
78
            type            => "intranet",
76
			     flagsrequired => {editcatalogue => '*'},
79
            authnotrequired => 0,
77
			     debug => 1,
80
            flagsrequired   => { editcatalogue => '*' },
78
			     });
81
            debug           => 1,
82
        }
83
    );
79
	my $f1 = substr($result,0,1);
84
	my $f1 = substr($result,0,1);
80
	$template->param(index => $index,
85
	$template->param(index => $index,
81
			 "f1$f1" => 1);
86
			 "f1$f1" => 1);
(-)a/cataloguing/value_builder/unimarc_field_124g.pl (-2 / +5 lines)
Lines 27-37 use C4::Context; Link Here
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output;
29
29
30
=head1
30
=head1 FUNCTIONS
31
31
32
plugin_parameters : other parameters added when the plugin is called by the dopop function
32
=head2 plugin_parameters
33
34
Other parameters added when the plugin is called by the dopop function
33
35
34
=cut
36
=cut
37
35
sub plugin_parameters {
38
sub plugin_parameters {
36
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
39
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
37
return "";
40
return "";
(-)a/cataloguing/value_builder/unimarc_field_126.pl (-2 / +5 lines)
Lines 27-37 use C4::Context; Link Here
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output;
29
29
30
=head1
30
=head1 FUNCTIONS
31
31
32
plugin_parameters : other parameters added when the plugin is called by the dopop function
32
=head2 plugin_parameters
33
34
Other parameters added when the plugin is called by the dopop function
33
35
34
=cut
36
=cut
37
35
sub plugin_parameters {
38
sub plugin_parameters {
36
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
39
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
37
return "";
40
return "";
(-)a/cataloguing/value_builder/unimarc_field_127.pl (-2 / +5 lines)
Lines 27-37 use C4::Context; Link Here
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output;
29
29
30
=head1
30
=head1 FUNCTIONS
31
31
32
plugin_parameters : other parameters added when the plugin is called by the dopop function
32
=head2 plugin_parameters
33
34
Other parameters added when the plugin is called by the dopop function
33
35
34
=cut
36
=cut
37
35
sub plugin_parameters {
38
sub plugin_parameters {
36
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
39
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
37
return "";
40
return "";
(-)a/cataloguing/value_builder/unimarc_field_128a.pl (-2 / +5 lines)
Lines 27-37 use C4::Context; Link Here
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output;
29
29
30
=head1
30
=head1 FUNCTIONS
31
31
32
plugin_parameters : other parameters added when the plugin is called by the dopop function
32
=head2 plugin_parameters
33
34
Other parameters added when the plugin is called by the dopop function
33
35
34
=cut
36
=cut
37
35
sub plugin_parameters {
38
sub plugin_parameters {
36
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
39
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
37
return "";
40
return "";
(-)a/cataloguing/value_builder/unimarc_field_128c.pl (-2 / +4 lines)
Lines 27-35 use C4::Context; Link Here
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output;
29
29
30
=head1
30
=head1 FUNCTIONS
31
31
32
plugin_parameters : other parameters added when the plugin is called by the dopop function
32
=head2 plugin_parameters
33
34
Other parameters added when the plugin is called by the dopop function
33
35
34
=cut
36
=cut
35
37
(-)a/cataloguing/value_builder/unimarc_field_135a.pl (-2 / +5 lines)
Lines 27-37 use C4::Context; Link Here
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output;
29
29
30
=head1
30
=head1 FUNCTIONS
31
31
32
plugin_parameters : other parameters added when the plugin is called by the dopop function
32
=head2 plugin_parameters
33
34
Other parameters added when the plugin is called by the dopop function
33
35
34
=cut
36
=cut
37
35
sub plugin_parameters {
38
sub plugin_parameters {
36
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
39
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
37
return "";
40
return "";
(-)a/cataloguing/value_builder/unimarc_field_140.pl (-2 / +5 lines)
Lines 27-37 use C4::Context; Link Here
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output;
29
29
30
=head1
30
=head1 FUNCTIONS
31
31
32
plugin_parameters : other parameters added when the plugin is called by the dopop function
32
=head2 plugin_parameters
33
34
Other parameters added when the plugin is called by the dopop function
33
35
34
=cut
36
=cut
37
35
sub plugin_parameters {
38
sub plugin_parameters {
36
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
39
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
37
return "";
40
return "";
(-)a/cataloguing/value_builder/unimarc_field_210c.pl (-6 / +10 lines)
Lines 32-50 use C4::Koha; Link Here
32
32
33
###TODO To rewrite in order to use SearchAuthorities
33
###TODO To rewrite in order to use SearchAuthorities
34
34
35
=head1
35
=head1 FUNCTIONS
36
36
37
plugin_parameters : other parameters added when the plugin is called by the dopop function
37
=head2 plugin_parameters
38
39
Other parameters added when the plugin is called by the dopop function
38
40
39
=cut
41
=cut
42
40
sub plugin_parameters {
43
sub plugin_parameters {
41
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
44
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
42
return "";
45
return "";
43
}
46
}
44
47
45
=head1
48
=head2 plugin_javascript
46
49
47
plugin_javascript : the javascript function called when the user enters the subfield.
50
The javascript function called when the user enters the subfield.
48
contain 3 javascript functions :
51
contain 3 javascript functions :
49
* one called when the field is entered (OnFocus). Named FocusXXX
52
* one called when the field is entered (OnFocus). Named FocusXXX
50
* one called when the field is leaved (onBlur). Named BlurXXX
53
* one called when the field is leaved (onBlur). Named BlurXXX
Lines 56-61 returns : Link Here
56
the 3 scripts are inserted after the <input> in the html code
59
the 3 scripts are inserted after the <input> in the html code
57
60
58
=cut
61
=cut
62
59
sub plugin_javascript {
63
sub plugin_javascript {
60
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
64
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
61
my $function_name= $field_number;
65
my $function_name= $field_number;
Lines 86-94 function Clic$function_name(subfield_managed) { Link Here
86
return ($function_name,$res);
90
return ($function_name,$res);
87
}
91
}
88
92
89
=head1
93
=head2 plugin
90
94
91
plugin : the true value_builded. The screen that is open in the popup window.
95
The true value_builded. The screen that is open in the popup window.
92
96
93
=cut
97
=cut
94
98
(-)a/cataloguing/value_builder/unimarc_leader.pl (-2 / +4 lines)
Lines 27-35 use C4::Context; Link Here
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output;
29
29
30
=head1
30
=head1 FUNCTIONS
31
31
32
plugin_parameters : other parameters added when the plugin is called by the dopop function
32
=head2 plugin_parameters
33
34
Other parameters added when the plugin is called by the dopop function
33
35
34
=cut
36
=cut
35
37
(-)a/members/mancredit.pl (-1 / +1 lines)
Lines 60-66 if ($add){ Link Here
60
        print $input->redirect("/cgi-bin/koha/members/boraccount.pl?borrowernumber=$borrowernumber");
60
        print $input->redirect("/cgi-bin/koha/members/boraccount.pl?borrowernumber=$borrowernumber");
61
    }
61
    }
62
} else {
62
} else {
63
	my ($template, $loggedinuser, $cookie) = get_template_and_user(
63
    my ($template, $loggedinuser, $cookie) = get_template_and_user(
64
        {
64
        {
65
            template_name   => "members/mancredit.tt",
65
            template_name   => "members/mancredit.tt",
66
            query           => $input,
66
            query           => $input,
(-)a/members/statistics.pl (+9 lines)
Lines 17-23 Link Here
17
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
17
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
18
18
19
=head1 members/statistics.pl
19
=head1 members/statistics.pl
20
20
  Generate statistic issues for a member
21
  Generate statistic issues for a member
22
21
=cut
23
=cut
22
24
23
use Modern::Perl;
25
use Modern::Perl;
Lines 112-120 output_html_with_http_headers $input, $cookie, $template->output; Link Here
112
=head1 FUNCTIONS
114
=head1 FUNCTIONS
113
115
114
=head2 add_actual_state
116
=head2 add_actual_state
117
115
  Add a 'count_actual_state' key in all hashes
118
  Add a 'count_actual_state' key in all hashes
116
  count_actual_state = count_precedent_state - count_total_issues_returned_today + count_total_issues_today
119
  count_actual_state = count_precedent_state - count_total_issues_returned_today + count_total_issues_today
120
117
=cut
121
=cut
122
118
sub add_actual_state {
123
sub add_actual_state {
119
    my ( $array ) = @_;
124
    my ( $array ) = @_;
120
    for my $hash ( @$array ) {
125
    for my $hash ( @$array ) {
Lines 123-128 sub add_actual_state { Link Here
123
}
128
}
124
129
125
=head2 build_array
130
=head2 build_array
131
126
  Build a new array containing values of hashes.
132
  Build a new array containing values of hashes.
127
  It used by template whitch display silly values.
133
  It used by template whitch display silly values.
128
  ex:
134
  ex:
Lines 151-156 sub add_actual_state { Link Here
151
    ];
157
    ];
152
158
153
=cut
159
=cut
160
154
sub build_array {
161
sub build_array {
155
    my ( $array ) = @_;
162
    my ( $array ) = @_;
156
    my ( @r, $total );
163
    my ( @r, $total );
Lines 173-178 sub build_array { Link Here
173
}
180
}
174
181
175
=head2 merge
182
=head2 merge
183
176
  Merge hashes with the same statistic column names into one
184
  Merge hashes with the same statistic column names into one
177
  param: array, a arrayref of arrayrefs
185
  param: array, a arrayref of arrayrefs
178
  ex:
186
  ex:
Lines 202-207 sub build_array { Link Here
202
   ];
210
   ];
203
211
204
=cut
212
=cut
213
205
sub merge {
214
sub merge {
206
    my @array = @_;
215
    my @array = @_;
207
    my @r;
216
    my @r;
(-)a/reports/acquisitions_stats.pl (-5 / +2 lines)
Lines 1-6 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
4
# Copyright 2000-2002 Katipo Communications
3
# Copyright 2000-2002 Katipo Communications
5
#
4
#
6
# This file is part of Koha.
5
# This file is part of Koha.
Lines 18-25 Link Here
18
# with Koha; if not, write to the Free Software Foundation, Inc.,
17
# with Koha; if not, write to the Free Software Foundation, Inc.,
19
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
18
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
20
19
21
# test comment
22
23
use Modern::Perl;
20
use Modern::Perl;
24
21
25
use C4::Auth;
22
use C4::Auth;
Lines 35-45 use C4::Biblio; Link Here
35
32
36
=head1 NAME
33
=head1 NAME
37
34
38
plugin that shows a stats on borrowers
35
reports/acquisitions_stats.pl
39
36
40
=head1 DESCRIPTION
37
=head1 DESCRIPTION
41
38
42
=over 2
39
Plugin that shows a stats on borrowers
43
40
44
=cut
41
=cut
45
42
(-)a/reports/borrowers_out.pl (-2 / +2 lines)
Lines 32-42 use C4::Dates qw/format_date_in_iso/; Link Here
32
32
33
=head1 NAME
33
=head1 NAME
34
34
35
plugin that shows a stats on borrowers
35
reports/borrowers_out.pl
36
36
37
=head1 DESCRIPTION
37
=head1 DESCRIPTION
38
38
39
=over 2
39
Plugin that shows a stats on borrowers
40
40
41
=cut
41
=cut
42
42
(-)a/reports/issues_stats.pl (-3 / +2 lines)
Lines 1-6 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
4
# Copyright 2000-2002 Katipo Communications
3
# Copyright 2000-2002 Katipo Communications
5
#
4
#
6
# This file is part of Koha.
5
# This file is part of Koha.
Lines 37-47 use C4::Members; Link Here
37
36
38
=head1 NAME
37
=head1 NAME
39
38
40
plugin that shows circulation stats
39
reports/issues_stats.pl
41
40
42
=head1 DESCRIPTION
41
=head1 DESCRIPTION
43
42
44
=over 2
43
Plugin that shows circulation stats
45
44
46
=cut
45
=cut
47
46
(-)a/serials/acqui-search-result.pl (+1 lines)
Lines 26-31 Link Here
26
acqui-search-result.pl
26
acqui-search-result.pl
27
27
28
=head1 DESCRIPTION
28
=head1 DESCRIPTION
29
29
 TODO
30
 TODO
30
31
31
=head1 PARAMETERS
32
=head1 PARAMETERS
(-)a/virtualshelves/addbybiblionumber.pl (-2 / +1 lines)
Lines 23-29 Link Here
23
23
24
=head1 NAME
24
=head1 NAME
25
25
26
    addbybiblionumber.pl
26
addbybiblionumber.pl
27
27
28
=head1 DESCRIPTION
28
=head1 DESCRIPTION
29
29
30
- 

Return to bug 11349