10 #print $input->header;
14 #my $title=checkinp($input->param('Title'));
15 #my $author=checkinp($input->param('Author'));
16 my $bibnum=checkinp($input->param('bibnum'));
17 my $itemnum=checkinp($input->param('itemnumber'));
18 my $copyright=checkinp($input->param('Copyright'));
19 my $seriestitle=checkinp($input->param('Series'));
20 my $serial=checkinp($input->param('Serial'));
21 my $unititle=checkinp($input->param('Unititle'));
22 my $notes=checkinp($input->param('ItemNotes'));
24 #need to do barcode check
25 my $barcode=$input->param('Barcode');
26 #modbiblio($bibnum,$title,$author,$copyright,$seriestitle,$serial,$unititle,$notes);
28 my $bibitemnum=checkinp($input->param('bibitemnum'));
30 my $itemtype=checkinp($input->param('Item'));
31 my $isbn=checkinp($input->param('ISBN'));
32 my $publishercode=checkinp($input->param('Publisher'));
33 my $publicationdate=checkinp($input->param('Publication'));
34 my $class=checkinp($input->param('Class'));
35 my $homebranch=checkinp($input->param('Home'));
36 my $lost=$input->param('Lost');
37 my $wthdrawn=$input->param('withdrawn');
41 if ($itemtype ne 'NF'){
42 $classification=$class;
44 if ($class =~/[0-9]+/){
47 $dewey=~ s/[a-z]+//gi;
50 @temp=split(/[0-9]+\.[0-9]+/,$class);
52 @temp=split(/[0-9]+/,$class);
54 $classification=$temp[0];
56 # print $classification,$dewey,$subclass;
60 my $illus=checkinp($input->param('Illustrations'));
61 my $pages=checkinp($input->param('Pages'));
62 my $volumeddesc=checkinp($input->param('Volume'));
64 #have to check how many items are attached to this bibitem, if one, just change it,
65 #if more than one, we must create a new one.
66 #my $number=countitems($bibitemnum);
69 #check if bibitemneeds modifying
70 # my $needsmod=needsmod($bibitemnum,$itemtype);
71 # if ($needsmod != 1){
72 # $bibitemnum=newbiblioitem($bibnum,$itemtype,$volumeddesc,$classification);
75 #modbibitem($bibitemnum,$itemtype,$isbn,$publishercode,$publicationdate,$classification,$dewey,$subclass,$illus,$pages,$volumeddesc);
76 moditem('loan',$itemnum,$bibitemnum,$barcode,$notes,$homebranch,$lost,$wthdrawn);
78 print $input->redirect("moredetail.pl?type=intra&bib=$bibnum&bi=$bibitemnum");