3 #script to display detailed information
12 my $type = $input->param('type');
13 my $bib = $input->param('bib');
14 my @items = &ItemInfo(undef, $bib, $type);
15 my @temp = split('\t', $items[0]);
17 my $dat = &bibdata($bib);
18 my ($websitecount, @websites) = &getwebsites($bib);
19 my ($authorcount, $addauthor) = &addauthor($bib);
20 my $additional = $addauthor->[0]->{'author'};
31 if ($type eq 'opac') {
33 $secondary = '#efe5ef';
36 $secondary = '#ffffcc';
40 for (my $i = 1; $i < $authorcount; $i++) {
41 $additional .= "|" . $addauthor->[$i]->{'author'};
46 print startmenu($type);
50 <a href=request.pl?bib=$bib><img height=42 WIDTH=120 BORDER="0" src=\"/images/requests.gif\" align="right" border="0"></a>
54 if ($type eq 'catmain'){
55 print mkheadr(3,"Catalogue Maintenance");
58 if ($dat->{'author'} ne ''){
59 print mkheadr(3,"$dat->{'title'} ($dat->{'author'}) $temp[4]");
61 print mkheadr(3,"$dat->{'title'} $temp[4]");
65 <table cellspacing="0" callpadding="5" border="1" align="left" width="220">
66 <!-----------------BIBLIO RECORD TABLE--------->
70 if ($type ne 'opac') {
72 <td bgcolor="$main" background="/images/background-mem.gif">
84 if ($type ne 'opac') {
95 if ($type ne 'opac') {
97 <form action="/cgi-bin/koha/modbib.pl" method="post">
98 <input type="hidden" name="bibnum" value="$bib">
99 <input type="image" name="submit" value="modify" height="42" width="93" border="0" src="/images/modify-mem.gif">
100 <input type="image" name="delete" value="delete" height="42" width="93" border="0" src="/images/delete-mem.gif">
107 <FONT SIZE=2 face="arial, helvetica">
111 if ($type ne 'opac') {
113 <b>Subtitle:</b> $dat->{'subtitle'}<br>
114 <b>Author:</b> $dat->{'author'}<br>
115 <b>Additional Author:</b> $additional<br>
116 <b>Series Title:</b> $dat->{'seriestitle'}<br>
117 <b>Subject:</b> $dat->{'subject'}<br>
118 <b>Copyright:</b> $dat->{'copyrightdate'}<br>
119 <b>Notes:</b> $dat->{'notes'}<br>
120 <b>Unititle:</b> $dat->{'unititle'}<br>
121 <b>Analytical Author:</b> <br>
122 <b>Analytical Title:</b> <br>
123 <b>Serial:</b> $dat->{'serial'}<br>
124 <b>Total Number of Items:</b> $count
129 if ($dat->{'subtitle'} ne ''){
130 print "<b>Subtitle:</b> $dat->{'subtitle'}<br>";
132 if ($dat->{'author'} ne ''){
133 print "<b>Author:</b> $dat->{'author'}<br>";
136 # Additional Author: <br>
137 if ($dat->{'seriestitle'} ne '') {
138 print "<b>Seriestitle:</b> $dat->{'seriestitle'}<br>";
140 if ($dat->{'subject'} ne '') {
141 print "<b>Subject:</b> $dat->{'subject'}<br>";
143 if ($dat->{'copyrightdate'} ne '') {
144 print "<b>Copyright:</b> $dat->{'copyrightdate'}<br>";
146 if ($dat->{'notes'} ne '') {
147 print "<b>Notes:</b> $dat->{'notes'}<br>";
149 if ($dat->{'unititle'} ne '') {
150 print "<b>Unititle:</b> $dat->{'unititle'}<br>";
153 # Analytical Author: <br>
154 # Analytical Title: <br>
155 if ($dat->{'serial'} ne '0') {
156 print "<b>Serial:</b> Yes<br>";
160 <b>Total Number of Items:</b> $count
171 <img src="/images/holder.gif" width="16" height="300" align="left">
177 if ($type eq 'opac') {
178 print mktablerow(6,$main,'Item Type','Class','Branch','Date Due','Last Seen');
179 if ($dat->{'url'} ne '') {
180 $dat->{'url'} =~ s/^http:\/\///;
181 print mktablerow(6, $colour, 'Website', 'WEB', 'Online', 'Available', "<a href=\"http://$dat->{'url'}\">$dat->{'url'}</a>");
184 print mktablerow(7,$main,'Itemtype','Class','Location','Date Due','Last Seen','Barcode',"","/images/background-mem.gif");
185 if ($dat->{'url'} ne '') {
186 $dat->{'url'} =~ s/^http:\/\///;
187 print mktablerow(7, $colour, 'WEB', '', 'Online', 'Available', "<a href=\"http://$dat->{'url'}\">$dat->{'url'}</a>");
192 for (my $i = 0; $i < $count; $i ++) {
194 my @results = split('\t', $items[$i]);
196 if ($type ne 'opac') {
197 $results[1] = mklink("/cgi-bin/koha/moredetail.pl?item=$results[5]&bib=$bib&bi=$results[8]&type=$type",$results[1]);
200 if ($results[2] eq '') {
201 $results[2] = 'Available';
204 if ($type eq 'catmain'){
205 $results[10] = mklink("/cgi-bin/koha/maint/catmaintain.pl?type=fixitemtype&bi=$results[8]&item=$results[6]","Fix Itemtype");
208 if ($type ne 'opac'){
209 if ($type eq 'catmain'){
210 print mktablerow(8,$colour,$results[6],$results[4],$results[3],$results[2],$results[7],$results[1],$results[9],$results[10]);
212 print mktablerow(7,$colour,$results[6],$results[4],$results[3],$results[2],$results[7],$results[1],$results[9]);
215 $results[6] = ItemType($results[6]);
216 print mktablerow(6,$colour,$results[6],$results[4],$results[3],$results[2],$results[7],$results[9]);
219 if ($colour eq $secondary) {
222 $colour = $secondary;
231 if ($type ne 'opac') {
234 <td bgcolor="99cc33" background="/images/background-mem.gif" colspan="2"><p><b>HELP</b><br>
235 <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>
236 <b>Updating the Biblio for only ONE or SOME Items:</b>
239 if ($type eq 'catmain') {
241 If some of the items listed above need a different biblio,
242 you need to click on the wrong item, then shift the group it belongs to, to the correct biblio.
243 You will need to know the correct biblio number
250 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.
265 if ($type ne 'opac') {
267 <table border="1" cellspacing="0" cellpadding="5" width="90%">
269 <td bgcolor="$main" background="/images/background-mem.gif"><b>Abstract</b></td>
272 <td>$dat->{'abstract'}</td>
276 <table border="1" cellspacing="0" cellpadding="5" width="90%">
278 <td bgcolor="$main" background="/images/background-mem.gif"><b>Links to Associated Websites<b></td>
282 for (my $i = 0; $i < $websitecount; $i++) {
283 $websites[$i]->{'url'} =~ s/^http:\/\///;
286 <td><b>Title:</b> $websites[$i]->{'title'}<br>
287 <b>Description:</b> $websites[$i]->{'description'}<br>
288 <b>URL:</b> http://$websites[$i]->{'url'}<br>
298 if ($dat->{'abstract'} ne '') {
300 <table border="1" cellspacing="0" cellpadding="5" width="90%">
302 <td bgcolor="$main"><b>Abstract</b></td>
305 <td>$dat->{'abstract'}</td>
313 <table border="1" cellspacing="0" cellpadding="5" width="90%">
315 <td bgcolor="$main" background="/images/background-mem.gif"><b>Link to Associated Websites</b></td>
319 for (my $i = 0; $i < $websitecount; $i++) {
320 $websites[$i]->{'url'} =~ s/^http:\/\///;
323 <td><b>Title:</b> $websites[$i]->{'title'}<br>
324 <b>Description:</b> $websites[$i]->{'description'}<br>
325 <b>URL:</b> http://$websites[$i]->{'url'}<br>
337 print endmenu($type);