projects
/
koha-bibliografija
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e66742d
)
create temporary *.new files and rename them to *.html
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 19 Nov 2013 13:10:28 +0000
(14:10 +0100)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 19 Nov 2013 13:10:28 +0000
(14:10 +0100)
html.pl
patch
|
blob
|
history
diff --git
a/html.pl
b/html.pl
index
043d8c9
..
3f3a641
100755
(executable)
--- a/
html.pl
+++ b/
html.pl
@@
-138,7
+138,7
@@
sub biblioitem_html {
mkdir 'html' unless -d 'html';
mkdir 'html' unless -d 'html';
-open(my $index, '>:encoding(utf-8)', 'html/index.
html
');
+open(my $index, '>:encoding(utf-8)', 'html/index.
new
');
print $index html_title('Bibliografija Filozogskog fakulteta');
my $first_letter = '';
print $index html_title('Bibliografija Filozogskog fakulteta');
my $first_letter = '';
@@
-153,7
+153,8
@@
foreach my $row ( sort { $a->{full_name} cmp $b->{full_name} } @authors ) {
}
print $index qq{<li><a href="}, $row->{authid}, qq{.html">}, $row->{full_name}, "</a></li>\n";
}
print $index qq{<li><a href="}, $row->{authid}, qq{.html">}, $row->{full_name}, "</a></li>\n";
- open(my $fh, '>:encoding(utf-8)', "html/$row->{authid}.html");
+ my $path = "html/$row->{authid}";
+ open(my $fh, '>:encoding(utf-8)', "$path.new");
print $fh html_title($row->{full_name}, "bibliografija");
foreach my $category ( sort keys %{ $authors->{ $row->{authid} } } ) {
my $label = $category_label->{$category} || 'Bez kategorije';
print $fh html_title($row->{full_name}, "bibliografija");
foreach my $category ( sort keys %{ $authors->{ $row->{authid} } } ) {
my $label = $category_label->{$category} || 'Bez kategorije';
@@
-165,10
+166,13
@@
foreach my $row ( sort { $a->{full_name} cmp $b->{full_name} } @authors ) {
}
print $fh html_end;
close($fh);
}
print $fh html_end;
close($fh);
+ rename "$path.new", "$path.html";
}
print $index html_end;
}
print $index html_end;
+close($index);
+rename 'html/index.new', 'html/index.html';
#print dump( $authors );
#print dump( $authors );