|
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 |
- |
|
|