[Koha-cvs] CVS: koha koha.upgrade,1.1.2.23,1.1.2.24

[Steve Tonnesen]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv12521

Modified Files:
      Tag: rel-1-2
        koha.upgrade 
Log Message:
Upgrade script preserves templates now.


Index: koha.upgrade
===================================================================
RCS file: /cvsroot/koha/koha/koha.upgrade,v
retrieving revision 1.1.2.23
retrieving revision 1.1.2.24
diff -C2 -r1.1.2.23 -r1.1.2.24
*** koha.upgrade        28 Oct 2002 22:59:46 -0000      1.1.2.23
--- koha.upgrade        30 Oct 2002 22:49:21 -0000      1.1.2.24
***************
*** 322,325 ****
--- 322,355 ----
  
  
+ # Copy custom templates and reports back in
+ 
+ opendir D, "$backupdir/kohafiles-$date/intranet/htdocs/";
+ my @dirlist=readdir D;
+ foreach (@dirlist) {
+     (next) if (/^\./);
+     (next) if ($_ eq 'default');
+     (next) if ($_ eq 'doc');
+     (next) if ($_=~/^koha-/);
+     (next) if (-e "$::intranetdir/htdocs/$_");
+     print "Restoring custom intranet templates $_...\n";
+     system("cp -a $backupdir/kohafiles-$date/intranet/htdocs/$_ 
$::intranetdir/htdocs/");
+ }
+ 
+ opendir D, "$backupdir/kohafiles-$date/opac/htdocs/";
+ my @dirlist=readdir D;
+ foreach (@dirlist) {
+     (next) if (/^\./);
+     (next) if ($_ eq 'default');
+     (next) if ($_ eq 'doc');
+     (next) if ($_=~/^koha-/);
+     (next) if (-e "$::opacdir/htdocs/$_");
+     print "Restoring custom opac template $_...\n";
+     system("cp -a $backupdir/kohafiles-$date/opac/htdocs/$_ 
$::opacdir/htdocs/");
+ }
+ 
+ 
+ 
+ 
+ 
  unless ($::kohalogdir && -e $::kohalogdir) {
      $::kohalogdir='/var/log/koha';