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

(-)a/installer/data/mysql/sysprefs.sql (+1 lines)
Lines 362-364 INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES(' Link Here
362
INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('AutoResumeSuspendedHolds',  '1', NULL ,  'Allow suspended holds to be automatically resumed by a set date.',  'YesNo');
362
INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('AutoResumeSuspendedHolds',  '1', NULL ,  'Allow suspended holds to be automatically resumed by a set date.',  'YesNo');
363
INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OpacStarRatings','all',NULL,'disable|all|details','Choice');
363
INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OpacStarRatings','all',NULL,'disable|all|details','Choice');
364
INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacBrowseResults','1','Disable/enable browsing and paging search results from the OPAC detail page.',NULL,'YesNo');
364
INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacBrowseResults','1','Disable/enable browsing and paging search results from the OPAC detail page.',NULL,'YesNo');
365
INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('SvcMaxReportRows','10','Maximum number of rows to return via the report web service.',NULL,'Integer');
(-)a/installer/data/mysql/updatedatabase.pl (+7 lines)
Lines 5225-5230 saved_reports table.)\n"; Link Here
5225
    SetVersion($DBversion);
5225
    SetVersion($DBversion);
5226
}
5226
}
5227
5227
5228
$DBversion = "3.09.00.XXX";
5229
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5230
    $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('SvcMaxReportRows','10','Maximum number of rows to return via the report web service.',NULL,'Integer');");
5231
    print "Upgrade to $DBversion done (Added SvcMaxReportRows syspref)\n";
5232
    SetVersion($DBversion);
5233
}
5234
5228
=head1 FUNCTIONS
5235
=head1 FUNCTIONS
5229
5236
5230
=head2 TableExists($table)
5237
=head2 TableExists($table)
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/web_services.pref (-1 / +7 lines)
Lines 1-4 Link Here
1
Web Services:
1
Web services:
2
    OAI-PMH:
2
    OAI-PMH:
3
        -
3
        -
4
            - pref: OAI-PMH
4
            - pref: OAI-PMH
Lines 38-40 Web Services: Link Here
38
            - pref: ILS-DI:AuthorizedIPs
38
            - pref: ILS-DI:AuthorizedIPs
39
              class: Text
39
              class: Text
40
            - allowed IPs to use the ILS-DI services
40
            - allowed IPs to use the ILS-DI services
41
    Reporting:
42
        -
43
            - Only return
44
            - pref: SvcMaxReportRows
45
              class: integer
46
            - rows of a report requested via the reports web service.
(-)a/opac/svc/report (-1 / +1 lines)
Lines 55-61 if ($usecache) { Link Here
55
55
56
print $query->header;
56
print $query->header;
57
my $offset = 0;
57
my $offset = 0;
58
my $limit  = 10;
58
my $limit  = C4::Context->preference("SvcMaxReportRows") || 10;
59
my ( $sth, $errors ) = execute_query( $sql, $offset, $limit );
59
my ( $sth, $errors ) = execute_query( $sql, $offset, $limit );
60
my $lines     = $sth->fetchall_arrayref;
60
my $lines     = $sth->fetchall_arrayref;
61
my $json_text = to_json($lines);
61
my $json_text = to_json($lines);
(-)a/svc/report (-3 / +2 lines)
Lines 30-36 my $query = CGI->new(); Link Here
30
my $report = $query->param('id');
30
my $report = $query->param('id');
31
31
32
my $cache;
32
my $cache;
33
my $usecache = C4::Context->preference('usecache');
33
my $usecache = C4::Context->ismemcached;
34
34
35
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
35
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
36
    {
36
    {
Lines 66-72 print $query->header; Link Here
66
my ( $sql, $type, $name, $notes, $cache_expiry, $public ) =
66
my ( $sql, $type, $name, $notes, $cache_expiry, $public ) =
67
  get_saved_report($report);
67
  get_saved_report($report);
68
my $offset = 0;
68
my $offset = 0;
69
my $limit  = 10;
69
my $limit  = C4::Context->preference("SvcMaxReportRows") || 10;
70
my ( $sth, $errors ) = execute_query( $sql, $offset, $limit );
70
my ( $sth, $errors ) = execute_query( $sql, $offset, $limit );
71
my $lines     = $sth->fetchall_arrayref;
71
my $lines     = $sth->fetchall_arrayref;
72
my $json_text = to_json($lines);
72
my $json_text = to_json($lines);
73
- 

Return to bug 7249