19 |
my @ret; |
my @ret; |
20 |
|
|
21 |
my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } ); |
my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } ); |
22 |
my $sth = $dbh->prepare(qq{ SELECT id, share FROM shares} ); |
my $sth = $dbh->prepare(qq{ SELECT id, share FROM shares ORDER BY share} ); |
23 |
$sth->execute(); |
$sth->execute(); |
24 |
push @ret, { 'id' => '', 'share' => '-'}; # dummy any |
push @ret, { 'id' => '', 'share' => '-'}; # dummy any |
25 |
|
|
353 |
$file->{'sharename'}, |
$file->{'sharename'}, |
354 |
qq{<img src="$Conf{CgiImageDirURL}/icon-$typeStr.gif" align="center"> } . hilite_html( $file->{'fpath'}, $hilite ), |
qq{<img src="$Conf{CgiImageDirURL}/icon-$typeStr.gif" align="center"> } . hilite_html( $file->{'fpath'}, $hilite ), |
355 |
$typeStr, |
$typeStr, |
356 |
restore_link( $typeStr, $file->{'hname'}, $file->{'backupno'}, $file->{'sname'}, $file->{'fpath'}, $file->{'backupno'} ), |
restore_link( $typeStr, ${EscURI( $file->{'hname'} )}, $file->{'backupno'}, ${EscURI( $file->{'sname'})}, ${EscURI( $file->{'fpath'} )}, $file->{'backupno'} ), |
357 |
$file->{'size'}, |
$file->{'size'}, |
358 |
epoch_to_iso( $file->{'date'} ), |
epoch_to_iso( $file->{'date'} ), |
359 |
$file->{'dvd'} |
$file->{'dvd'} |