Attachment #114868 for bug #25826

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




use Koha;
use Koha::DateUtils qw(dt_from_string output_pref);
use Koha::Acquisition::Currencies;
use Koha::BiblioFrameworks;
use Koha::Patron::Categories;
use Koha::Patrons;
use Koha::Caches;

use Koha::Illrequest::Config;
use Koha::SearchEngine::Elasticsearch;
use Koha::Logger;
use Koha::Filter::MARC::ViewPolicy;

use C4::Members::Statistics;


    }
}

{
    my @frameworkcodes = Koha::BiblioFrameworks->search->get_column('frameworkcode');
    my @hidden_biblionumbers;
    push @frameworkcodes, ""; # it's not in the biblio_frameworks table!
    for my $frameworkcode ( @frameworkcodes ) {
        my $shouldhidemarc_opac = Koha::Filter::MARC::ViewPolicy->should_hide_marc(
            {
                frameworkcode => $frameworkcode,
                interface     => "opac"
            }
        );
        push @hidden_biblionumbers, { frameworkcode => $frameworkcode, interface => 'opac' }
          if $shouldhidemarc_opac->{biblionumber};

        my $shouldhidemarc_intranet = Koha::Filter::MARC::ViewPolicy->should_hide_marc(
            {
                frameworkcode => $frameworkcode,
                interface     => "intranet"
            }
        );
        push @hidden_biblionumbers, { frameworkcode => $frameworkcode, interface => 'intranet' }
          if $shouldhidemarc_intranet->{biblionumber};
    }
    $template->param( warnHiddenBiblionumbers => \@hidden_biblionumbers );
}

my %versions = C4::Context::get_versions();

$template->param(

Lines 184-190 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/about.tt (-3 / +9 lines)
184	</div>	184	</div>
185		185
186	<div id="sysinfo">	186	<div id="sysinfo">
187	[% IF warnPrefBiblioAddsAuthorities \|\| warnPrefEasyAnalyticalRecords \|\| warnPrefAnonymousPatronOPACPrivacy \|\| warnPrefAnonymousPatronAnonSuggestions \|\| warnPrefAnonymousPatronOPACPrivacy_PatronDoesNotExist \|\| warnPrefAnonymousPatronAnonSuggestions_PatronDoesNotExist \|\| warnNoActiveCurrency \|\| warnIsRootUser \|\| xml_config_warnings.size \|\| AutoSelfCheckPatronDoesNotHaveSelfCheckPerm \|\| AutoSelfCheckPatronHasTooManyPerm \|\| warnStatisticsFieldsError \|\| warnNoTemplateCaching \|\| warnILLConfiguration \|\| has_ai_issues \|\| oauth2_missing_deps \|\| bad_yaml_prefs \|\| warnRelationships \|\| log4perl_errors %]	187	[% IF warnPrefBiblioAddsAuthorities \|\| warnPrefEasyAnalyticalRecords \|\| warnPrefAnonymousPatronOPACPrivacy \|\| warnPrefAnonymousPatronAnonSuggestions \|\| warnPrefAnonymousPatronOPACPrivacy_PatronDoesNotExist \|\| warnPrefAnonymousPatronAnonSuggestions_PatronDoesNotExist \|\| warnNoActiveCurrency \|\| warnIsRootUser \|\| xml_config_warnings.size \|\| AutoSelfCheckPatronDoesNotHaveSelfCheckPerm \|\| AutoSelfCheckPatronHasTooManyPerm \|\| warnStatisticsFieldsError \|\| warnNoTemplateCaching \|\| warnILLConfiguration \|\| has_ai_issues \|\| oauth2_missing_deps \|\| bad_yaml_prefs \|\| warnRelationships \|\| log4perl_errors \|\| warnHiddenBiblionumbers.size %]
188	[% IF (warnIsRootUser) %]	188	[% IF (warnIsRootUser) %]
189	<h2>Warning regarding current user</h2>	189	<h2>Warning regarding current user</h2>
190	<p>You are logged in as the database administrative user. This is not recommended because some parts of Koha will not function as expected when using this account.</p>	190	<p>You are logged in as the database administrative user. This is not recommended because some parts of Koha will not function as expected when using this account.</p>
Lines 259-265 Link Here
259	[% END %]	259	[% END %]
260	[% END %]	260	[% END %]
261		261
262	[% IF warnPrefBiblioAddsAuthorities \|\| warnPrefEasyAnalyticalRecords \|\| warnPrefAnonymousPatronOPACPrivacy \|\| warnPrefAnonymousPatronAnonSuggestions \|\| warnPrefAnonymousPatronOPACPrivacy_PatronDoesNotExist \|\| warnPrefAnonymousPatronAnonSuggestions_PatronDoesNotExist \|\| warnNoActiveCurrency \|\| AutoSelfCheckPatronDoesNotHaveSelfCheckPerm \|\| AutoSelfCheckPatronHasTooManyPerm \|\| warnStatisticsFieldsError \|\| warnNoTemplateCaching \|\| warnILLConfiguration \|\| oauth2_missing_deps \|\| bad_yaml_prefs \|\| warnIssuingRules %]	262	[% IF warnPrefBiblioAddsAuthorities \|\| warnPrefEasyAnalyticalRecords \|\| warnPrefAnonymousPatronOPACPrivacy \|\| warnPrefAnonymousPatronAnonSuggestions \|\| warnPrefAnonymousPatronOPACPrivacy_PatronDoesNotExist \|\| warnPrefAnonymousPatronAnonSuggestions_PatronDoesNotExist \|\| warnNoActiveCurrency \|\| AutoSelfCheckPatronDoesNotHaveSelfCheckPerm \|\| AutoSelfCheckPatronHasTooManyPerm \|\| warnStatisticsFieldsError \|\| warnNoTemplateCaching \|\| warnILLConfiguration \|\| oauth2_missing_deps \|\| bad_yaml_prefs \|\| warnIssuingRules \|\| warnHiddenBiblionumbers.size %]
263	<h2>Warnings regarding the system configuration</h2>	263	<h2>Warnings regarding the system configuration</h2>
264	<table>	264	<table>
265	<caption>Preferences and parameters</caption>	265	<caption>Preferences and parameters</caption>
Lines 335-340 Link Here
335	Some system preferences have badly formatted YAML content: [% bad_yaml_prefs.join(', ') \| html %]	335	Some system preferences have badly formatted YAML content: [% bad_yaml_prefs.join(', ') \| html %]
336	</td></tr>	336	</td></tr>
337	[% END %]	337	[% END %]
		338	[% IF warnHiddenBiblionumbers.size %]
		339	<tr><th scope="row"><b>Warning</b> </th><td>
		340	[% FOR w IN warnHiddenBiblionumbers %]
		341	Biblio framework "[% w.frameworkcode %]" has the biblionumber field hidden at the interface [% w.interface %]<br/>
		342	[% END %]
		343	</td></tr>
		344	[% END %]
338	</table>	345	</table>
339	[% END %]	346	[% END %]
340		347
341	-

Return to bug 25826

Lines 43-48 use C4::Installer::PerlModules; Link Here

(-)a/about.pl (+28 lines)
43	use Koha;	43	use Koha;
44	use Koha::DateUtils qw(dt_from_string output_pref);	44	use Koha::DateUtils qw(dt_from_string output_pref);
45	use Koha::Acquisition::Currencies;	45	use Koha::Acquisition::Currencies;
		46	use Koha::BiblioFrameworks;
46	use Koha::Patron::Categories;	47	use Koha::Patron::Categories;
47	use Koha::Patrons;	48	use Koha::Patrons;
48	use Koha::Caches;	49	use Koha::Caches;
Lines 50-55 use Koha::Config::SysPrefs; Link Here
50	use Koha::Illrequest::Config;	51	use Koha::Illrequest::Config;
51	use Koha::SearchEngine::Elasticsearch;	52	use Koha::SearchEngine::Elasticsearch;
52	use Koha::Logger;	53	use Koha::Logger;
		54	use Koha::Filter::MARC::ViewPolicy;
53		55
54	use C4::Members::Statistics;	56	use C4::Members::Statistics;
55		57
Lines 517-522 $template->param( 'bad_yaml_prefs' => \@bad_yaml_prefs ) if @bad_yaml_prefs; Link Here
517	}	519	}
518	}	520	}
519		521
		522	{
		523	my @frameworkcodes = Koha::BiblioFrameworks->search->get_column('frameworkcode');
		524	my @hidden_biblionumbers;
		525	push @frameworkcodes, ""; # it's not in the biblio_frameworks table!
		526	for my $frameworkcode ( @frameworkcodes ) {
		527	my $shouldhidemarc_opac = Koha::Filter::MARC::ViewPolicy->should_hide_marc(
		528	{
		529	frameworkcode => $frameworkcode,
		530	interface => "opac"
		531	}
		532	);
		533	push @hidden_biblionumbers, { frameworkcode => $frameworkcode, interface => 'opac' }
		534	if $shouldhidemarc_opac->{biblionumber};
		535
		536	my $shouldhidemarc_intranet = Koha::Filter::MARC::ViewPolicy->should_hide_marc(
		537	{
		538	frameworkcode => $frameworkcode,
		539	interface => "intranet"
		540	}
		541	);
		542	push @hidden_biblionumbers, { frameworkcode => $frameworkcode, interface => 'intranet' }
		543	if $shouldhidemarc_intranet->{biblionumber};
		544	}
		545	$template->param( warnHiddenBiblionumbers => \@hidden_biblionumbers );
		546	}
		547
520	my %versions = C4::Context::get_versions();	548	my %versions = C4::Context::get_versions();
521		549
522	$template->param(	550	$template->param(