Lines 73-81
open OUTPUT, '>', File::Spec->catdir( $output_directory, "holdnotices-" . $today
Link Here
|
73 |
my $template = C4::Output::gettemplate( 'batch/print-notices.tmpl', 'intranet', new CGI ); |
73 |
my $template = C4::Output::gettemplate( 'batch/print-notices.tmpl', 'intranet', new CGI ); |
74 |
my $stylesheet_contents = ''; |
74 |
my $stylesheet_contents = ''; |
75 |
|
75 |
|
76 |
open STYLESHEET, '<', $stylesheet; |
76 |
if ($stylesheet) { |
77 |
while ( <STYLESHEET> ) { $stylesheet_contents .= $_ } |
77 |
open STYLESHEET, '<', $stylesheet; |
78 |
close STYLESHEET; |
78 |
while ( <STYLESHEET> ) { $stylesheet_contents .= $_ } |
|
|
79 |
close STYLESHEET; |
80 |
} |
79 |
|
81 |
|
80 |
$template->param( |
82 |
$template->param( |
81 |
stylesheet => $stylesheet_contents, |
83 |
stylesheet => $stylesheet_contents, |
82 |
- |
|
|