- 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],"<br>";
- 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]",$results[1]);
- }
- if ($results[2] eq ''){
- $results[2]='Available';
- }
- if ($colour == 1){
- if ($type ne 'opac'){
-# if ($results[6] eq 'PER'){
- print mktablerow(7,$secondary,$results[6],$results[4],$results[3],$results[2],$results[7],$results[1],$results[9]);
-# } else {
-# print mktablerow(6,$secondary,$results[6],$results[4],$results[3],$results[2],$results[7],$results[1]);
-# }
- } else {
- $results[6]=ItemType($results[6]);
-# if ($results[6] =~ /Periodical/){
- print mktablerow(6,$secondary,$results[6],$results[4],$results[3],$results[2],$results[7],$results[9]);
-# } else {
-# print mktablerow(5,$secondary,$results[6],$results[4],$results[3],$results[2],$results[7]);
-# }
- }
- $colour=0;
- } else{
- if ($type ne 'opac'){
-# if ($results[6] eq 'PER'){
- print mktablerow(7,'white',$results[6],$results[4],$results[3],$results[2],$results[7],$results[1],$results[9]);
-# }else{
-# print mktablerow(6,'white',$results[6],$results[4],$results[3],$results[2],$results[7],$results[1]);
-# }
- } else {
- $results[6]=ItemType($results[6]);
-# if ($results[6] =~ /Periodical/){
- print mktablerow(6,'white',$results[6],$results[4],$results[3],$results[2],$results[7],$results[9]);
-# } else {
-# print mktablerow(5,'white',$results[6],$results[4],$results[3],$results[2],$results[7]);
-# }
- }
- $colour=1;
- }
- $i++;