11 #print $input->header;
14 my $bibitemnum = checkinp($input->param('bibitemnum'));
15 my $bibnum = checkinp($input->param('bibnum'));
16 my $itemtype = checkinp($input->param('Item'));
17 my $url = checkinp($input->param('url'));
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'));
22 my $illus = checkinp($input->param('Illustrations'));
23 my $pages = checkinp($input->param('Pages'));
24 my $volumeddesc = checkinp($input->param('Volume'));
25 my $notes = checkinp($input->param('Notes'));
26 my $size = checkinp($input->param('Size'));
27 my $place = checkinp($input->param('Place'));
32 if ($itemtype ne 'NF') {
33 $classification=$class;
36 if ($class =~/[0-9]+/) {
39 $dewey=~ s/[a-z]+//gi;
42 @temp=split(/[0-9]+\.[0-9]+/,$class);
44 @temp=split(/[0-9]+/,$class);
46 $classification=$temp[0];
48 # print $classification,$dewey,$subclass;
54 my (@items) = &itemissues($bibitemnum);
60 my $existing=$input->param('existing');
61 if ($existing eq 'YES'){
63 my $group=$input->param('existinggroup');
64 #go thru items assing selected ones to group
65 for (my $i=0;$i<$count;$i++){
66 my $temp="check_group_".$items[$i]->{'barcode'};
67 my $barcode=$input->param($temp);
69 moditem($items[$i]->{'notforloan'},$items[$i]->{'itemnumber'},$group);
70 # print "modify $items[$i]->{'itemnumber'} $group";
77 for (my $i=0;$i<$count;$i++){
78 my $temp="check_group_".$items[$i]->{'barcode'};
79 $barcodes[$i]=$input->param($temp);
80 if ($barcodes[$i] eq ''){
87 if ($flag eq 'notall' && $flag2 eq 'leastone'){
88 $bibitemnum = &newbiblioitem({
89 biblionumber => $bibnum,
90 itemtype => $itemtype?$itemtype:"",
92 isbn => $isbn?$isbn:"",
93 publishercode => $publishercode?$publishercode:"",
94 publicationyear => $publicationdate?$publicationdate:"",
95 volumeddesc => $volumeddesc?$volumeddesc:"",
96 classification => $classification?$classification:"",
97 dewey => $dewey?$dewey:"",
98 subclass => $subclass?$subclass:"",
99 illus => $illus?$illus:"",
100 pages => $pages?$pages:"",
101 notes => $notes?$notes:"",
102 size => $size?$size:"",
103 place => $place?$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);
115 } elsif ($flag2 eq 'leastone') {
117 biblioitemnumber => $bibitemnum,
118 itemtype => $itemtype?$itemtype:"",
120 isbn => $isbn?$isbn:"",
121 publishercode => $publishercode?$publishercode:"",
122 publicationyear => $publicationdate?$publicationdate:"",
123 classification => $classification?$classification:"",
124 dewey => $dewey?$dewey:"",
125 subclass => $subclass?$subclass:"",
126 illus => $illus?$illus:"",
127 pages => $pages?$pages:"",
128 volumeddesc => $volumeddesc?$volumeddesc:"",
129 notes => $notes?$notes:"",
130 size => $size?$size:"",
131 place => $place?$place:"" });
132 if ($itemtype =~ /REF/){
137 for (my $i=0;$i<$count;$i++){
138 if ($barcodes[$i] ne ''){
139 moditem($loan,$items[$i]->{'itemnumber'},$bibitemnum);
145 biblioitemnumber => $bibitemnum,
146 itemtype => $itemtype?$itemtype:"",
148 isbn => $isbn?$isbn:"",
149 publishercode => $publishercode?$publishercode:"",
150 publicationyear => $publicationdate?$publicationdate:"",
151 classification => $classification?$classification:"",
152 dewey => $dewey?$dewey:"",
153 subclass => $subclass?$subclass:"",
154 illus => $illus?$illus:"",
155 pages => $pages?$pages:"",
156 volumeddesc => $volumeddesc?$volumeddesc:"",
157 notes => $notes?$notes:"",
158 size => $size?$size:"",
159 place => $place?$place:"" });
162 print $input->redirect("moredetail.pl?type=intra&bib=$bibnum&bi=$bibitemnum");