[Koha-cvs] CVS: koha/members moremember.pl,1.12,1.13

[Paul POULAIN]

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

Modified Files:
        moremember.pl 
Log Message:
Letters / alert system, continuing...
* adding a package Letters.pm, that manages Letters & alerts.
* adding feature : it's now possible to define a "letter" for any subscription 
created. If a letter is defined, users in OPAC can put an alert on the 
subscription. When an issue is marked "arrived", all users in the alert will 
recieve a mail (as defined in the "letter"). This last part (= send the mail) 
is not yet developped. (Should be done this week)
* adding feature : it's now possible to "put to an alert" in OPAC, for any 
serial subscription. The alert is stored in a new table, called alert. An alert 
can be put only if the librarian has activated them in subscription (and they 
activate it just by choosing a "letter" to sent to borrowers on new issues)
* adding feature : librarian can see in borrower detail which alerts they have 
put, and a user can see in opac-detail which alert they have put too.
Note that the system should be generic enough to manage any type of alert.
I plan to extend it soon to virtual shelves : a borrower will be able to put an 
alert on a virtual shelf, to be warned when something is changed in the virtual 
shelf (mail being sent once a day by cron, or manually by the shelf owner. 
Anyway, a mail won't be sent on every change, users would be spammed by Koha 
;-) )

Index: moremember.pl
===================================================================
RCS file: /cvsroot/koha/koha/members/moremember.pl,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -r1.12 -r1.13
*** moremember.pl       29 Jul 2005 08:33:48 -0000      1.12
--- moremember.pl       4 Aug 2005 08:54:56 -0000       1.13
***************
*** 44,47 ****
--- 44,48 ----
  use C4::Circulation::Circ2;
  use C4::Koha;
+ use C4::Letters;
  use HTML::Template;
  
***************
*** 148,152 ****
--- 149,157 ----
  my ($numaccts,$accts,$total)=getboracctrecord('',\%bor);
  
+ #
+ # current issues
+ #
  my ($count,$issue)=borrissues($bornum);
+ 
  my $today=ParseDate('today');
  my @issuedata;
***************
*** 186,191 ****
  }
  
  my ($rescount,$reserves)=FindReserves('',$bornum); #From C4::Reserves2
- 
  my @reservedata;
  foreach my $reserveline (@$reserves) {
--- 191,198 ----
  }
  
+ #
+ # find reserves
+ #
  my ($rescount,$reserves)=FindReserves('',$bornum); #From C4::Reserves2
  my @reservedata;
  foreach my $reserveline (@$reserves) {
***************
*** 200,203 ****
--- 207,217 ----
  }
  
+ # current alert subscriptions
+ my $alerts = getalert($bornum);
+ foreach (@$alerts) {
+       $_->{$_->{type}}=1;
+       $_->{relatedto} = findrelatedto($_->{type},$_->{externalid});
+ }
+ 
  $template->param($data);
  $template->param(
***************
*** 206,214 ****
                 totaldue =>$total,
                 issueloop       => address@hidden,
!                reserveloop     => address@hidden
!                );
! $template->param(
                 independantbranches => 
C4::Context->preference("IndependantBranches"),
!                samebranch              => $samebranch) if 
(C4::Context->preference("IndependantBranches"));
  
  output_html_with_http_headers $input, $cookie, $template->output;
--- 220,228 ----
                 totaldue =>$total,
                 issueloop       => address@hidden,
!                reserveloop     => address@hidden,
!                alertloop => $alerts);
                 independantbranches => 
C4::Context->preference("IndependantBranches"),
!                samebranch              => $samebranch) if 
(C4::Context->preference("IndependantBranches")
!               );
  
  output_html_with_http_headers $input, $cookie, $template->output;