version 1.147, 2006/06/23 07:02:51
|
version 1.150, 2006/07/28 19:16:08
|
Line 123 sub handler {
|
Line 123 sub handler {
|
%hash = (); |
%hash = (); |
{ |
{ |
my %dbfile; |
my %dbfile; |
if (tie(%dbfile,'GDBM_File',$diropendb,&GDBM_READER(),0640)) { |
if (tie(%dbfile,'GDBM_File',$diropendb,&GDBM_WRITER(),0640)) { |
|
if ($env{'form.launch'} eq '1') { |
|
&start_fresh_session(\%dbfile); |
|
} |
|
|
while(my($key,$value)=each(%dbfile)) { |
while(my($key,$value)=each(%dbfile)) { |
$hash{$key}=$value; |
$hash{$key}=$value; |
} |
} |
Line 131 sub handler {
|
Line 135 sub handler {
|
} |
} |
} |
} |
{ |
{ |
if ($env{'form.launch'} eq '1') { |
|
&start_fresh_session(); |
|
} |
|
#Hijack lonindexer to verify a title and be close down. |
#Hijack lonindexer to verify a title and be close down. |
if ($env{'form.launch'} eq '2') { |
if ($env{'form.launch'} eq '2') { |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
Line 1046 sub display_line {
|
Line 1047 sub display_line {
|
# links |
# links |
&dynmetaread($filelink); |
&dynmetaread($filelink); |
$r->print('<td>'); |
$r->print('<td>'); |
|
&coursecontext($r,$filelink); |
&dynmetaprint($r,$filelink,'goto_list'); |
&dynmetaprint($r,$filelink,'goto_list'); |
&dynmetaprint($r,$filelink,'comefrom_list'); |
&dynmetaprint($r,$filelink,'comefrom_list'); |
&dynmetaprint($r,$filelink,'sequsage_list'); |
&dynmetaprint($r,$filelink,'sequsage_list'); |
Line 1148 sub display_line {
|
Line 1150 sub display_line {
|
|
|
} |
} |
|
|
|
sub coursecontext { |
|
my ($r,$filelink)=@_; |
|
my $filesymb=&Apache::lonnet::symbread($filelink); |
|
if ($filesymb) { |
|
my ($map,$index,$resource)=&Apache::lonnet::decode_symb($filesymb); |
|
$r->print(&mt('Already in this course:<br />[_1] in folder/map [_2].<br />', |
|
&Apache::lonnet::gettitle($resource), |
|
&Apache::lonnet::gettitle($map))); |
|
} |
|
} |
|
|
sub showpreview { |
sub showpreview { |
my ($filelink)=@_; |
my ($filelink)=@_; |
|
if ($filelink=~/^(\/ext\/|http\:\/\/)/) { |
|
return &mt('External Resource, preview not enabled'); |
|
} |
my ($curfext)=($filelink=~/\.(\w+)$/); |
my ($curfext)=($filelink=~/\.(\w+)$/); |
my $output=''; |
my $output=''; |
my $embstyle=&Apache::loncommon::fileembstyle($curfext); |
my $embstyle=&Apache::loncommon::fileembstyle($curfext); |
Line 1219 sub begin_form {
|
Line 1235 sub begin_form {
|
|
|
# --------- settings whenever the user causes the indexer window to be launched |
# --------- settings whenever the user causes the indexer window to be launched |
sub start_fresh_session { |
sub start_fresh_session { |
delete $hash{'form.catalogmode'}; |
my ($hash) = @_; |
delete $hash{'form.mode'}; |
delete $hash->{'form.catalogmode'}; |
delete $hash{'form.form'}; |
delete $hash->{'form.mode'}; |
delete $hash{'form.element'}; |
delete $hash->{'form.form'}; |
delete $hash{'form.omit'}; |
delete $hash->{'form.element'}; |
delete $hash{'form.only'}; |
delete $hash->{'form.omit'}; |
foreach (keys %hash) { |
delete $hash->{'form.only'}; |
delete $hash{$_} if (/^(pre_|store)/); |
foreach (keys %{$hash}) { |
|
delete $hash->{$_} if (/^(pre_|store)/); |
} |
} |
} |
} |
|
|