#!/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'); #setup colours my $main; my $secondary; if ($type eq 'opac'){ $main='#99cccc'; $secondary='#efe5ef'; } else { $main='#cccc99'; $secondary='#ffffcc'; } print startpage(); print startmenu($type); my $blah; my $bib=$input->param('bib'); my $title=$input->param('title'); my $bi=$input->param('bi'); my $data=bibitemdata($bi); my @items=ItemInfo(\$blah,$bib,$title); #print @items; my $count=@items; my $i=0; print center(); print < $data->{'title'} ($data->{'author'})

$data->{'biblioitemnumber'} GROUP - Largeprint

Group Number:
Volume:
Number:
Classification:
Itemtype:
ISBN:
ISSN:
Dewey:
Subclass:
Copyright:
Number of Items: 2
BARCODE LO123456

Item Number:
Due Date:
Member:
Reserves:
Home Branch:
[rest of item info]
  |
  |
  |
  |
  |
  |
 \/
BARCODE LO123457

Item Number:
Due Date:
Member:
Reserves:
Home Branch:
[rest of item info]
  |
  |
  |
  |
  |
  |
 \/

printend ; print endcenter(); print endmenu($type); print endpage();