version 1.143, 2004/09/14 21:27:36
|
version 1.146, 2004/09/18 17:06:57
|
Line 934 sub editor {
|
Line 934 sub editor {
|
$comment=~s/\</\<\;/g; |
$comment=~s/\</\<\;/g; |
$comment=~s/\>/\>\;/g; |
$comment=~s/\>/\>\;/g; |
$comment=~s/\:/\:/g; |
$comment=~s/\:/\:/g; |
$Apache::lonratedt::resources[ |
if ($comment=~/\S/) { |
|
$Apache::lonratedt::resources[ |
$Apache::lonratedt::order[$idx]]= |
$Apache::lonratedt::order[$idx]]= |
$comment.':'.join(':',@rrest); |
$comment.':'.join(':',@rrest); |
|
} |
} |
} |
# Store the changed version |
# Store the changed version |
($errtext,$fatal)=&storemap($coursenum,$coursedom, |
($errtext,$fatal)=&storemap($coursenum,$coursedom, |
Line 1146 END
|
Line 1147 END
|
} elsif ($url!~/\.(sequence|page)$/) { |
} elsif ($url!~/\.(sequence|page)$/) { |
$url='/adm/coursedocs/showdoc'.$url; |
$url='/adm/coursedocs/showdoc'.$url; |
} |
} |
|
} elsif ($url=~m|^/ext/|) { |
|
$url='/adm/wrapper'.$url; |
} |
} |
unless ($container eq 'page') { |
unless ($container eq 'page') { |
$url.=(($url=~/\?/)?'&':'?').'symb='.&Apache::lonnet::escape($symb); |
$url.=(($url=~/\?/)?'&':'?').'symb='.&Apache::lonnet::escape($symb); |
Line 1202 ENDPARMS
|
Line 1205 ENDPARMS
|
sub tiehash { |
sub tiehash { |
my ($mode)=@_; |
my ($mode)=@_; |
$hashtied=0; |
$hashtied=0; |
|
&Apache::lonnet::logthis(" tiehash1 -- $hashtied "); |
if ($ENV{'request.course.fn'}) { |
if ($ENV{'request.course.fn'}) { |
|
&Apache::lonnet::logthis(" tiehash2 -- $hashtied "); |
if ($mode eq 'write') { |
if ($mode eq 'write') { |
|
&Apache::lonnet::logthis(" tiehash3 -- $hashtied "); |
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.".db", |
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.".db", |
&GDBM_WRCREAT(),0640)) { |
&GDBM_WRCREAT(),0640)) { |
$hashtied=2; |
$hashtied=2; |
|
&Apache::lonnet::logthis(" tiehash4 -- $hashtied "); |
} |
} |
} else { |
} else { |
|
&Apache::lonnet::logthis(" tiehash5 -- $hashtied "); |
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.".db", |
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.".db", |
&GDBM_READER(),0640)) { |
&GDBM_READER(),0640)) { |
$hashtied=1; |
$hashtied=1; |
|
&Apache::lonnet::logthis(" tiehash6 -- $hashtied "); |
} |
} |
} |
} |
} |
} |
|
&Apache::lonnet::logthis(" tiehash7 -- $hashtied "); |
} |
} |
|
|
sub untiehash { |
sub untiehash { |
|
&Apache::lonnet::logthis(" untiehash1 -- $hashtied "); |
if ($hashtied) { untie %hash; } |
if ($hashtied) { untie %hash; } |
$hashtied=0; |
$hashtied=0; |
|
&Apache::lonnet::logthis(" untiehash2 -- $hashtied "); |
} |
} |
|
|
# --------------------------------------------------------------- check on this |
# --------------------------------------------------------------- check on this |
Line 1575 ENDHEADERS
|
Line 1587 ENDHEADERS
|
|
|
sub mark_hash_old { |
sub mark_hash_old { |
my $retie_hash=0; |
my $retie_hash=0; |
|
&Apache::lonnet::logthis(" markold1 -- $hashtied $retie_hash "); |
if ($hashtied) { |
if ($hashtied) { |
$retie_hash=1; |
$retie_hash=1; |
|
&Apache::lonnet::logthis(" markold2 -- $hashtied $retie_hash "); |
&untiehash(); |
&untiehash(); |
|
&Apache::lonnet::logthis(" markold3 -- $hashtied $retie_hash "); |
} |
} |
&tiehash('write'); |
&tiehash('write'); |
|
&Apache::lonnet::logthis(" markold4 -- $hashtied $retie_hash "); |
$hash{'old'}=1; |
$hash{'old'}=1; |
|
&Apache::lonnet::logthis(" markold5 -- $hashtied $retie_hash "); |
&untiehash(); |
&untiehash(); |
|
&Apache::lonnet::logthis(" markold6 -- $hashtied $retie_hash "); |
if ($retie_hash) { &tiehash(); } |
if ($retie_hash) { &tiehash(); } |
|
&Apache::lonnet::logthis(" markold7 -- $hashtied $retie_hash "); |
} |
} |
|
|
sub is_hash_old { |
sub is_hash_old { |