[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 => address@hidden,);
                                                                                
                        # END $OP eq ADD_FORM