11 #print $input->header;
15 my $bibitemnum=checkinp($input->param('bibitemnum'));
16 my $bibnum=checkinp($input->param('bibnum'));
17 my $itemtype=checkinp($input->param('Item'));
18 my $isbn=checkinp($input->param('ISBN'));
19 my $publishercode=checkinp($input->param('Publisher'));
20 my $publicationdate=checkinp($input->param('Publication'));
21 my $class=checkinp($input->param('Class'));
25 if ($itemtype ne 'NF'){
26 $classification=$class;
28 if ($class =~/[0-9]+/){
31 $dewey=~ s/[a-z]+//gi;
34 @temp=split(/[0-9]+\.[0-9]+/,$class);
36 @temp=split(/[0-9]+/,$class);
38 $classification=$temp[0];
40 # print $classification,$dewey,$subclass;
45 my $illus=checkinp($input->param('Illustrations'));
46 my $pages=checkinp($input->param('Pages'));
47 my $volumeddesc=checkinp($input->param('Volume'));
48 my $notes=checkinp($input->param('Notes'));
49 my $size=checkinp($input->param('Size'));
50 my $place=checkinp($input->param('Place'));
51 my (@items)=itemissues($bibitemnum);
58 my $existing=$input->param('existing');
59 if ($existing eq 'YES'){
61 my $group=$input->param('existinggroup');
62 #go thru items assing selected ones to group
63 for (my $i=0;$i<$count;$i++){
64 my $temp="check_group_".$items[$i]->{'barcode'};
65 my $barcode=$input->param($temp);
67 moditem($items[$i]->{'notforloan'},$items[$i]->{'itemnumber'},$group);
68 # print "modify $items[$i]->{'itemnumber'} $group";
75 for (my $i=0;$i<$count;$i++){
76 my $temp="check_group_".$items[$i]->{'barcode'};
77 $barcodes[$i]=$input->param($temp);
78 if ($barcodes[$i] eq ''){
85 if ($flag eq 'notall' && $flag2 eq 'leastone'){
86 $bibitemnum = &newbiblioitem({ biblionumber => $bibnum,
87 itemtype => $itemtype,
88 volumeddesc => $volumeddesc,
89 classification => $classification });
90 modbibitem($bibitemnum,$itemtype,$isbn,$publishercode,$publicationdate,$classification,$dewey,$subclass,$illus,$pages,$volumeddesc,$notes,$size,$place);
91 if ($itemtype =~ /REF/){
96 for (my $i=0;$i<$count;$i++){
97 if ($barcodes[$i] ne ''){
98 moditem($loan,$items[$i]->{'itemnumber'},$bibitemnum);
102 } elsif ($flag2 eq 'leastone') {
103 modbibitem($bibitemnum,$itemtype,$isbn,$publishercode,$publicationdate,$classification,$dewey,$subclass,$illus,$pages,$volumeddesc,$notes,$size,$place);
104 if ($itemtype =~ /REF/){
109 for (my $i=0;$i<$count;$i++){
110 if ($barcodes[$i] ne ''){
111 moditem($loan,$items[$i]->{'itemnumber'},$bibitemnum);
117 print $input->redirect("moredetail.pl?type=intra&bib=$bibnum&bi=$bibitemnum");