1 |
snetram |
1.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 |
|
|
|