#!/usr/bin/perl #script to display detailed information #written 8/11/99 use strict; #use DBI; use C4::Search; use CGI; use C4::Output; my $input = new CGI; print $input->header; #whether it is called from the opac of the intranet my $type=$input->param('type'); if ($type eq ''){ $type='intra'; } #setup colours my $main; my $secondary; if ($type eq 'opac'){ $main='#99cccc'; $secondary='#efe5ef'; } else { $main='#cccc99'; $secondary='#ffffcc'; } print startpage(); print startmenu($type); #print $type; my $blah; my $bib=$input->param('bib'); my $title=$input->param('title'); if ($type ne 'opac'){ print ""; } my @items=ItemInfo(\$blah,$bib,$type); my $dat=bibdata($bib); my $count=@items; my ($count3,$addauthor)=addauthor($bib); my $additional=$addauthor->[0]->{'author'}; for (my $i=1;$i<$count3;$i++){ $additional=$additional."|".$addauthor->[$i]->{'author'}; } my @temp=split('\t',$items[0]); if ($type eq 'catmain'){ print mkheadr(3,"Catalogue Maintenance"); } if ($dat->{'author'} ne ''){ print mkheadr(3,"$dat->{'title'} ($dat->{'author'}) $temp[4]"); } else { print mkheadr(3,"$dat->{'title'} $temp[4]"); } print <
BIBLIO RECORD printend ; if ($type ne 'opac'){ print "$bib"; } print < printend ; if ($type ne 'opac'){ print " "; } print < printend ; if ($type ne 'opac'){ print <Subtitle: $dat->{'subtitle'}
Author: $dat->{'author'}
Additional Author: $additional
Series Title: $dat->{'seriestitle'}
Subject: $dat->{'subject'}
Copyright: $dat->{'copyrightdate'}
Notes: $dat->{'notes'}
Unititle: $dat->{'unititle'}
Analytical Author:
Analytical Title:
Serial: $dat->{'serial'}
Total Number of Items: $count

printend ; } else { if ($dat->{'subtitle'} ne ''){ print "Subtitle: $dat->{'subtitle'}
"; } if ($dat->{'author'} ne ''){ print "Author: $dat->{'author'}
"; } #Additional Author:
if ($dat->{'seriestitle'} ne ''){ print "Seriestitle: $dat->{'seriestitle'}
"; } if ($dat->{'subject'} ne ''){ print "Subject: $dat->{'subject'}
"; } if ($dat->{'copyrightdate'} ne ''){ print "Copyright: $dat->{'copyrightdate'}
"; } if ($dat->{'notes'} ne ''){ print "Notes: $dat->{'notes'}
"; } if ($dat->{'unititle'} ne ''){ print "Unititle: $dat->{'unititle'}
"; } #Analytical Author:
#Analytical Title:
if ($dat->{'serial'} ne '0'){ print "Serial: Yes
"; } print "Total Number of Items: $count

"; } print < printend ; #print @items; my $i=0; print center(); print mktablehdr; if ($type eq 'opac'){ print mktablerow(6,$main,'Item Type','Class','Branch','Date Due','Last Seen'); } else { print mktablerow(6,$main,'Itemtype','Class','Location','Date Due','Last Seen','Barcode',"/images/background-mem.gif"); } my $colour=1; while ($i < $count){ # print $items[$i],"
"; my @results=split('\t',$items[$i]); if ($type ne 'opac'){ $results[1]=mklink("/cgi-bin/koha/moredetail.pl?item=$results[5]&bib=$bib&bi=$results[8]&type=$type",$results[1]); } if ($results[2] eq ''){ $results[2]='Available'; } if ($type eq 'catmain'){ $results[10]=mklink("/cgi-bin/koha/maint/catmaintain.pl?type=fixitemtype&bi=$results[8]&item=$results[6]","Fix Itemtype"); } if ($colour == 1){ if ($type ne 'opac'){ if ($type eq 'catmain'){ print mktablerow(8,$secondary,$results[6],$results[4],$results[3],$results[2],$results[7],$results[1],$results[9],$results[10]); } else { print mktablerow(7,$secondary,$results[6],$results[4],$results[3],$results[2],$results[7],$results[1],$results[9]); } } else { $results[6]=ItemType($results[6]); print mktablerow(6,$secondary,$results[6],$results[4],$results[3],$results[2],$results[7],$results[9]); } $colour=0; } else{ if ($type ne 'opac'){ if ($type eq 'catmain'){ print mktablerow(8,'white',$results[6],$results[4],$results[3],$results[2],$results[7],$results[1],$results[9],$results[10]); } else { print mktablerow(7,'white',$results[6],$results[4],$results[3],$results[2],$results[7],$results[1],$results[9]); } } else { $results[6]=ItemType($results[6]); print mktablerow(6,'white',$results[6],$results[4],$results[3],$results[2],$results[7],$results[9]); } $colour=1; } $i++; } print mktableft(); print "

"; print mktablehdr(); if ($type ne 'opac'){ print <

HELP
Update Biblio for all Items: Click on the Modify button [left] to amend the biblio. Any changes you make will update the record for all the items listed above.

Updating the Biblio for only ONE or SOME Items: printend ; if ($type eq 'catmain'){ print < printend ; } else { print <acquisitions process to fix this. You will need to "re-order" the items, and delete them from this biblio.

printend ; } } print mktableft(); print endcenter(); print "
"; print endmenu($type); print endpage();