version 1.163, 2007/06/27 23:27:23
|
version 1.165, 2007/06/28 22:28:22
|
Line 128 sub handler {
|
Line 128 sub handler {
|
if ($env{'form.launch'} eq '1') { |
if ($env{'form.launch'} eq '1') { |
&start_fresh_session(\%dbfile); |
&start_fresh_session(\%dbfile); |
} |
} |
|
|
while(my($key,$value)=each(%dbfile)) { |
while(my($key,$value)=each(%dbfile)) { |
$hash{$key}=$value; |
$hash{$key}=$value; |
} |
} |
Line 409 ENDHEADER
|
Line 408 ENDHEADER
|
$ac++; |
$ac++; |
} |
} |
# sorting through the actions and changing the global database hash |
# sorting through the actions and changing the global database hash |
foreach (sort {$achash{$a}<=>$achash{$b}} (keys %ahash)) { |
foreach my $key (sort {$achash{$a}<=>$achash{$b}} (keys %ahash)) { |
my $key=$_; |
|
if ($ahash{$key} eq '1') { |
if ($ahash{$key} eq '1') { |
$hash{'store_'.$hash{'pre_'.$key.'_link'}}= |
$hash{'store_'.$hash{'pre_'.$key.'_link'}}= |
$hash{'pre_'.$key.'_title'}; |
$hash{'pre_'.$key.'_title'}; |
$hash{'storectr_'.$hash{'pre_'.$key.'_link'}}= |
$hash{'storectr_'.$hash{'pre_'.$key.'_link'}}= |
$hash{'storectr'}+0; |
$hash{'storectr'}+0; |
$hash{'storectr'}++; |
$hash{'storectr'}++; |
Line 953 sub display_line {
|
Line 951 sub display_line {
|
$r->print(" />\n"); |
$r->print(" />\n"); |
$r->print("</form></td><td nowrap='nowrap' valign='top'>"); |
$r->print("</form></td><td nowrap='nowrap' valign='top'>"); |
$hash{"pre_${fnum}_link"}=$filelink; |
$hash{"pre_${fnum}_link"}=$filelink; |
|
$hash{"pre_${fnum}_title"}=&Apache::lonnet::gettitle($filelink,'title'); |
|
if (!$hash{"pre_${fnum}_title"}) { |
|
$hash{"pre_${fnum}_title"} = 'Untitled'; |
|
} |
$fnum++; |
$fnum++; |
} |
} |
# Form to open or close sequences |
# Form to open or close sequences |