gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Applying patch from Matt Kraai to pick F or NF based on presense of a dewey 

number when adding a book via marcimport.pl
This commit is contained in:
tonnesen 2002-06-27 17:41:26 +00:00
parent 997f27e801
commit f966c6b59c
2 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
C4/Output.pm
View File

@ -477,6 +477,7 @@ sub getkeytableselectoptions {
$keyfieldname, # column name of code to use in option list
$descfieldname, # column name of descriptive field
$showkey, # flag to show key in description
$default, # optional default key
)=@_;
my $selectclause; # return value
@ -502,6 +503,11 @@ sub getkeytableselectoptions {
while ( ($key, $desc) = $sth->fetchrow) {
if ($showkey || ! $desc ) { $desc="$key - $desc"; }
$selectclause.="<option value='$key'>$desc\n";
$selectclause.="<option";
if (defined $default && $default eq $key) {
$selectclause.=" selected";
}
$selectclause.=" value='$key'>$desc\n";
print "<PRE>Sel=$selectclause </PRE>\n" if $debug;
}
return $selectclause;

14
acqui.simple/marcimport.pl
View File

@ -250,9 +250,17 @@ RECORD:
$origlccn=$input->hidden(-name=>'origlccn', -default=>$lccn);
$origcontrolnumber=$input->hidden(-name=>'origcontrolnumber', -default=>$controlnumber);
my $defaultitemtype;
if (defined $deweyinput) {
$defaultitemtype = 'NF';
} else {
$defaultitemtype = 'F';
}
#print "<PRE>getting itemtypeselect</PRE>\n";
$itemtypeselect=&getkeytableselectoptions(
$dbh, 'itemtypes', 'itemtype', 'description', 1);
$dbh, 'itemtypes', 'itemtype', 'description', 1, $defaultitemtype);
#print "<PRE>it=$itemtypeselect</PRE>\n";
($qissn) || ($qissn='NIL');
@ -1110,6 +1118,10 @@ sub FormatMarcText {
#---------------
# $Log$
# Revision 1.6.2.28 2002/06/27 17:41:26 tonnesen
# Applying patch from Matt Kraai to pick F or NF based on presense of a dewey
# number when adding a book via marcimport.pl
#
# Revision 1.6.2.27 2002/06/26 15:52:55 amillar
# Fix display of marc tag labels and indicators
#