12 #print $input->header;
16 my $bibitemnum=checkinp
($input->param('bibitemnum'));
17 my $bibnum=checkinp
($input->param('bibnum'));
18 my $itemtype=checkinp
($input->param('Item'));
19 my $isbn=checkinp
($input->param('ISBN'));
20 my $publishercode=checkinp
($input->param('Publisher'));
21 my $publicationdate=checkinp
($input->param('Publication'));
22 my $class=checkinp
($input->param('Class'));
26 if ($itemtype ne 'NF'){
27 $classification=$class;
29 if ($class =~/[0-9]+/){
32 $dewey=~ s/[a-z]+//gi;
35 @temp=split(/[0-9]+\.[0-9]+/,$class);
37 @temp=split(/[0-9]+/,$class);
39 $classification=$temp[0];
41 # print $classification,$dewey,$subclass;
46 my $illus=checkinp
($input->param('Illustrations'));
47 my $pages=checkinp
($input->param('Pages'));
48 my $volumeddesc=checkinp
($input->param('Volume'));
49 my $notes=checkinp
($input->param('Notes'));
50 my $size=checkinp
($input->param('Size'));
51 my $place=checkinp
($input->param('Place'));
52 my (@items)=itemissues
($bibitemnum);
59 my $existing=$input->param('existing');
60 if ($existing eq 'YES'){
62 my $group=$input->param('existinggroup');
63 #go thru items assing selected ones to group
64 for (my $i=0;$i<$count;$i++){
65 my $temp="check_group_".$items[$i]->{'barcode'};
66 my $barcode=$input->param($temp);
68 moditem
($items[$i]->{'notforloan'},$items[$i]->{'itemnumber'},$group);
69 # print "modify $items[$i]->{'itemnumber'} $group";
76 for (my $i=0;$i<$count;$i++){
77 my $temp="check_group_".$items[$i]->{'barcode'};
78 $barcodes[$i]=$input->param($temp);
79 if ($barcodes[$i] eq ''){
86 if ($flag eq 'notall' && $flag2 eq 'leastone'){
87 $bibitemnum = &newbiblioitem
({ biblionumber
=> $bibnum,
88 itemtype
=> $itemtype,
89 volumeddesc
=> $volumeddesc,
90 classification
=> $classification });
91 modbibitem
($bibitemnum,$itemtype,$isbn,$publishercode,$publicationdate,$classification,$dewey,$subclass,$illus,$pages,$volumeddesc,$notes,$size,$place);
92 if ($itemtype =~ /REF/){
97 for (my $i=0;$i<$count;$i++){
98 if ($barcodes[$i] ne ''){
99 moditem
($loan,$items[$i]->{'itemnumber'},$bibitemnum);
103 } elsif ($flag2 eq 'leastone') {
104 modbibitem
($bibitemnum,$itemtype,$isbn,$publishercode,$publicationdate,$classification,$dewey,$subclass,$illus,$pages,$volumeddesc,$notes,$size,$place);
105 if ($itemtype =~ /REF/){
110 for (my $i=0;$i<$count;$i++){
111 if ($barcodes[$i] ne ''){
112 moditem
($loan,$items[$i]->{'itemnumber'},$bibitemnum);
118 print $input->redirect("moredetail.pl?type=intra&bib=$bibnum&bi=$bibitemnum");