Browse Source

place going

master
chris 21 years ago
parent
commit
69b5cabe5b
3 changed files with 6 additions and 7 deletions
  1. +2
    -3
      C4/Acquisitions.pm
  2. +1
    -1
      moredetail.pl
  3. +3
    -3
      updatebibitem.pl

+ 2
- 3
C4/Acquisitions.pm View File

@@ -405,13 +405,12 @@ sub modsubject {
}

sub modbibitem {
my
($bibitemnum,$itemtype,$isbn,$publishercode,$publicationdate,$classification,$dewey,$subclass,$illus,$pages,$volumeddesc,$notes,$size)=@_;
my ($bibitemnum,$itemtype,$isbn,$publishercode,$publicationdate,$classification,$dewey,$subclass,$illus,$pages,$volumeddesc,$notes,$size,$place)=@_;
my $dbh=C4Connect;
my $query="update biblioitems set itemtype='$itemtype',
isbn='$isbn',publishercode='$publishercode',publicationyear='$publicationdate',
classification='$classification',dewey='$dewey',subclass='$subclass',illus='$illus',
pages='$pages',volumeddesc='$volumeddesc',notes='$notes',size='$size'
pages='$pages',volumeddesc='$volumeddesc',notes='$notes',size='$size',place='$place'
where
biblioitemnumber=$bibitemnum";
my $sth=$dbh->prepare($query);


+ 1
- 1
moredetail.pl View File

@@ -74,7 +74,7 @@ print <<printend
<b>Classification:</b> $data->{'classification'}$dewey$data->{'subclass'}<br>
<b>ISBN:</b> $data->{'isbn'}<br>
<b>Publisher:</b> $data->{'publishercode'} <br>
<b>Place:</b><br>
<b>Place:</b> $data->{'place'}<br>
<b>Date:</b> $data->{'publicationyear'}<br>
<b>Volume:</b> $data->{'volumeddesc'}<br>
<b>Pages:</b> $data->{'pages'}<br>


+ 3
- 3
updatebibitem.pl View File

@@ -46,7 +46,7 @@ my $pages=checkinp($input->param('Pages'));
my $volumeddesc=checkinp($input->param('Volume'));
my $notes=checkinp($input->param('Notes'));
my $size=checkinp($input->param('Size'));
my $place=checkinp($input->param('Place'));
my (@items)=itemissues($bibitemnum);
#print @items;
my $count=@items;
@@ -82,7 +82,7 @@ if ($existing eq 'YES'){
my $loan;
if ($flag eq 'notall' && $flag2 eq 'leastone'){
$bibitemnum=newbiblioitem($bibnum,$itemtype,$volumeddesc,$classification);
modbibitem($bibitemnum,$itemtype,$isbn,$publishercode,$publicationdate,$classification,$dewey,$subclass,$illus,$pages,$volumeddesc,$notes,$size);
modbibitem($bibitemnum,$itemtype,$isbn,$publishercode,$publicationdate,$classification,$dewey,$subclass,$illus,$pages,$volumeddesc,$notes,$size,$place);
if ($itemtype =~ /REF/){
$loan=1;
} else {
@@ -95,7 +95,7 @@ if ($existing eq 'YES'){
}
} elsif ($flag2 eq 'leastone') {
modbibitem($bibitemnum,$itemtype,$isbn,$publishercode,$publicationdate,$classification,$dewey,$subclass,$illus,$pages,$volumeddesc,$notes,$size);
modbibitem($bibitemnum,$itemtype,$isbn,$publishercode,$publicationdate,$classification,$dewey,$subclass,$illus,$pages,$volumeddesc,$notes,$size,$place);
if ($itemtype =~ /REF/){
$loan=1;
} else {


Loading…
Cancel
Save