projects
/
BackupPC.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* Major changes from Ryan Kucera to add style sheets to the CGI
[BackupPC.git]
/
lib
/
BackupPC
/
CGI
/
DirHistory.pm
diff --git
a/lib/BackupPC/CGI/DirHistory.pm
b/lib/BackupPC/CGI/DirHistory.pm
index
a1b2d2d
..
728068f
100644
(file)
--- a/
lib/BackupPC/CGI/DirHistory.pm
+++ b/
lib/BackupPC/CGI/DirHistory.pm
@@
-84,8
+84,9
@@
sub action
my %inode2name;
my $nameCnt = 0;
(my $fDisp = "${EscHTML($f)}") =~ s/ / /g;
my %inode2name;
my $nameCnt = 0;
(my $fDisp = "${EscHTML($f)}") =~ s/ / /g;
- $fileStr .= "<tr><td align=left>$fDisp</td>";
- my($colSpan, $url, $inode, $type, $tdColor);
+ $fileStr .= "<tr><td align=\"left\" class=\"histView\">$fDisp</td>";
\r
+ my($colSpan, $url, $inode, $type);
\r
+ my $tdClass = ' class="histView"';
\r
for ( $i = 0 ; $i < @Backups ; $i++ ) {
my($path);
if ( $colSpan > 0 ) {
for ( $i = 0 ; $i < @Backups ; $i++ ) {
my($path);
if ( $colSpan > 0 ) {
@@
-109,16
+110,16
@@
sub action
$colSpan++;
next;
}
$colSpan++;
next;
}
- $fileStr .= "<td align=center colspan=$colSpan$tdC
olor>"
+ $fileStr .= "<td align=center colspan=$colSpan$tdC
lass>"
\r
. "$url</td>";
$colSpan = 0;
. "$url</td>";
$colSpan = 0;
- $tdC
olor = "";
+ $tdC
lass = ' class="histView"';
\r
}
if ( !defined($hist->{$f}[$i]) ) {
$colSpan = 1;
$url = " ";
$inode = -3; # special value for missing
}
if ( !defined($hist->{$f}[$i]) ) {
$colSpan = 1;
$url = " ";
$inode = -3; # special value for missing
- $tdC
olor = ' bgcolor="#ffffaa"';
+ $tdC
lass = ' class="histViewMis"';
\r
next;
}
if ( $dir eq "" ) {
next;
}
if ( $dir eq "" ) {
@@
-154,7
+155,7
@@
EOF
$colSpan = 1;
}
if ( $colSpan > 0 ) {
$colSpan = 1;
}
if ( $colSpan > 0 ) {
- $fileStr .= "<td align=center colspan=$colSpan$tdC
olor>$url</td>";
+ $fileStr .= "<td align=center colspan=$colSpan$tdC
lass>$url</td>";
\r
$colSpan = 0;
}
$fileStr .= "</tr>\n";
$colSpan = 0;
}
$fileStr .= "</tr>\n";
@@
-164,11
+165,8
@@
EOF
$dirDisplay =~ s{//+}{/}g;
$dirDisplay =~ s{/+$}{}g;
$dirDisplay = "/" if ( $dirDisplay eq "" );
$dirDisplay =~ s{//+}{/}g;
$dirDisplay =~ s{/+$}{}g;
$dirDisplay = "/" if ( $dirDisplay eq "" );
-
- Header(eval("qq{$Lang->{DirHistory_backup_for__host}}"));
-
- print (eval("qq{$Lang->{DirHistory_for__host}}"));
-
+ my $content = eval("qq{$Lang->{DirHistory_for__host}}");
\r
+ Header(eval("qq{$Lang->{DirHistory_backup_for__host}}"), $content);
\r
Trailer();
}
Trailer();
}