koha-cvs
[Top][All Lists]
Advanced
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Koha-cvs] CVS: koha/html-template Search.pm,1.1,1.2 cmsdsearchresults.t

From: Steve Tonnesen
Subject: [Koha-cvs] CVS: koha/html-template Search.pm,1.1,1.2 cmsdsearchresults.tmpl,1.4,1.5 search.pl,1.6,1.7
Date: Fri, 10 May 2002 15:34:38 -0700 
Update of /cvsroot/koha/koha/html-template
In directory usw-pr-cvs1:/tmp/cvs-serv12667

Modified Files:
        Search.pm cmsdsearchresults.tmpl search.pl 
Log Message:
Cleaned up formatting of dewey number before returning result from Search.pm


Index: Search.pm
===================================================================
RCS file: /cvsroot/koha/koha/html-template/Search.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** Search.pm   10 May 2002 22:24:01 -0000      1.1
--- Search.pm   10 May 2002 22:34:36 -0000      1.2
***************
*** 280,283 ****
--- 280,285 ----
            ($dewey) && ($dewey.=" $subclass") ;                      
            $sth->finish;                                                       
 
+           $data2->{dewey}=~s/[\.0]*$//;
+           ($data2->{dewey}==0) && ($data2->{dewey}='');
            push @$resulthash, $data2;
            
$res2[$i]="$data2->{'author'}\t$data2->{'title'}\t$data2->{'biblionumber'}\t$data2->{'copyrightdate'}\t$dewey";

Index: cmsdsearchresults.tmpl
===================================================================
RCS file: /cvsroot/koha/koha/html-template/cmsdsearchresults.tmpl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** cmsdsearchresults.tmpl      10 May 2002 22:18:48 -0000      1.4
--- cmsdsearchresults.tmpl      10 May 2002 22:34:36 -0000      1.5
***************
*** 4,17 ****
  <body>
  <TMPL_INCLUDE NAME="searchheader.tmpl">
! <table border=1>
! <tr><th>Title</th><th>Author</th><th>Dewey</th></tr>
  <TMPL_LOOP NAME=SEARCH_RESULTS>
    <tr>
!   <td> <TMPL_VAR NAME=title> </td>
!   <td> <TMPL_VAR NAME=author> </td>
!   <td> <TMPL_VAR NAME=dewey> </td>
    </tr>
  </TMPL_LOOP>
! <tr><td colspan=3><a href=search.pl?template=<TMPL_VAR 
NAME="template">&startfrom=<TMPL_VAR NAME="nextstartfrom">>Next 
Records</a></td></tr>
  </table>
  <hr>
--- 4,17 ----
  <body>
  <TMPL_INCLUDE NAME="searchheader.tmpl">
! <table border=0 cellspacing=0 cellpadding=0>
! <tr bgcolor=#ccccff><th>Title</th><th>Author</th><th>Dewey</th></tr>
  <TMPL_LOOP NAME=SEARCH_RESULTS>
    <tr>
!   <td><TMPL_VAR NAME=title></td>
!   <td><TMPL_VAR NAME=author></td>
!   <td align=right><TMPL_VAR NAME=dewey></td>
    </tr>
  </TMPL_LOOP>
! <tr><td colspan=3 bgcolor=#ccccff><a href=search.pl?template=<TMPL_VAR 
NAME="template">&startfrom=<TMPL_VAR NAME="nextstartfrom">>Next 
Records</a></td></tr>
  </table>
  <hr>

Index: search.pl
===================================================================
RCS file: /cvsroot/koha/koha/html-template/search.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** search.pl   10 May 2002 22:18:48 -0000      1.6
--- search.pl   10 May 2002 22:34:36 -0000      1.7
***************
*** 29,33 ****
  my $blah;
  my %search;
! $search{'keyword'}='bear';
  
  my ($count, $resultshash, @results) = &KeywordSearch(\$blah, 'intra', 
\%search, 20, $startfrom);
--- 29,34 ----
  my $blah;
  my %search;
! my $keyword='bear';
! $search{'keyword'}=$keyword;
  
  my ($count, $resultshash, @results) = &KeywordSearch(\$blah, 'intra', 
\%search, 20, $startfrom);
reply via email to
[Prev in Thread] Current Thread [Next in Thread]