1 |
bytegw |
1.1 |
--- smeserver-vacation-1.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/uservacations.pm.Locale 2008-08-12 20:25:59.000000000 +0100 |
2 |
|
|
+++ smeserver-vacation-1.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/uservacations.pm 2008-08-12 20:37:00.000000000 +0100 |
3 |
|
|
@@ -30,7 +30,7 @@ |
4 |
|
|
|
5 |
|
|
sub new { |
6 |
|
|
shift; |
7 |
|
|
- my $self = esmith::FormMagick->new(); |
8 |
|
|
+ my $self = esmith::FormMagick->new(filename => '/etc/e-smith/web/functions/uservacations'); |
9 |
|
|
$self->{calling_package} = (caller)[0]; |
10 |
|
|
bless $self; |
11 |
|
|
return $self; |
12 |
|
|
@@ -388,4 +388,4 @@ |
13 |
|
|
return $self->success("SUCCESS"); |
14 |
|
|
} |
15 |
|
|
|
16 |
|
|
-1; |
17 |
|
|
\ No newline at end of file |
18 |
|
|
+1; |