1 |
--- smeserver-vacation-1.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/uservacations.pm.addListOfRepliedAdresses 2008-09-11 22:29:26.000000000 +0200 |
2 |
+++ smeserver-vacation-1.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/uservacations.pm 2008-09-11 22:43:43.000000000 +0200 |
3 |
@@ -103,6 +103,14 @@ |
4 |
$t->render(\@data, $vacation_table); |
5 |
} |
6 |
|
7 |
+sub print_replied_addresses |
8 |
+{ |
9 |
+ my $self = shift; |
10 |
+ my $q = $self->{cgi}; |
11 |
+ |
12 |
+ return "<pre>@todo -cimplement retrieve and print list of replied user(s)</pre>"; |
13 |
+} |
14 |
+ |
15 |
sub modify_link |
16 |
{ |
17 |
my ($data_item, $row, $field) = @_; |
18 |
--- smeserver-vacation-1.0/root/etc/e-smith/web/functions/uservacations.addListOfRepliedAdresses 2008-09-11 22:29:26.000000000 +0200 |
19 |
+++ smeserver-vacation-1.0/root/etc/e-smith/web/functions/uservacations 2008-09-11 22:44:56.000000000 +0200 |
20 |
@@ -65,6 +65,8 @@ |
21 |
<label>VACATION_STATUS</label> |
22 |
</field> |
23 |
|
24 |
+ <subroutine src="print_replied_addresses()" /> |
25 |
+ |
26 |
<subroutine src="print_button('SAVE')" /> |
27 |
</page> |
28 |
|