MARC authority management (continued)
This commit is contained in:
parent
e7e930ab39
commit
5cf0a788a1
4 changed files with 31 additions and 33 deletions
|
@ -119,11 +119,8 @@ if ($op eq 'add_form') {
|
||||||
$toggle="white";
|
$toggle="white";
|
||||||
}
|
}
|
||||||
$row_data{tab} = CGI::scrolling_list(-name=>'tab',
|
$row_data{tab} = CGI::scrolling_list(-name=>'tab',
|
||||||
-values=>['-1','0','1','2','3','4','5','6','7','8','9'],
|
-values=>['-1','0'],
|
||||||
-labels => {'-1' =>'ignore','0'=>'0','1'=>'1',
|
-labels => {'-1' =>'No (ignore)','0'=>'yes'
|
||||||
'2' =>'2','3'=>'3','4'=>'4',
|
|
||||||
'5' =>'5','6'=>'6','7'=>'7',
|
|
||||||
'8' =>'8','9'=>'9',
|
|
||||||
},
|
},
|
||||||
-default=>$data->{'tab'},
|
-default=>$data->{'tab'},
|
||||||
-size=>1,
|
-size=>1,
|
||||||
|
@ -155,11 +152,8 @@ if ($op eq 'add_form') {
|
||||||
for (my $i=1;$i<=$more_subfields;$i++) {
|
for (my $i=1;$i<=$more_subfields;$i++) {
|
||||||
my %row_data; # get a fresh hash for the row data
|
my %row_data; # get a fresh hash for the row data
|
||||||
$row_data{tab} = CGI::scrolling_list(-name=>'tab',
|
$row_data{tab} = CGI::scrolling_list(-name=>'tab',
|
||||||
-values=>['-1','0','1','2','3','4','5','6','7','8','9'],
|
-values=>['-1','0'],
|
||||||
-labels => {'-1' =>'ignore','0'=>'0','1'=>'1',
|
-labels => {'-1' =>'no (ignore)','0'=>'yes',
|
||||||
'2' =>'2','3'=>'3','4'=>'4',
|
|
||||||
'5' =>'5','6'=>'6','7'=>'7',
|
|
||||||
'8' =>'8','9'=>'9',
|
|
||||||
},
|
},
|
||||||
-default=>"",
|
-default=>"",
|
||||||
-size=>1,
|
-size=>1,
|
||||||
|
|
|
@ -286,11 +286,11 @@ sub duplicate_auth_framework {
|
||||||
$sth_insert->execute($tagfield,$liblibrarian,$libopac,$repeatable,$mandatory,$authorised_value,$newauthtype);
|
$sth_insert->execute($tagfield,$liblibrarian,$libopac,$repeatable,$mandatory,$authorised_value,$newauthtype);
|
||||||
}
|
}
|
||||||
|
|
||||||
$sth = $dbh->prepare("select authtypecode,tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,authorised_value,thesaurus_category,value_builder,seealso from auth_subfield_structure where authtypecode=?");
|
$sth = $dbh->prepare("select authtypecode,tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,tab,authorised_value,seealso from auth_subfield_structure where authtypecode=?");
|
||||||
$sth->execute($oldauthtype);
|
$sth->execute($oldauthtype);
|
||||||
$sth_insert = $dbh->prepare("insert into auth_subfield_structure (authtypecode,tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,authorised_value,thesaurus_category,value_builder,seealso) values (?,?,?,?,?,?,?,?,?,?,?,?,?)");
|
$sth_insert = $dbh->prepare("insert into auth_subfield_structure (authtypecode,tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,tab,authorised_value,value_builder,seealso) values (?,?,?,?,?,?,?,?,?,?,?)");
|
||||||
while ( my ($authtypecode, $tagfield, $tagsubfield, $liblibrarian, $libopac, $repeatable, $mandatory, $kohafield, $tab, $authorised_value, $thesaurus_category, $value_builder, $seealso) = $sth->fetchrow) {
|
while ( my ($authtypecode, $tagfield, $tagsubfield, $liblibrarian, $libopac, $repeatable, $mandatory, $tab, $authorised_value, $thesaurus_category, $seealso) = $sth->fetchrow) {
|
||||||
$sth_insert->execute($newauthtype, $tagfield, $tagsubfield, $liblibrarian, $libopac, $repeatable, $mandatory, $kohafield, $tab, $authorised_value, $thesaurus_category, $value_builder, $seealso);
|
$sth_insert->execute($newauthtype, $tagfield, $tagsubfield, $liblibrarian, $libopac, $repeatable, $mandatory, $tab, $authorised_value, $thesaurus_category, $seealso);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
@ -79,14 +79,16 @@ if ($op eq 'add_form') {
|
||||||
my $data;
|
my $data;
|
||||||
if ($authtypecode) {
|
if ($authtypecode) {
|
||||||
my $dbh = C4::Context->dbh;
|
my $dbh = C4::Context->dbh;
|
||||||
my $sth=$dbh->prepare("select authtypecode,authtypetext,auth_tag_to_report from auth_types where authtypecode=?");
|
my $sth=$dbh->prepare("select * from auth_types where authtypecode=?");
|
||||||
$sth->execute($authtypecode);
|
$sth->execute($authtypecode);
|
||||||
$data=$sth->fetchrow_hashref;
|
$data=$sth->fetchrow_hashref;
|
||||||
$sth->finish;
|
$sth->finish;
|
||||||
}
|
}
|
||||||
|
warn "=> $data->{'authtypetext'} : ".$data->{'summary'};
|
||||||
$template->param(authtypecode => $authtypecode,
|
$template->param(authtypecode => $authtypecode,
|
||||||
authtypetext => $data->{'authtypetext'},
|
authtypetext => $data->{'authtypetext'},
|
||||||
auth_tag_to_report => $data->{'auth_tag_to_report'},
|
auth_tag_to_report => $data->{'auth_tag_to_report'},
|
||||||
|
summary => $data->{'summary'},
|
||||||
);
|
);
|
||||||
;
|
;
|
||||||
# END $OP eq ADD_FORM
|
# END $OP eq ADD_FORM
|
||||||
|
@ -94,8 +96,8 @@ if ($op eq 'add_form') {
|
||||||
# called by add_form, used to insert/modify data in DB
|
# called by add_form, used to insert/modify data in DB
|
||||||
} elsif ($op eq 'add_validate') {
|
} elsif ($op eq 'add_validate') {
|
||||||
my $dbh = C4::Context->dbh;
|
my $dbh = C4::Context->dbh;
|
||||||
my $sth=$dbh->prepare("replace auth_types (authtypecode,authtypetext,auth_tag_to_report) values (?,?,?)");
|
my $sth=$dbh->prepare("replace auth_types (authtypecode,authtypetext,auth_tag_to_report,summary) values (?,?,?,?)");
|
||||||
$sth->execute($input->param('authtypecode'),$input->param('authtypetext'),$input->param('auth_tag_to_report'));
|
$sth->execute($input->param('authtypecode'),$input->param('authtypetext'),$input->param('auth_tag_to_report'),$input->param('summary'));
|
||||||
$sth->finish;
|
$sth->finish;
|
||||||
print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=authtypes.pl\"></html>";
|
print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=authtypes.pl\"></html>";
|
||||||
exit;
|
exit;
|
||||||
|
@ -114,13 +116,14 @@ if ($op eq 'add_form') {
|
||||||
$sth->finish;
|
$sth->finish;
|
||||||
}
|
}
|
||||||
|
|
||||||
my $sth=$dbh->prepare("select authtypecode,authtypetext from auth_types where authtypecode=?");
|
my $sth=$dbh->prepare("select * from auth_types where authtypecode=?");
|
||||||
$sth->execute($authtypecode);
|
$sth->execute($authtypecode);
|
||||||
my $data=$sth->fetchrow_hashref;
|
my $data=$sth->fetchrow_hashref;
|
||||||
$sth->finish;
|
$sth->finish;
|
||||||
|
|
||||||
$template->param(authtypecode => $authtypecode,
|
$template->param(authtypecode => $authtypecode,
|
||||||
authtypetext => $data->{'authtypetext'},
|
authtypetext => $data->{'authtypetext'},
|
||||||
|
summary => $data->{'summary'},
|
||||||
total => $total);
|
total => $total);
|
||||||
# END $OP eq DELETE_CONFIRM
|
# END $OP eq DELETE_CONFIRM
|
||||||
################## DELETE_CONFIRMED ##################################
|
################## DELETE_CONFIRMED ##################################
|
||||||
|
@ -155,6 +158,7 @@ if ($op eq 'add_form') {
|
||||||
$row_data{authtypecode} = $results->[$i]{'authtypecode'};
|
$row_data{authtypecode} = $results->[$i]{'authtypecode'};
|
||||||
$row_data{authtypetext} = $results->[$i]{'authtypetext'};
|
$row_data{authtypetext} = $results->[$i]{'authtypetext'};
|
||||||
$row_data{auth_tag_to_report} = $results->[$i]{'auth_tag_to_report'};
|
$row_data{auth_tag_to_report} = $results->[$i]{'auth_tag_to_report'};
|
||||||
|
$row_data{summary} = $results->[$i]{'summary'};
|
||||||
push(@loop_data, \%row_data);
|
push(@loop_data, \%row_data);
|
||||||
}
|
}
|
||||||
$template->param(loop => \@loop_data);
|
$template->param(loop => \@loop_data);
|
||||||
|
|
|
@ -121,12 +121,12 @@ if ($op eq 'add_form') {
|
||||||
push (@authorised_values,"itemtypes");
|
push (@authorised_values,"itemtypes");
|
||||||
# build thesaurus categories list
|
# build thesaurus categories list
|
||||||
$sth2->finish;
|
$sth2->finish;
|
||||||
$sth2 = $dbh->prepare("select distinct category from bibliothesaurus");
|
$sth2 = $dbh->prepare("select authtypecode from auth_types");
|
||||||
$sth2->execute;
|
$sth2->execute;
|
||||||
my @thesaurus_category;
|
my @authtypes;
|
||||||
push @thesaurus_category,"";
|
push @authtypes,"";
|
||||||
while ((my $category) = $sth2->fetchrow_array) {
|
while ((my $authtypecode) = $sth2->fetchrow_array) {
|
||||||
push @thesaurus_category, $category;
|
push @authtypes, $authtypecode;
|
||||||
}
|
}
|
||||||
# build value_builder list
|
# build value_builder list
|
||||||
my @value_builder=('');
|
my @value_builder=('');
|
||||||
|
@ -184,9 +184,9 @@ if ($op eq 'add_form') {
|
||||||
-size=>1,
|
-size=>1,
|
||||||
-multiple=>0,
|
-multiple=>0,
|
||||||
);
|
);
|
||||||
$row_data{thesaurus_category} = CGI::scrolling_list(-name=>'thesaurus_category',
|
$row_data{authtypes} = CGI::scrolling_list(-name=>'authtypecode',
|
||||||
-values=> \@thesaurus_category,
|
-values=> \@authtypes,
|
||||||
-default=>$data->{'thesaurus_category'},
|
-default=>$data->{'authtypecode'},
|
||||||
-size=>1,
|
-size=>1,
|
||||||
-multiple=>0,
|
-multiple=>0,
|
||||||
);
|
);
|
||||||
|
@ -231,8 +231,8 @@ if ($op eq 'add_form') {
|
||||||
-size=>1,
|
-size=>1,
|
||||||
-multiple=>0,
|
-multiple=>0,
|
||||||
);
|
);
|
||||||
$row_data{thesaurus_category} = CGI::scrolling_list(-name=>'thesaurus_category',
|
$row_data{authtypes} = CGI::scrolling_list(-name=>'authtypecode',
|
||||||
-values=> \@thesaurus_category,
|
-values=> \@authtypes,
|
||||||
-size=>1,
|
-size=>1,
|
||||||
-multiple=>0,
|
-multiple=>0,
|
||||||
);
|
);
|
||||||
|
@ -253,7 +253,7 @@ if ($op eq 'add_form') {
|
||||||
} elsif ($op eq 'add_validate') {
|
} elsif ($op eq 'add_validate') {
|
||||||
my $dbh = C4::Context->dbh;
|
my $dbh = C4::Context->dbh;
|
||||||
$template->param(tagfield => "$input->param('tagfield')");
|
$template->param(tagfield => "$input->param('tagfield')");
|
||||||
my $sth=$dbh->prepare("replace marc_subfield_structure (tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,seealso,authorised_value,thesaurus_category,value_builder,hidden,isurl,frameworkcode)
|
my $sth=$dbh->prepare("replace marc_subfield_structure (tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,seealso,authorised_value,authtypecode,value_builder,hidden,isurl,frameworkcode)
|
||||||
values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)");
|
values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)");
|
||||||
my @tagsubfield = $input->param('tagsubfield');
|
my @tagsubfield = $input->param('tagsubfield');
|
||||||
my @liblibrarian = $input->param('liblibrarian');
|
my @liblibrarian = $input->param('liblibrarian');
|
||||||
|
@ -262,7 +262,7 @@ if ($op eq 'add_form') {
|
||||||
my @tab = $input->param('tab');
|
my @tab = $input->param('tab');
|
||||||
my @seealso = $input->param('seealso');
|
my @seealso = $input->param('seealso');
|
||||||
my @authorised_values = $input->param('authorised_value');
|
my @authorised_values = $input->param('authorised_value');
|
||||||
my @thesaurus_category = $input->param('thesaurus_category');
|
my @authtypecodes = $input->param('authtypecode');
|
||||||
my @value_builder =$input->param('value_builder');
|
my @value_builder =$input->param('value_builder');
|
||||||
for (my $i=0; $i<= $#tagsubfield ; $i++) {
|
for (my $i=0; $i<= $#tagsubfield ; $i++) {
|
||||||
my $tagfield =$input->param('tagfield');
|
my $tagfield =$input->param('tagfield');
|
||||||
|
@ -276,7 +276,7 @@ if ($op eq 'add_form') {
|
||||||
my $tab =$tab[$i];
|
my $tab =$tab[$i];
|
||||||
my $seealso =$seealso[$i];
|
my $seealso =$seealso[$i];
|
||||||
my $authorised_value =$authorised_values[$i];
|
my $authorised_value =$authorised_values[$i];
|
||||||
my $thesaurus_category =$thesaurus_category[$i];
|
my $authtypecode =$authtypecodes[$i];
|
||||||
my $value_builder=$value_builder[$i];
|
my $value_builder=$value_builder[$i];
|
||||||
my $hidden = $input->param("hidden$i")?1:0;
|
my $hidden = $input->param("hidden$i")?1:0;
|
||||||
my $isurl = $input->param("isurl$i")?1:0;
|
my $isurl = $input->param("isurl$i")?1:0;
|
||||||
|
@ -292,7 +292,7 @@ if ($op eq 'add_form') {
|
||||||
$tab,
|
$tab,
|
||||||
$seealso,
|
$seealso,
|
||||||
$authorised_value,
|
$authorised_value,
|
||||||
$thesaurus_category,
|
$authtypecode,
|
||||||
$value_builder,
|
$value_builder,
|
||||||
$hidden,
|
$hidden,
|
||||||
$isurl,
|
$isurl,
|
||||||
|
@ -357,7 +357,7 @@ if ($op eq 'add_form') {
|
||||||
$row_data{tab} = $results->[$i]{'tab'};
|
$row_data{tab} = $results->[$i]{'tab'};
|
||||||
$row_data{seealso} = $results->[$i]{'seealso'};
|
$row_data{seealso} = $results->[$i]{'seealso'};
|
||||||
$row_data{authorised_value} = $results->[$i]{'authorised_value'};
|
$row_data{authorised_value} = $results->[$i]{'authorised_value'};
|
||||||
$row_data{thesaurus_category} = $results->[$i]{'thesaurus_category'};
|
$row_data{authtypecode} = $results->[$i]{'authtypecode'};
|
||||||
$row_data{value_builder} = $results->[$i]{'value_builder'};
|
$row_data{value_builder} = $results->[$i]{'value_builder'};
|
||||||
$row_data{hidden} = $results->[$i]{'hidden'};
|
$row_data{hidden} = $results->[$i]{'hidden'};
|
||||||
$row_data{isurl} = $results->[$i]{'isurl'};
|
$row_data{isurl} = $results->[$i]{'isurl'};
|
||||||
|
|
Loading…
Reference in a new issue