3 #script to display detailed information
14 #whether it is called from the opac of the intranet
15 my $type=$input->param('type');
30 print startmenu($type);
33 my $bib=$input->param('bib');
34 my $title=$input->param('title');
36 print "<a href=request.pl?bib=$bib><img height=42 WIDTH=120 BORDER=0 src=\"/images/requests.gif\" align=right border=0></a>";
40 my @items=ItemInfo(\$blah,$bib,$type);
41 my $dat=bibdata($bib);
43 my ($count3,$addauthor)=addauthor($bib);
44 my $additional=$addauthor->[0]->{'author'};
45 for (my $i=1;$i<$count3;$i++){
46 $additional=$additional."|".$addauthor->[$i]->{'author'};
48 my @temp=split('\t',$items[0]);
49 if ($type eq 'catmain'){
50 print mkheadr(3,"Catalogue Maintenance");
52 if ($dat->{'author'} ne ''){
53 print mkheadr(3,"$dat->{'title'} ($dat->{'author'}) $temp[4]");
55 print mkheadr(3,"$dat->{'title'} $temp[4]");
59 <TABLE CELLSPACING=0 CELLPADDING=5 border=1 align=left width="220">
61 <!-----------------BIBLIO RECORD TABLE--------->
64 <form action=/cgi-bin/koha/modbib.pl method=post>
65 <input type=hidden name=bibnum value=$bib>
72 print "background=\"/images/background-mem.gif\"";
90 print "<INPUT TYPE=\"image\" name=\"submit\" VALUE=\"modify\" height=42 WIDTH=93 BORDER=0 src=\"/images/modify-mem.gif\">
91 <INPUT TYPE=\"image\" name=\"delete\" VALUE=\"delete\" height=42 WIDTH=93 BORDER=0 src=\"/images/delete-mem.gif\">";
95 <FONT SIZE=2 face="arial, helvetica">
100 if ($type ne 'opac'){
102 <b>Subtitle:</b> $dat->{'subtitle'}<br>
103 <b>Author:</b> $dat->{'author'}<br>
104 <b>Additional Author:</b> $additional<br>
105 <b>Series Title:</b> $dat->{'seriestitle'}<br>
106 <b>Subject:</b> $dat->{'subject'}<br>
107 <b>Copyright:</b> $dat->{'copyrightdate'}<br>
108 <b>Notes:</b> $dat->{'notes'}<br>
109 <b>Unititle:</b> $dat->{'unititle'}<br>
110 <b>Analytical Author:</b> <br>
111 <b>Analytical Title:</b> <br>
112 <b>Serial:</b> $dat->{'serial'}<br>
113 <b>Total Number of Items:</b> $count
119 if ($dat->{'subtitle'} ne ''){
120 print "<b>Subtitle:</b> $dat->{'subtitle'}<br>";
122 if ($dat->{'author'} ne ''){
123 print "<b>Author:</b> $dat->{'author'}<br>";
125 #Additional Author: <br>
126 if ($dat->{'seriestitle'} ne ''){
127 print "<b>Seriestitle:</b> $dat->{'seriestitle'}<br>";
129 if ($dat->{'subject'} ne ''){
130 print "<b>Subject:</b> $dat->{'subject'}<br>";
132 if ($dat->{'copyrightdate'} ne ''){
133 print "<b>Copyright:</b> $dat->{'copyrightdate'}<br>";
135 if ($dat->{'notes'} ne ''){
136 print "<b>Notes:</b> $dat->{'notes'}<br>";
138 if ($dat->{'unititle'} ne ''){
139 print "<b>Unititle:</b> $dat->{'unititle'}<br>";
141 #Analytical Author: <br>
142 #Analytical Title: <br>
143 if ($dat->{'serial'} ne '0'){
144 print "<b>Serial:</b> Yes<br>";
146 print "<b>Total Number of Items:</b> $count
157 <img src="/images/holder.gif" width=16 height=300 align=left>
168 if ($type eq 'opac'){
170 print mktablerow(6,$main,'Item Type','Class','Branch','Date Due','Last Seen');
172 print mktablerow(6,$main,'Itemtype','Class','Location','Date Due','Last Seen','Barcode',"/images/background-mem.gif");
176 # print $items[$i],"<br>";
177 my @results=split('\t',$items[$i]);
178 if ($type ne 'opac'){
179 $results[1]=mklink("/cgi-bin/koha/moredetail.pl?item=$results[5]&bib=$bib&bi=$results[8]&type=$type",$results[1]);
181 if ($results[2] eq ''){
182 $results[2]='Available';
184 if ($type eq 'catmain'){
185 $results[10]=mklink("/cgi-bin/koha/maint/catmaintain.pl?type=fixitemtype&bi=$results[8]&item=$results[6]","Fix Itemtype");
188 if ($type ne 'opac'){
189 if ($type eq 'catmain'){
190 print mktablerow(8,$secondary,$results[6],$results[4],$results[3],$results[2],$results[7],$results[1],$results[9],$results[10]);
192 print mktablerow(7,$secondary,$results[6],$results[4],$results[3],$results[2],$results[7],$results[1],$results[9]);
195 $results[6]=ItemType($results[6]);
196 print mktablerow(6,$secondary,$results[6],$results[4],$results[3],$results[2],$results[7],$results[9]);
200 if ($type ne 'opac'){
201 if ($type eq 'catmain'){
202 print mktablerow(8,'white',$results[6],$results[4],$results[3],$results[2],$results[7],$results[1],$results[9],$results[10]);
204 print mktablerow(7,'white',$results[6],$results[4],$results[3],$results[2],$results[7],$results[1],$results[9]);
207 $results[6]=ItemType($results[6]);
208 print mktablerow(6,'white',$results[6],$results[4],$results[3],$results[2],$results[7],$results[9]);
218 if ($type ne 'opac'){
221 <TD bgcolor="99cc33" background="/images/background-mem.gif" colspan=2><p><b>HELP</b><br>
222 <b>Update Biblio for all Items:</b> Click on the <b>Modify</b> button [left] to amend the biblio. Any changes you make will update the record for <b>all</b> the items listed above. <p>
223 <b>Updating the Biblio for only ONE or SOME Items:</b>
226 if ($type eq 'catmain'){
228 If some of the items listed above need a different biblio,
229 you need to click on the wrong item, then shift the group it belongs to, to the correct biblio.
230 You will need to know the correct biblio number
238 If some of the items listed above need a different biblio, or are on the wrong biblio, you must use the <a href="/acquisitions/">acquisitions</a> process to fix this. You will need to "re-order" the items, and delete them from this biblio.
248 print "<br clear=all>";
249 print endmenu($type);