-#print $count2;
-my $i=0;
-my $colour=1;
-while ($i < $count2){
-# print $results[$i]."\n";
- my @stuff=split('\t',$results[$i]);
- $stuff[1]=~ s/\`/\\\'/g;
- my $title2=$stuff[1];
- $title2=~ s/ /%20/g;
- if ($subject eq ''){
-# print $stuff[0];
- $stuff[1]=mklink("/cgi-bin/koha/detail.pl?type=$type&bib=$stuff[2]&title=$title2",$stuff[1]);
- my $word=$stuff[0];
-# print $word;
- $word=~ s/([a-z]) +([a-z])/$1%20$2/ig;
- $word=~ s/ //g;
- $word=~ s/ /%20/g;
- $word=~ s/\,/\,%20/g;
- $word=~ s/\n//g;
- my $url="/cgi-bin/koha/search.pl?author=$word&type=$type";
- $stuff[0]=mklink($url,$stuff[0]);
- my ($count,$lcount,$nacount,$fcount,$scount,$lostcount,$mending,$transit,$ocount)=itemcount($env,$stuff[2],$type);
- $stuff[4]=$count;
- if ($nacount > 0){
- $stuff[5]=$stuff[5]."On Loan";
- if ($nacount >1 ){
- $stuff[5]=$stuff[5]." ($nacount)";
- }
- $stuff[5].=" ";
- }
- if ($lcount > 0){
- $stuff[5]=$stuff[5]."Levin";
- if ($lcount >1 ){
- $stuff[5]=$stuff[5]." ($lcount)";
- }
- $stuff[5].=" ";
- }
- if ($fcount > 0){
- $stuff[5]=$stuff[5]."Foxton";
- if ($fcount >1 ){
- $stuff[5]=$stuff[5]." ($fcount)";
- }
- $stuff[5].=" ";
- }
- if ($scount > 0){
- $stuff[5]=$stuff[5]."Shannon";
- if ($scount >1 ){
- $stuff[5]=$stuff[5]." ($scount)";
- }
- $stuff[5].=" ";
- }
- if ($lostcount > 0){
- $stuff[5]=$stuff[5]."Lost";
- if ($lostcount >1 ){
- $stuff[5]=$stuff[5]." ($lostcount)";
- }
- $stuff[5].=" ";
- }
- if ($mending > 0){
- $stuff[5]=$stuff[5]."Mending";
- if ($mending >1 ){
- $stuff[5]=$stuff[5]." ($mending)";
- }
- $stuff[5].=" ";
- }
- if ($transit > 0){
- $stuff[5]=$stuff[5]."In Transiit";
- if ($transit >1 ){
- $stuff[5]=$stuff[5]." ($transit)";
- }
- $stuff[5].=" ";
- }
- if ($ocount > 0){
- $stuff[5]=$stuff[5]."On Order";
- if ($ocount >1 ){
- $stuff[5]=$stuff[5]." ($ocount)";
- }
- $stuff[5].=" ";
- }
-
- if ($type ne 'opac'){
- $stuff[6]=mklink("/cgi-bin/koha/request.pl?bib=$stuff[2]","Request");
- }
- } else {
- my $word=$stuff[1];
- $word=~ s/ /%20/g;
-
- $stuff[1]=mklink("/cgi-bin/koha/subjectsearch.pl?subject=$word&type=$type",$stuff[1]);
-
- }
-
- if ($colour == 1){
- print mktablerow(6,$secondary,$stuff[1],$stuff[0],$stuff[3],$stuff[4],$stuff[5],$stuff[6]);
- $colour=0;
- } else{
- print mktablerow(6,'white',$stuff[1],$stuff[0],$stuff[3],$stuff[4],$stuff[5],$stuff[6]);
- $colour=1;
- }
- $i++;