Kumara - predecessor to Koha
Ви не можете вибрати більше 25 тем Теми мають розпочинатися з літери або цифри, можуть містити дефіси (-) і не повинні перевищувати 35 символів.

34 рядки
744 B

  1. #!/usr/bin/perl
  2. #written 27/01/2000
  3. #script to display borrowers reading record
  4. use strict;
  5. use C4::Output;
  6. use CGI;
  7. use C4::Search;
  8. my $input=new CGI;
  9. my $bornum=$input->param('bornum');
  10. #get borrower details
  11. my $data=borrdata('',$bornum);
  12. my ($count,$issues)=allissues($bornum);
  13. print $input->header;
  14. print startpage();
  15. print startmenu('member');
  16. #print $count;
  17. print mkheadr(3,"$data->{'title'} $data->{'initials'} $data->{'surname'}");
  18. print mktablehdr();
  19. print mktablerow(4,'white',bold('TITLE'),bold('AUTHOR'),bold('DATE'));
  20. for (my $i=0;$i<$count;$i++){
  21. print mktablerow(3,'white',$issues->[$i]->{'title'},$issues->[$i]->{'author'},$issues->[$i]->{'returndate'});
  22. }
  23. print mktableft();
  24. print endmenu('member');
  25. print endpage();