|
version 1.4, 2008/01/18 17:51:18
|
version 1.5, 2008/01/21 17:47:21
|
|
Line 161 sub copyresourcedb {
|
Line 161 sub copyresourcedb {
|
| |
|
| $startdate = $start{'default_enrollment_start_date'}; |
$startdate = $start{'default_enrollment_start_date'}; |
| } |
} |
| my $today=time; |
|
| my $delta=0; |
|
| if ($startdate) { |
|
| my $oneday=60*60*24; |
|
| $delta=$today-$startdate; |
|
| $delta=int($delta/$oneday)*$oneday; |
|
| } |
|
| # ugly retro fix for broken version of types |
# ugly retro fix for broken version of types |
| foreach (keys %data) { |
foreach (keys %data) { |
| if ($_=~/\wtype$/) { |
if ($_=~/\wtype$/) { |
|
Line 188 sub copyresourcedb {
|
Line 181 sub copyresourcedb {
|
| delete $data{$_}; |
delete $data{$_}; |
| } |
} |
| } |
} |
| # adjust dates |
|
| foreach (keys %data) { |
|
| my $thiskey=$_; |
|
| $thiskey=~s/^$origcrsid/$newcrsid/; |
|
| $newdata{$thiskey}=$data{$_}; |
|
| if ($data{$_.'.type'}=~/^date_(start|end)$/) { |
|
| if ($delta > 0) { |
|
| $newdata{$thiskey}=$newdata{$thiskey}+$delta; |
|
| } else { |
|
| # no delta, it's unlikely we want the old dates and times |
|
| delete($newdata{$thiskey}); |
|
| delete($newdata{$thiskey.'.type'}); |
|
| } |
|
| } |
|
| } |
|
| return &Apache::lonnet::put |
return &Apache::lonnet::put |
| ('resourcedata',\%newdata,$newcrsdata{'domain'},$newcrsdata{'num'}); |
('resourcedata',\%newdata,$newcrsdata{'domain'},$newcrsdata{'num'}); |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonclonecourse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface