[Koha-cvs] koha koha-tmpl/opac-tmpl/npl/en/opac-userdetail... [dev_week]

[Kyle Hall]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Kyle Hall <kylemhall>	07/10/31 13:07:30

Modified files:
	koha-tmpl/opac-tmpl/npl/en: opac-userdetails.tmpl 
	opac           : opac-userdetails.pl 

Log message:
	Added choice of contact preferences for borrowers.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/opac-tmpl/npl/en/opac-userdetails.tmpl?cvsroot=koha&only_with_tag=dev_week&r1=1.1.2.1.2.6&r2=1.1.2.1.2.7
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-userdetails.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.8.2.6.2.1&r2=1.8.2.6.2.2

Patches:
Index: koha-tmpl/opac-tmpl/npl/en/opac-userdetails.tmpl
===================================================================
RCS file: /sources/koha/koha/koha-tmpl/opac-tmpl/npl/en/Attic/opac-userdetails.tmpl,v
retrieving revision 1.1.2.1.2.6
retrieving revision 1.1.2.1.2.7
diff -u -b -r1.1.2.1.2.6 -r1.1.2.1.2.7
--- koha-tmpl/opac-tmpl/npl/en/opac-userdetails.tmpl	30 Nov 2006 21:03:09 -0000	1.1.2.1.2.6
+++ koha-tmpl/opac-tmpl/npl/en/opac-userdetails.tmpl	31 Oct 2007 13:07:29 -0000	1.1.2.1.2.7
@@ -9,7 +9,6 @@
 <div id="main_wrapper">
 <div id="main">
 <div class="content-block">
-
 <h3><a href="/cgi-bin/koha/opac-user.pl"><!-- TMPL_VAR NAME="firstname" --> <!-- TMPL_VAR NAME="surname" -->'s account</a> <img src="<!-- TMPL_VAR NAME="themelang" -->/images/caret.gif" width="16" height="16" alt="&gt;" border="0" /> Personal Details</h3>
 
 <div class="form">
@@ -81,9 +80,37 @@
 
 </div>
 
-<form action="/cgi-bin/koha/opac-userupdate.pl" method="post">
-<input type="submit" name="Modify" value="Modify Your Record" class="submit" />
-</form>
+If any of this information is incorrect, please stop by the circulation desk to let us know of any changes.  For address or name changes, please bring photo ID 
+or a piece of mail with your current name and mailing address on it.  
+
+<!-- HIDE FOR CCFLS
+  <form action="/cgi-bin/koha/opac-userupdate.pl" method="post">
+  <input type="submit" name="Modify" value="Modify Your Record" class="submit" />
+  </form>
+-->
+
+<h3>Contact Preferences</h3>
+<div class="form">
+  <form action="/cgi-bin/koha/opac-userdetails.pl" method="post">
+    <input type="hidden" name="updatePrefs" value="updatePrefs" />
+    <table>
+      <tr>
+        <th><label for="notifyByMail">Notify By Mail</label></th>
+        <td><input <!-- TMPL_IF NAME="notifyByMail" -->checked <!-- /TMPL_IF -->type="checkbox" name="notifyByMail" value="1" /></td>
+      </tr>
+      <tr>
+        <th><label for="notifyByEmail">Notify By Email</label></th>
+        <td><input  <!-- TMPL_IF NAME="notifyByEmail" -->checked <!-- /TMPL_IF -->type="checkbox" name="notifyByEmail" value="1" /></td>
+      <tr>
+        <th><label for="notifyByMail">Notify By SMS</label></th>
+        <td><input  <!-- TMPL_IF NAME="notifyBySMS" -->checked <!-- /TMPL_IF -->disabled type="checkbox" name="notifyBySMS" value="1" /></td>
+      </tr>
+      <tr>
+        <td><input type="submit" name="Update" value="Update Preferences" class="submit" /></td>
+      </tr>
+    </table>
+  </form>
+</div>
 </div>
 </div>
 </div>

Index: opac/opac-userdetails.pl
===================================================================
RCS file: /sources/koha/koha/opac/opac-userdetails.pl,v
retrieving revision 1.8.2.6.2.1
retrieving revision 1.8.2.6.2.2
diff -u -b -r1.8.2.6.2.1 -r1.8.2.6.2.2
--- opac/opac-userdetails.pl	18 Aug 2006 16:14:15 -0000	1.8.2.6.2.1
+++ opac/opac-userdetails.pl	31 Oct 2007 13:07:29 -0000	1.8.2.6.2.2
@@ -27,6 +27,22 @@
 if($languages_count > 1){
         $template->param(languages => \@languages_options);
 }
+
+# update preferences
+if ( $query->{'updatePrefs'} ) {
+	my $notifyByMail = $query->param('notifyByMail');
+	my $notifyByEmail = $query->param('notifyByEmail');
+	my $notifyBySMS = $query->param('notifyBySMS');
+	
+warn "$notifyByMail - $notifyByEmail";
+	my $dbh = C4::Context->dbh;  
+	my $sth = $dbh->prepare(
+		"UPDATE borrowers SET notifyByMail = ?, notifyByEmail = ?, notifyBySMS = ?
+		WHERE borrowernumber = ?"
+        );
+	$sth->execute( $notifyByMail, $notifyByEmail, $notifyBySMS, $borrowernumber );
+	$sth->finish;
+}
 # get borrower information ....
 my ($borr, $flags) = getpatroninformation(undef, $borrowernumber);
 
@@ -35,7 +51,6 @@
 $borr->{'dateofbirth'}  = format_date($borr->{'dateofbirth'});
 $borr->{'ethnicity'}    = fixEthnicity($borr->{'ethnicity'});
 
-
 $template->param($borr);
 $template->param(LibraryName => C4::Context->preference("LibraryName"),
 	);