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