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

(-)a/authorities/authorities-home.pl (-24 / +25 lines)
Lines 31-50 use C4::Acquisition; Link Here
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
- 

Return to bug 4198