[Koha-cvs] CVS: koha/admin letter.pl,1.2,1.3

[Paul POULAIN]

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

Modified Files:
	letter.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: letter.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/letter.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** letter.pl	2 Aug 2005 16:15:34 -0000	1.2
--- letter.pl	4 Aug 2005 08:54:54 -0000	1.3
***************
*** 72,75 ****
--- 72,76 ----
  my $script_name="/cgi-bin/koha/admin/letter.pl";
  my $code=$input->param('code');
+ my $module = $input->param('module');
  my $pagesize=20;
  my $op = $input->param('op');
***************
*** 101,106 ****
  	my $letter;
  	if ($code) {
! 		my $sth=$dbh->prepare("select * from letter where code=?");
! 		$sth->execute($code);
  		$letter=$sth->fetchrow_hashref;
  		$sth->finish;
--- 102,107 ----
  	my $letter;
  	if ($code) {
! 		my $sth=$dbh->prepare("select * from letter where module=? and code=?");
! 		$sth->execute($module,$code);
  		$letter=$sth->fetchrow_hashref;
  		$sth->finish;
***************
*** 145,148 ****
--- 146,150 ----
  	$template->param(name => $letter->{name},title => $letter->{title},
  					content => $letter->{content},
+ 					$letter->{module} => 1,
  					SQLfieldname => \@SQLfieldname,);
  													# END $OP eq ADD_FORM