[Koha-cvs] CVS: koha bookcount.pl,1.4,1.5

[Henri-Damien LAURENT]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv31932

Modified Files:
        bookcount.pl 
Log Message:
Bookcount Templating
First template and commit

Index: bookcount.pl
===================================================================
RCS file: /cvsroot/koha/koha/bookcount.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** bookcount.pl        13 Oct 2002 07:31:21 -0000      1.4
--- bookcount.pl        13 Nov 2002 17:52:59 -0000      1.5
***************
*** 30,33 ****
--- 30,34 ----
  use C4::Circulation::Circ2;
  use C4::Output;
+ use HTML::Template;
  
  # get all the data ....
***************
*** 60,113 ****
  }
  
- 
  # make the page ...
! print $input->header;
! 
  
! print startpage;
! print startmenu('report');
! print center;
! 
! print <<"EOF";
! <br>
! <FONT SIZE=6><em><a 
href=/cgi-bin/koha/detail.pl?bib=$bib&type=intra>$data->{'title'} 
($data->{'author'})</a></em></FONT><P>
! <p>
! <img src="/images/holder.gif" width=16 height=200 align=left>
! <TABLE  CELLSPACING=0  CELLPADDING=5 border=1 width=440 >
!   <TR VALIGN=TOP><td  bgcolor="99cc33" 
background="/images/background-mem.gif">
!   <B>BARCODE $idata->{'barcode'}</b></TD>
! </TR>
! <TR VALIGN=TOP  >
! <TD width=440 >
! 
! <b>Home Branch: </b> $homebranch <br>
! <b>Current Branch: </b> $holdingbranch<br>
! <b>Date arrived at current branch: </b> $lastdate <br>
! <b>Number of issues since since the above date :</b> $count <br>
! 
! <table cellspacing =0 cellpadding=5 border=1 width = 440>
! <TR><TD > <b>Branch</b></td>  <TD >   <b>No. of Issues</b></td>   <td><b>Last 
seen at branch</b></td></TR>
! EOF
  
  foreach my $branchcode (keys %$branches) {
!     my $issues = issuesat($itm, $branchcode);
      my $date = lastseenat($itm, $branchcode);
!     my $seen = slashdate($date);
!     print << "EOF";
! <TR><TD > <b>$branches->{$branchcode}->{'branchname'}</b></td>
! <TD >    <b> $issues </b></td>             <td><b> $seen</b></td></TR>
! EOF
  }
- print <<"EOF";
- </table>
- </TR>
- 
- </table>
- EOF
- 
  
! print endmenu('report');
! print endpage;
  
  
  ##############################################
--- 61,89 ----
  }
  
  # make the page ...
! my $template = gettemplate("bookcount.tmpl");
  
! my @branchloop;
  
  foreach my $branchcode (keys %$branches) {
!       my %linebranch;
!     $linebranch{issues} = issuesat($itm, $branchcode);
      my $date = lastseenat($itm, $branchcode);
!     $linebranch{seen} = slashdate($date);
!       $linebranch{branchname}=$branches->{$branchcode}->{'branchname'};
!       push(@branchloop,\%linebranch);
  }
  
! $template->param(     bib => $bib,
!                                                               title => 
$data->{'title'},
!                                                               author => 
$data->{'author'},
!                                                               barcode => 
$idata->{'barcode'},
!                                                               homebranch 
=>$homebranch,
!                                                               holdingbranch 
=> $holdingbranch,
!                                                               lastdate =>  
$lastdate,
!                                                               count =>  
$count,
!                                                               branchloop => 
address@hidden);
  
+ print "Content-Type: text/html\n\n", $template->output;
  
  ##############################################