12 my $bibitemnum = checkinp($input->param('bibitemnum'));
13 my $bibnum = checkinp($input->param('bibnum'));
14 my $itemtype = checkinp($input->param('Item'));
15 my $url = checkinp($input->param('url'));
16 my $isbn = checkinp($input->param('ISBN'));
17 my $publishercode = checkinp($input->param('Publisher'));
18 my $publicationdate = checkinp($input->param('Publication'));
19 my $class = checkinp($input->param('Class'));
20 my $illus = checkinp($input->param('Illustrations'));
21 my $pages = checkinp($input->param('Pages'));
22 my $volumeddesc = checkinp($input->param('Volume'));
23 my $notes = checkinp($input->param('Notes'));
24 my $size = checkinp($input->param('Size'));
25 my $place = checkinp($input->param('Place'));
30 if ($itemtype ne 'NF') {
31 $classification=$class;
34 if ($class =~/[0-9]+/) {
36 $dewey=~ s/[a-z]+//gi;
39 @temp=split(/[0-9]+\.[0-9]+/,$class);
41 @temp=split(/[0-9]+/,$class);
43 $classification=$temp[0];
51 my (@items) = &itemissues($bibitemnum);
55 my $existing=$input->param('existing');
56 if ($existing eq 'YES'){
58 my $group=$input->param('existinggroup');
59 #go thru items assing selected ones to group
60 for (my $i=0;$i<$count;$i++){
61 my $temp="check_group_".$items[$i]->{'barcode'};
62 my $barcode=$input->param($temp);
64 moditem($items[$i]->{'notforloan'},$items[$i]->{'itemnumber'},$group);
65 # print "modify $items[$i]->{'itemnumber'} $group";
72 for (my $i=0;$i<$count;$i++){
73 my $temp="check_group_".$items[$i]->{'barcode'};
74 $barcodes[$i]=$input->param($temp);
75 if ($barcodes[$i] eq ''){
82 if ($flag eq 'notall' && $flag2 eq 'leastone'){
83 $bibitemnum = &newbiblioitem({
84 biblionumber => $bibnum,
85 itemtype => $itemtype?$itemtype:"",
87 isbn => $isbn?$isbn:"",
88 publishercode => $publishercode?$publishercode:"",
89 publicationyear => $publicationdate?$publicationdate:"",
90 volumeddesc => $volumeddesc?$volumeddesc:"",
91 classification => $classification?$classification:"",
92 dewey => $dewey?$dewey:"",
93 subclass => $subclass?$subclass:"",
94 illus => $illus?$illus:"",
95 pages => $pages?$pages:"",
96 notes => $notes?$notes:"",
97 size => $size?$size:"",
98 place => $place?$place:"" });
99 if ($itemtype =~ /REF/){
104 for (my $i=0;$i<$count;$i++){
105 if ($barcodes[$i] ne ''){
106 moditem($loan,$items[$i]->{'itemnumber'},$bibitemnum);
110 } elsif ($flag2 eq 'leastone') {
112 biblioitemnumber => $bibitemnum,
113 itemtype => $itemtype?$itemtype:"",
115 isbn => $isbn?$isbn:"",
116 publishercode => $publishercode?$publishercode:"",
117 publicationyear => $publicationdate?$publicationdate:"",
118 classification => $classification?$classification:"",
119 dewey => $dewey?$dewey:"",
120 subclass => $subclass?$subclass:"",
121 illus => $illus?$illus:"",
122 pages => $pages?$pages:"",
123 volumeddesc => $volumeddesc?$volumeddesc:"",
124 notes => $notes?$notes:"",
125 size => $size?$size:"",
126 place => $place?$place:"" });
127 if ($itemtype =~ /REF/){
132 for (my $i=0;$i<$count;$i++){
133 if ($barcodes[$i] ne ''){
134 moditem($loan,$items[$i]->{'itemnumber'},$bibitemnum);
140 biblioitemnumber => $bibitemnum,
141 itemtype => $itemtype?$itemtype:"",
143 isbn => $isbn?$isbn:"",
144 publishercode => $publishercode?$publishercode:"",
145 publicationyear => $publicationdate?$publicationdate:"",
146 classification => $classification?$classification:"",
147 dewey => $dewey?$dewey:"",
148 subclass => $subclass?$subclass:"",
149 illus => $illus?$illus:"",
150 pages => $pages?$pages:"",
151 volumeddesc => $volumeddesc?$volumeddesc:"",
152 notes => $notes?$notes:"",
153 size => $size?$size:"",
154 place => $place?$place:"" });
157 print $input->redirect("moredetail.pl?type=intra&bib=$bibnum&bi=$bibitemnum");