[Koha-cvs] CVS: koha/C4 Search.pm,1.85.2.5,1.85.2.6

Ambrose C. LI acli at users.sourceforge.net
Thu Mar 11 09:21:10 CET 2004


Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25630/C4

Modified Files:
      Tag: rel_2_0
	Search.pm 
Log Message:
Missed one "On Loan"


Index: Search.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Search.pm,v
retrieving revision 1.85.2.5
retrieving revision 1.85.2.6
diff -C2 -r1.85.2.5 -r1.85.2.6
*** Search.pm	19 Feb 2004 10:19:57 -0000	1.85.2.5
--- Search.pm	11 Mar 2004 08:21:07 -0000	1.85.2.6
***************
*** 252,255 ****
--- 252,256 ----
  			}
  			my $locationtext='';
+ 			my $locationtextonly='';
  			my $notavailabletext='';
  			foreach (sort keys %{$data->{'locationhash'}}) {
***************
*** 257,266 ****
--- 258,286 ----
  					$notavailabletext="Not available";
  					my $c=$data->{'locationhash'}->{$_};
+ 					$data->{'not-available-p'}=$totalitemcounts;
  					if ($totalitemcounts>1) {
  					$notavailabletext.=" ($c)";
+ 					$data->{'not-available-plural-p'}=1;
  					}
  				} else {
  					$locationtext.="$_";
  					my $c=$data->{'locationhash'}->{$_};
+ 					if ($_ eq 'Item Lost') {
+ 					$data->{'lost-p'}=$totalitemcounts;
+ 					$data->{'lost-plural-p'}=1
+ 							if $totalitemcounts > 1;
+ 					} elsif ($_ eq 'Withdrawn') {
+ 					$data->{'withdrawn-p'}=$totalitemcounts;
+ 					$data->{'withdrawn-plural-p'}=1
+ 							if $totalitemcounts > 1;
+ 					} elsif ($_ eq 'On Loan') {
+ 					$data->{'on-loan-p'}=$totalitemcounts;
+ 					$data->{'on-loan-plural-p'}=1
+ 							if $totalitemcounts > 1;
+ 					} else {
+ 					$locationtextonly.=$_;
+ 					$locationtextonly.=" ($c), "
+ 							if $totalitemcounts>1;
+ 					}
  					if ($totalitemcounts>1) {
  					$locationtext.=" ($c), ";
***************
*** 274,278 ****
--- 294,300 ----
  			}
  			$data->{'location'}=$locationtext;
+ 			$data->{'location-only'}=$locationtextonly;
  			$data->{'subject2'}=$subject2;
+ 			$data->{'use-location-flags-p'}=1; # XXX
  		}
  	}





More information about the Koha-cvs mailing list