--- trunk/bin/BackupPC_burnArchiveCLI	2005/10/12 16:49:02	188
+++ trunk/bin/BackupPC_burnArchiveCLI	2005/10/12 16:49:03	189
@@ -62,6 +62,8 @@
 	my $output = new IO::File(">$filename");
 	my $writer = new XML::Writer(OUTPUT=>$output, NEWLINES => 1);
 
+	$writer->pi('xml-stylesheet', 'href="archive.css" type="text/css"');
+
 	my $files_sql = q{
 		SELECT 
 			files.path AS path,
@@ -116,12 +118,14 @@
 		$sth_files->execute($row->{'backup_id'});
 
 		delete($row->{'backup_id'});
+		$row->{'date'} = strftime($t_fmt,gmtime($row->{'date'}));
 
 		$writer->startTag( "backup", %{$row} );
 
 		while (my $row = $sth_files->fetchrow_hashref()) {
 			# convert filetype to string
 			$row->{'type'} = BackupPC::Attrib::fileType2Text(undef, $row->{'type'});
+			$row->{'date'} = strftime($t_fmt,gmtime($row->{'date'}));
 			my $path = $row->{'path'}; delete $row->{'path'};
 
 			$writer->startTag("file", %{$row});
@@ -269,11 +273,18 @@
 
 	}
 
-	# FIXME add file list in xml and txt and note file
-
+	# add file list and note in xml
 	dumpArchive2XML($dbh, $dvd_nr, $xml_file);
 	print $list "$xml_file\n";
 
+	# add css file for archive
+	my $css_file = $Conf{CgiImageDir} . '/archive.css';
+	if (-r $css_file) {
+		print $list "$css_file\n";
+	} else {
+		print "WARNING: missing $css_file, not added to iso image!\n";
+	}
+
 	close($list);
 
 	print "Running mkisofs now for $inc increments...\n";