[Koha-cvs] CVS: koha search.pl,1.18,1.19
Andrew Arensburger
arensb at users.sourceforge.net
Sun Oct 13 13:32:39 CEST 2002
Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv4385
Modified Files:
search.pl
Log Message:
Replaced expressions of the form "$x = $x <op> $y" with "$x <op>= $y".
Thus, $x = $x+2 becomes $x += 2, and so forth.
Index: search.pl
===================================================================
RCS file: /cvsroot/koha/koha/search.pl,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -r1.18 -r1.19
*** search.pl 13 Oct 2002 05:49:51 -0000 1.18
--- search.pl 13 Oct 2002 11:32:37 -0000 1.19
***************
*** 134,162 ****
my $searchdesc='';
if ($keyword){
! $search=$search."&keyword=$keyword"; # FIXME - .=
$searchdesc.="keyword $keyword, ";
}
if (my $subjectitems=$query->param('subjectitems')){
! $search=$search."&subjectitems=$subjectitems"; # FIXME - .=
$searchdesc.="subject $subjectitems, ";
}
if ($subject){
! $search=$search."&subject=$subject"; # FIXME - .=
$searchdesc.="subject $subject, ";
}
if ($author){
! $search=$search."&author=$author"; # FIXME - .=
$searchdesc.="author $author, ";
}
if ($class){
! $search=$search."&class=$class"; # FIXME - .=
$searchdesc.="class $class, ";
}
if ($title){
! $search=$search."&title=$title"; # FIXME - .=
$searchdesc.="title $title, ";
}
if ($dewey){
! $search=$search."&dewey=$dewey"; # FIXME - .=
$searchdesc.="dewey $dewey, ";
}
--- 134,162 ----
my $searchdesc='';
if ($keyword){
! $search .= "&keyword=$keyword";
$searchdesc.="keyword $keyword, ";
}
if (my $subjectitems=$query->param('subjectitems')){
! $search .= "&subjectitems=$subjectitems";
$searchdesc.="subject $subjectitems, ";
}
if ($subject){
! $search .= "&subject=$subject";
$searchdesc.="subject $subject, ";
}
if ($author){
! $search .= "&author=$author";
$searchdesc.="author $author, ";
}
if ($class){
! $search .= "&class=$class";
$searchdesc.="class $class, ";
}
if ($title){
! $search .= "&title=$title";
$searchdesc.="title $title, ";
}
if ($dewey){
! $search .= "&dewey=$dewey";
$searchdesc.="dewey $dewey, ";
}
More information about the Koha-cvs
mailing list