Attachment #10647 for bug #4198

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




use C4::Koha;    # XXX subfield_is_koha_internal_p
use C4::Biblio;

my $query = new CGI;
my $op    = $query->param('op');
$op ||= q{};
my $authtypecode = $query->param('authtypecode');
$authtypecode ||= q{};
my $dbh = C4::Context->dbh;

my $authid = $query->param('authid');
my ( $template, $loggedinuser, $cookie );

my $authtypes = getauthtypes;
my @authtypesloop;
foreach my $thisauthtype (
    sort {
        $authtypes->{$a}{'authtypetext'} cmp $authtypes->{$b}{'authtypetext'}
    }
    keys %$authtypes
  )
{
    my %row = (
        value        => $thisauthtype,

        }
    );
    &DelAuthority( $authid, 1 );

    $op = "do_search";
}
if ( $op eq "do_search" ) {

    # next/previous would not work anymore
    my @marclist_ini = $query->param('marclist');
    for ( my $i = 0 ; $i <= $#marclist ; $i++ ) {
        if ( $value[$i] ) {
            push @field_data, { term => "marclist", val => $marclist_ini[$i] };
            if ( !defined $and_or[$i] ) {
                $and_or[$i] = q{};
            }
            push @field_data, { term => "and_or", val => $and_or[$i] };
            if ( !defined $excluding[$i] ) {
                $excluding[$i] = q{};
            }
            push @field_data, { term => "excluding", val => $excluding[$i] };
            push @field_data, { term => "operator",  val => $operator[$i] };
            push @field_data, { term => "value",     val => $value[$i] };
        }
    }

    # construction of the url of each page


    my $from = ( $startfrom - 1 ) * $resultsperpage + 1;
    my $to;
    if ( !defined $total ) {
        $total = 0;
    }



}

$template->param( authtypesloop => \@authtypesloop, );
    authtypesloop => \@authtypesloop,
);

$template->{VARS}->{marcflavour} = C4::Context->preference("marcflavour");

- 

Return to bug 4198

Lines 31-50 use C4::Acquisition; Link Here

(-)a/authorities/authorities-home.pl (-24 / +25 lines)
31	use C4::Koha; # XXX subfield_is_koha_internal_p	31	use C4::Koha; # XXX subfield_is_koha_internal_p
32	use C4::Biblio;	32	use C4::Biblio;
33		33
34	my $query = new CGI;	34	my $query = new CGI;
35	my $op = $query->param('op');	35	my $op = $query->param('op');
36	$op \|\|= q{};	36	$op \|\|= q{};
37	my $authtypecode = $query->param('authtypecode');	37	my $authtypecode = $query->param('authtypecode');
38	$authtypecode \|\|= q{};	38	$authtypecode \|\|= q{};
39	my $dbh = C4::Context->dbh;	39	my $dbh = C4::Context->dbh;
40		40
41	my $authid = $query->param('authid');	41	my $authid = $query->param('authid');
42	my ( $template, $loggedinuser, $cookie );	42	my ( $template, $loggedinuser, $cookie );
43		43
44	my $authtypes = getauthtypes;	44	my $authtypes = getauthtypes;
45	my @authtypesloop;	45	my @authtypesloop;
46	foreach my $thisauthtype ( sort { $authtypes->{$a}{'authtypetext'} cmp $authtypes->{$b}{'authtypetext'} }	46	foreach my $thisauthtype (
47	keys %$authtypes )	47	sort {
		48	$authtypes->{$a}{'authtypetext'} cmp $authtypes->{$b}{'authtypetext'}
		49	}
		50	keys %$authtypes
		51	)
48	{	52	{
49	my %row = (	53	my %row = (
50	value => $thisauthtype,	54	value => $thisauthtype,
Lines 66-72 if ( $op eq "delete" ) { Link Here
66	}	70	}
67	);	71	);
68	&DelAuthority( $authid, 1 );	72	&DelAuthority( $authid, 1 );
69		73
70	$op = "do_search";	74	$op = "do_search";
71	}	75	}
72	if ( $op eq "do_search" ) {	76	if ( $op eq "do_search" ) {
Lines 115-133 if ( $op eq "do_search" ) { Link Here
115	# next/previous would not work anymore	119	# next/previous would not work anymore
116	my @marclist_ini = $query->param('marclist');	120	my @marclist_ini = $query->param('marclist');
117	for ( my $i = 0 ; $i <= $#marclist ; $i++ ) {	121	for ( my $i = 0 ; $i <= $#marclist ; $i++ ) {
118	if ($value[$i]){	122	if ( $value[$i] ) {
119	push @field_data, { term => "marclist", val => $marclist_ini[$i] };	123	push @field_data, { term => "marclist", val => $marclist_ini[$i] };
120	if (!defined $and_or[$i]) {	124	if ( !defined $and_or[$i] ) {
121	$and_or[$i] = q{};	125	$and_or[$i] = q{};
122	}	126	}
123	push @field_data, { term => "and_or", val => $and_or[$i] };	127	push @field_data, { term => "and_or", val => $and_or[$i] };
124	if (!defined $excluding[$i]) {	128	if ( !defined $excluding[$i] ) {
125	$excluding[$i] = q{};	129	$excluding[$i] = q{};
126	}	130	}
127	push @field_data, { term => "excluding", val => $excluding[$i] };	131	push @field_data, { term => "excluding", val => $excluding[$i] };
128	push @field_data, { term => "operator", val => $operator[$i] };	132	push @field_data, { term => "operator", val => $operator[$i] };
129	push @field_data, { term => "value", val => $value[$i] };	133	push @field_data, { term => "value", val => $value[$i] };
130	}	134	}
131	}	135	}
132		136
133	# construction of the url of each page	137	# construction of the url of each page
Lines 148-154 if ( $op eq "do_search" ) { Link Here
148		152
149	my $from = ( $startfrom - 1 ) * $resultsperpage + 1;	153	my $from = ( $startfrom - 1 ) * $resultsperpage + 1;
150	my $to;	154	my $to;
151	if (!defined $total) {	155	if ( !defined $total ) {
152	$total = 0;	156	$total = 0;
153	}	157	}
154		158
Lines 187-195 if ( $op eq '' ) { Link Here
187		191
188	}	192	}
189		193
190	$template->param(	194	$template->param( authtypesloop => \@authtypesloop, );
191	authtypesloop => \@authtypesloop,
192	);
193		195
194	$template->{VARS}->{marcflavour} = C4::Context->preference("marcflavour");	196	$template->{VARS}->{marcflavour} = C4::Context->preference("marcflavour");
195		197
196	-