[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       => \@issuedata,
! 		 reserveloop     => \@reservedata
! 		 );
! $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       => \@issuedata,
! 		 reserveloop     => \@reservedata,
! 		 alertloop => $alerts);
  		 independantbranches => C4::Context->preference("IndependantBranches"),
! 		 samebranch		 => $samebranch) if (C4::Context->preference("IndependantBranches")
! 		);
  
  output_html_with_http_headers $input, $cookie, $template->output;