version 1.87, 2006/05/11 01:16:44
|
version 1.89, 2006/05/30 12:46:09
|
Line 38 use Apache::londocs;
|
Line 38 use Apache::londocs;
|
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::londropadd; |
use Apache::londropadd; |
use lib '/home/httpd/lib/perl'; |
use lib '/home/httpd/lib/perl'; |
|
use LONCAPA; |
|
|
# ================================================ Get course directory listing |
# ================================================ Get course directory listing |
|
|
Line 57 sub innercrsdirlist {
|
Line 58 sub innercrsdirlist {
|
my %crsdata=&Apache::lonnet::coursedescription($courseid); |
my %crsdata=&Apache::lonnet::coursedescription($courseid); |
my @listing=&Apache::lonnet::dirlist |
my @listing=&Apache::lonnet::dirlist |
($which,$crsdata{'domain'},$crsdata{'num'}, |
($which,$crsdata{'domain'},$crsdata{'num'}, |
&Apache::loncommon::propath($crsdata{'domain'},$crsdata{'num'})); |
&propath($crsdata{'domain'},$crsdata{'num'})); |
foreach (@listing) { |
foreach (@listing) { |
unless ($_=~/^\./) { |
unless ($_=~/^\./) { |
my @unpackline = split (/\&/,$_); |
my @unpackline = split (/\&/,$_); |
Line 234 sub copydbfiles {
|
Line 235 sub copydbfiles {
|
foreach (&crsdirlist($origcrsid)) { |
foreach (&crsdirlist($origcrsid)) { |
if ($_=~/\.db$/) { |
if ($_=~/\.db$/) { |
unless |
unless |
($_=~/^(nohist\_|discussiontimes|classlist|versionupdate|resourcedata|\Q$origcrs_discussion\E|slots|slot_reservations|(grading|review)queue|CODEs)/) { |
($_=~/^(nohist\_|discussiontimes|classlist|versionupdate|resourcedata|\Q$origcrs_discussion\E|slots|slot_reservations|gradingqueue|reviewqueue|CODEs)/) { |
©db($origcrsid,$newcrsid,$_); |
©db($origcrsid,$newcrsid,$_); |
my $histfile=$_; |
my $histfile=$_; |
$histfile=~s/\.db$/\.hist/; |
$histfile=~s/\.db$/\.hist/; |