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

(-)a/cataloguing/z3950_auth_search.pl (-27 / +24 lines)
Lines 33-38 my $input = CGI->new; Link Here
33
my $dbh          = C4::Context->dbh;
33
my $dbh          = C4::Context->dbh;
34
my $error         = $input->param('error');
34
my $error         = $input->param('error');
35
my $authid  = $input->param('authid') || 0;
35
my $authid  = $input->param('authid') || 0;
36
my $op            = $input->param('op')||'';
36
37
37
my $record         = GetAuthority($authid);
38
my $record         = GetAuthority($authid);
38
my $marc_flavour = C4::Context->preference('marcflavour');
39
my $marc_flavour = C4::Context->preference('marcflavour');
Lines 44-77 my $authfields_mapping = { Link Here
44
    'subject'          => $marc_flavour eq 'MARC21' ? '150' : '250',
45
    'subject'          => $marc_flavour eq 'MARC21' ? '150' : '250',
45
};
46
};
46
47
47
my $nameany     = $input->param('nameany');
48
my $nameany          = $input->param('nameany');
48
my $authorany     = $input->param('authorany');
49
my $authorany        = $input->param('authorany');
49
my $authorcorp =
50
my $title            = $input->param('title');
50
    $record
51
my $authorpersonal   = $input->param('authorpersonal');
51
  ? $record->subfield( $authfields_mapping->{'authorcorp'}, 'a' )
52
my $authormeetingcon = $input->param('authormeetingcon');
52
  : $input->param('authorcorp');
53
my $uniformtitle     = $input->param('uniformtitle');
53
my $authorpersonal =
54
my $subject          = $input->param('subject');
54
    $record
55
my $authorcorp       = $input->param('authorcorp');
55
  ? $record->subfield( $authfields_mapping->{'authorpersonal'}, 'a' )
56
my $subjectsubdiv    = $input->param('subjectsubdiv');
56
  : $input->param('authorpersonal');
57
my $srchany          = $input->param('srchany');
57
my $authormeetingcon =
58
    $record
59
  ? $record->subfield( $authfields_mapping->{'authormeetingcon'}, 'a' )
60
  : $input->param('authormeetingcon');
61
58
62
my $title         = $input->param('title');
59
# If replacing an existing record we want to initially populate the form with record info,
63
my $uniformtitle =
60
# however, we want to use entered inputs when searching
64
    $record
61
if ( $record && $op ne 'do_search' ) {
65
  ? $record->subfield( $authfields_mapping->{'uniformtitle'}, 'a' )
62
    $authorcorp ||=
66
  : $input->param('uniformtitle');
63
      $record->subfield( $authfields_mapping->{'authorcorp'}, 'a' );
67
my $subject =
64
    $authorpersonal ||=
68
    $record
65
      $record->subfield( $authfields_mapping->{'authorpersonal'}, 'a' );
69
  ? $record->subfield( $authfields_mapping->{'subject'}, 'a' )
66
    $authormeetingcon ||=
70
  : $input->param('subject');
67
      $record->subfield( $authfields_mapping->{'authormeetingcon'}, 'a' );
68
    $uniformtitle ||=
69
      $record->subfield( $authfields_mapping->{'uniformtitle'}, 'a' );
70
    $subject ||= $record->subfield( $authfields_mapping->{'subject'}, 'a' );
71
}
71
72
72
my $subjectsubdiv       = $input->param('subjectsubdiv');
73
my $srchany       = $input->param('srchany');
74
my $op            = $input->param('op')||'';
75
my $page            = $input->param('current_page') || 1;
73
my $page            = $input->param('current_page') || 1;
76
my $index =$input->param('index');
74
my $index =$input->param('index');
77
$page = $input->param('goto_page') if $input->param('changepage_goto');
75
$page = $input->param('goto_page') if $input->param('changepage_goto');
78
- 

Return to bug 33445