finish rename to BackupPC::Search

[BackupPC.git] / lib / BackupPC / CGI / BurnMedia.pm

diff --git a/lib/BackupPC/CGI/BurnMedia.pm b/lib/BackupPC/CGI/BurnMedia.pm
index 8f29a07..7d7eff3 100644 (file)
--- a/lib/BackupPC/CGI/BurnMedia.pm
+++ b/lib/BackupPC/CGI/BurnMedia.pm
@@ -2,7 +2,7 @@ package BackupPC::CGI::BurnMedia;
 
 use strict;
 use BackupPC::CGI::Lib qw(:all);
-use BackupPC::SearchLib;
+use BackupPC::Search;
 use Data::Dumper;
 use vars qw($Cgi %In $MyURL $User %Conf $TopDir $BinDir $bpc);
 
@@ -31,7 +31,7 @@ sub action() {
 EOF
              
                $cont .= "Backups that have not been archived:<br>";
-               $cont .= BackupPC::SearchLib::displayBackupsGrid( \%In );
+               $cont .= BackupPC::Search::displayBackupsGrid( \%In );
            
        } else {
 
@@ -46,7 +46,7 @@ EOF
 
                                my ($host_id, $backup_num, $backup_id) = ($1,$2,$3);
                                push @selected_backup_ids, $backup_id;
-                               my $currSize = BackupPC::SearchLib::getGzipSizeFromBackupID($backup_id);
+                               my $currSize = BackupPC::Search::getGzipSizeFromBackupID($backup_id);
                                my $sth_size = $dbh->prepare(q{select inc_size from backups where id = ?});
                                $sth_size -> execute( $backup_id );
                                my $db_size = $sth_size->fetchrow_hashref()->{inc_size};