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'));
23 my $illus = checkinp($input->param('Illustrations'));
24 my $pages = checkinp($input->param('Pages'));
25 my $volumeddesc = checkinp($input->param('Volume'));
26 my $notes = checkinp($input->param('Notes'));
27 my $size = checkinp($input->param('Size'));
28 my $place = checkinp($input->param('Place'));
33 if ($itemtype ne 'NF') {
34 $classification=$class;
37 if ($class =~/[0-9]+/) {
40 $dewey=~ s/[a-z]+//gi;
43 @temp=split(/[0-9]+\.[0-9]+/,$class);
45 @temp=split(/[0-9]+/,$class);
47 $classification=$temp[0];
49 # print $classification,$dewey,$subclass;
55 my (@items)=itemissues($bibitemnum);
62 my $existing=$input->param('existing');
63 if ($existing eq 'YES'){
65 my $group=$input->param('existinggroup');
66 #go thru items assing selected ones to group
67 for (my $i=0;$i<$count;$i++){
68 my $temp="check_group_".$items[$i]->{'barcode'};
69 my $barcode=$input->param($temp);
71 moditem($items[$i]->{'notforloan'},$items[$i]->{'itemnumber'},$group);
72 # print "modify $items[$i]->{'itemnumber'} $group";
79 for (my $i=0;$i<$count;$i++){
80 my $temp="check_group_".$items[$i]->{'barcode'};
81 $barcodes[$i]=$input->param($temp);
82 if ($barcodes[$i] eq ''){
89 if ($flag eq 'notall' && $flag2 eq 'leastone'){
90 $bibitemnum = &newbiblioitem({ biblionumber => $bibnum,
91 itemtype => $itemtype,
92 volumeddesc => $volumeddesc,
93 classification => $classification });
94 modbibitem($bibitemnum,$itemtype,$isbn,$publishercode,$publicationdate,$classification,$dewey,$subclass,$illus,$pages,$volumeddesc,$notes,$size,$place);
95 if ($itemtype =~ /REF/){
100 for (my $i=0;$i<$count;$i++){
101 if ($barcodes[$i] ne ''){
102 moditem($loan,$items[$i]->{'itemnumber'},$bibitemnum);
106 } elsif ($flag2 eq 'leastone') {
107 modbibitem($bibitemnum,$itemtype,$isbn,$publishercode,$publicationdate,$classification,$dewey,$subclass,$illus,$pages,$volumeddesc,$notes,$size,$place);
108 if ($itemtype =~ /REF/){
113 for (my $i=0;$i<$count;$i++){
114 if ($barcodes[$i] ne ''){
115 moditem($loan,$items[$i]->{'itemnumber'},$bibitemnum);
121 print $input->redirect("moredetail.pl?type=intra&bib=$bibnum&bi=$bibitemnum");