==================================================================
Please DO NOT REPLY to this mail or send email to the developers
about this bug. Please follow-up to Bugzilla using this link:
http://bugs.contribs.org/show_bug.cgi?id=7555
Have you checked the Frequently Asked Questions (FAQ)?
http://wiki.contribs.org/SME_Server:Documentation:FAQ
Please also take the time to read the following useful guide:
http://www.chiark.greenend.org.uk/~sgtatham/bugs.html
==================================================================
Mats Schuh <[email protected]> changed:
What |Removed |Added
----------------------------------------------------------------------------
Attachment #3838|0 |1
is obsolete| |
--- Comment #12 from Mats Schuh <[email protected]> ---
Comment on attachment 3838
--> http://bugs.contribs.org/attachment.cgi?id=3838
Patch for server-manager panel and db accout properties
>diff -Nru orig/etc/e-smith/web/functions/uservacations
>modified/etc/e-smith/web/functions/uservacations
>--- orig/etc/e-smith/web/functions/uservacations 2009-06-11
>16:23:43.000000000 +0200
>+++ modified/etc/e-smith/web/functions/uservacations 2013-04-23
>16:21:36.000000000 +0200
>@@ -54,6 +54,15 @@
> <field type="literal" id="FullName">
> <label>USER_NAME</label>
> </field>
>+
>+ # Get vacation start and end dates
>+ <field type="text" id="EmailVacationFrom">
>+ <label>VACATION_FROM (YYYYMMDD)</label>
>+ </field>
>+
>+ <field type="text" id="EmailVacationTo">
>+ <label>VACATION_TO (YYYYMMDD)</label>
>+ </field>
>
> <subroutine src="get_vacation_text()" />
>
>diff -Nru
>orig/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/uservacations.pm
>modified/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/uservacations.pm
>--- orig/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/uservacations.pm
>2009-06-11 16:23:43.000000000 +0200
>+++ modified/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/uservacations.pm
>2013-03-01 14:17:04.000000000 +0100
>@@ -85,6 +85,8 @@
> {
> # make it clearer which uses have vacation
> my $EmailVacation = $user->prop('EmailVacation') || '';
>+ my $EmailVacationFrom = $user->prop('EmailVacationFrom') || '';
>+ my $EmailVacationTo = $user->prop('EmailVacationTo') || '';
> my $status = $user->prop('EmailVacation') || '';
> if ($status eq 'yes') { $status = 'YES'; } else { $status = ''; }
>
>@@ -94,6 +96,8 @@
> $user->prop('LastName'),
> status => $self->localise($status),
> EmailVacation => $EmailVacation,
>+ EmailVacationFrom => $EmailVacationFrom,
>+ EmailVacationTo => $EmailVacationTo,
> Modify => $self->localise('MODIFY'),
> }
> }
>@@ -115,6 +119,8 @@
> "User=" . $row->{User},
> "FullName=" . $row->{FullName},
> "EmailVacation=" . $row->{EmailVacation},
>+ "EmailVacationFrom=" . $row->{EmailVacationFrom},
>+ "EmailVacationTo=" . $row->{EmailVacationTo},
> "wherenext=VACATION_PAGE_MODIFY");
> }
>
>@@ -129,6 +135,9 @@
>
> my $fullname = $adb->get_prop($user, "FirstName") . " " .
> $adb->get_prop($user, "LastName");
>+
>+# my $datefrom = $adb->get_prop($user, "EmailVacationFrom");
>+# my $dateto = $adb->get_prop($user, "EmailVacationTo");
>
> my $vfile = "/home/e-smith/files/users/$user/.vacation.msg";
>
>@@ -177,6 +186,8 @@
> my $user = $q->param('User');
>
> my $EmailVacation = $q->param('EmailVacation');
>+ my $EmailVacationFrom = $q->param('EmailVacationFrom');
>+ my $EmailVacationTo = $q->param('EmailVacationTo');
> my $new_message = $q->param('new_message');
> my $vfile = "/home/e-smith/files/users/$user/.vacation.msg";
>
>@@ -228,6 +239,9 @@
> "/home/e-smith/files/users/$user/.vacation.msg");
>
> $adb->set_prop($user, 'EmailVacation', $EmailVacation);
>+ $adb->set_prop($user, 'EmailVacationFrom', $EmailVacationFrom);
>+ $adb->set_prop($user, 'EmailVacationTo', $EmailVacationTo);
>+
>
> #the first is more correct but is slower
> #system ("/sbin/e-smith/signal-event", "email-update", $user) == 0
>@@ -260,6 +274,16 @@
> return $adb->get_prop($PanelUser, "EmailVacation");
> }
>
>+sub get_vacation_datefrom
>+{
>+ return $adb->get_prop($PanelUser, "EmailVacationFrom");
>+}
>+
>+sub get_vacation_dateto
>+{
>+ return $adb->get_prop($PanelUser, "EmailVacationTo");
>+}
>+
> # this formats the text to display on screen
> sub userpanel_get_vacation_text
> {
--
You are receiving this mail because:
You are the QA Contact for the bug._______________________________________________
Mail for each SME Contribs bug report
To unsubscribe, e-mail [email protected]
Searchable archive at http://lists.contribs.org/mailman/public/contribteam/
