|
version 1.191, 2005/06/26 15:42:52
|
version 1.192, 2005/06/27 21:40:38
|
|
Line 1667 sub verifycontent {
|
Line 1667 sub verifycontent {
|
| &mt('Return to DOCS').'</a>'); |
&mt('Return to DOCS').'</a>'); |
| } |
} |
| |
|
| |
|
| # -------------------------------------------------------------- Check Versions |
# -------------------------------------------------------------- Check Versions |
| |
|
| |
sub devalidateversioncache { |
| |
my $src=shift; |
| |
&Apache::lonnet::devalidate_cache_new('courseresversion',$env{'request.course.id'}.'_'. |
| |
&Apache::lonnet::clutter($src)); |
| |
} |
| |
|
| sub checkversions { |
sub checkversions { |
| my $r=shift; |
my $r=shift; |
| my $html=&Apache::lonxml::xmlbegin(); |
my $html=&Apache::lonxml::xmlbegin(); |
|
Line 1695 sub checkversions {
|
Line 1702 sub checkversions {
|
| foreach (keys %hash) { |
foreach (keys %hash) { |
| if ($_=~/^ids\_(\/res\/.+)$/) { |
if ($_=~/^ids\_(\/res\/.+)$/) { |
| $newsetversions{$1}='mostrecent'; |
$newsetversions{$1}='mostrecent'; |
| |
&devalidateversioncache($1); |
| } |
} |
| } |
} |
| } elsif ($env{'form.setcurrent'}) { |
} elsif ($env{'form.setcurrent'}) { |
|
Line 1704 sub checkversions {
|
Line 1712 sub checkversions {
|
| my $getvers=&Apache::lonnet::getversion($1); |
my $getvers=&Apache::lonnet::getversion($1); |
| if ($getvers>0) { |
if ($getvers>0) { |
| $newsetversions{$1}=$getvers; |
$newsetversions{$1}=$getvers; |
| |
&devalidateversioncache($1); |
| } |
} |
| } |
} |
| } |
} |
|
Line 1714 sub checkversions {
|
Line 1723 sub checkversions {
|
| my $src=$1; |
my $src=$1; |
| if (($env{$_}) && ($env{$_} ne $setversions{$src})) { |
if (($env{$_}) && ($env{$_} ne $setversions{$src})) { |
| $newsetversions{$src}=$env{$_}; |
$newsetversions{$src}=$env{$_}; |
| |
&devalidateversioncache($src); |
| } |
} |
| } |
} |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to londocs.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface