version 1.12, 2014/06/07 19:13:42
|
version 1.13, 2014/06/12 00:33:41
|
Line 1047 ACT
|
Line 1047 ACT
|
if (&Apache::lonnet::is_on_map($url)) { |
if (&Apache::lonnet::is_on_map($url)) { |
if ($type eq 'map') { |
if ($type eq 'map') { |
if (ref($navmap)) { |
if (ref($navmap)) { |
my $res = $navmap->getResourceByUrl($item); |
my $title; |
my $title = $res->compTitle(); |
my $resobj = $navmap->getResourceByUrl($item); |
|
if (ref($resobj)) { |
|
$title = $resobj->compTitle(); |
|
} else { |
|
$title = &Apache::lonnet::gettitle($item); |
|
} |
$itemname = &mt('Timer for all items in folder: [_1]', |
$itemname = &mt('Timer for all items in folder: [_1]', |
'<span style="font-style:italic">'. |
'<span style="font-style:italic">'. |
$title.'</span>'); |
$title.'</span>'); |
} |
} |
} else { |
} else { |
if (ref($navmap)) { |
if (ref($navmap)) { |
my $res = $navmap->getBySymb($item); |
my $title; |
my $title = $res->compTitle(); |
my $resobj = $navmap->getBySymb($item); |
|
if (ref($resobj)) { |
|
$title = $resobj->compTitle(); |
|
} else { |
|
$title = &Apache::lonnet::gettitle($item); |
|
} |
$itemname = &mt('Timer for resource: [_1]', |
$itemname = &mt('Timer for resource: [_1]', |
'<span style="font-style:italic">'. |
'<span style="font-style:italic">'. |
$title.'</span>'); |
$title.'</span>'); |
Line 1358 sub create_interval_form {
|
Line 1368 sub create_interval_form {
|
if (ref($intervals->{$type}) eq 'HASH') { |
if (ref($intervals->{$type}) eq 'HASH') { |
if (ref($navmap)) { |
if (ref($navmap)) { |
foreach my $map (sort(keys(%{$intervals->{$type}}))) { |
foreach my $map (sort(keys(%{$intervals->{$type}}))) { |
|
next if ((!&Apache::lonnet::is_on_map($map)) && |
|
($currkey ne $map)); |
my ($checked,$clickaction); |
my ($checked,$clickaction); |
if ($currkey eq $map) { |
if ($currkey eq $map) { |
$checked = ' checked="checked"'; |
$checked = ' checked="checked"'; |
Line 1368 sub create_interval_form {
|
Line 1380 sub create_interval_form {
|
'" value="'.&HTML::Entities::encode($map,'"<>&').'"'. |
'" value="'.&HTML::Entities::encode($map,'"<>&').'"'. |
$checked.$clickaction.' />'; |
$checked.$clickaction.' />'; |
if ($currkey eq $map) { |
if ($currkey eq $map) { |
$intervalform .= $itemname.'</label>'; |
$intervalform .= $itemname.'</label>'.$iteminfo; |
} else { |
} else { |
my $res = $navmap->getResourceByUrl($map); |
my ($resobj,$title,$path,$hierarchy); |
my $title = $res->compTitle(); |
$resobj = $navmap->getResourceByUrl($map); |
my $path; |
if (ref($resobj)) { |
my $hierarchy = &show_timer_path($type,$map,$navmap); |
$title = $resobj->compTitle(); |
|
} else { |
|
$title = &Apache::lonnet::gettitle($map); |
|
} |
|
$hierarchy = &show_timer_path($type,$map,$navmap); |
if ($hierarchy) { |
if ($hierarchy) { |
$path = ' <span style="font-size:90%;">'. |
$path = ' <span style="font-size:90%;">'. |
&mt('(in: [_1])',$hierarchy). |
&mt('(in: [_1])',$hierarchy). |
Line 1383 sub create_interval_form {
|
Line 1399 sub create_interval_form {
|
'<i>'.$title.'</i>'). |
'<i>'.$title.'</i>'). |
'</label>'.$path; |
'</label>'.$path; |
} |
} |
if ($currkey eq $map) { |
|
$intervalform .= $iteminfo; |
|
} |
|
$intervalform .= '<br />'; |
$intervalform .= '<br />'; |
} |
} |
} |
} |
Line 1394 sub create_interval_form {
|
Line 1407 sub create_interval_form {
|
if (ref($intervals->{$type}) eq 'HASH') { |
if (ref($intervals->{$type}) eq 'HASH') { |
if (ref($navmap)) { |
if (ref($navmap)) { |
foreach my $resource (sort(keys(%{$intervals->{$type}}))) { |
foreach my $resource (sort(keys(%{$intervals->{$type}}))) { |
my ($checked,$clickaction); |
my ($checked,$clickaction,$resobj); |
if ($currkey eq $resource) { |
if ($currkey eq $resource) { |
$checked = ' checked="checked"'; |
$checked = ' checked="checked"'; |
} elsif ($jschg) { |
} else { |
$clickaction = ' onclick="'.$jschg.'"'; |
$resobj = $navmap->getBySymb($resource); |
|
next unless(ref($resobj)); |
|
if ($jschg) { |
|
$clickaction = ' onclick="'.$jschg.'"'; |
|
} |
} |
} |
$intervalform .= '<label><input type="radio" name="firstaccess_'.$parmcount. |
$intervalform .= '<label><input type="radio" name="firstaccess_'.$parmcount. |
'" value="'.&HTML::Entities::encode($resource,'"<>&').'"'. |
'" value="'.&HTML::Entities::encode($resource,'"<>&').'"'. |
$checked.$clickaction.' />'; |
$checked.$clickaction.' />'; |
if ($currkey eq $resource) { |
if ($currkey eq $resource) { |
$intervalform .= $itemname.'</label>'; |
$intervalform .= $itemname.'</label>'.$iteminfo; |
} else { |
} else { |
my $res = $navmap->getBySymb($resource); |
my ($title,$path,$hierarchy); |
my $title = $res->compTitle(); |
if (ref($resobj)) { |
my $path; |
$title = $resobj->compTitle(); |
my $hierarchy = &show_timer_path($type,$resource,$navmap); |
} else { |
|
$title = &Apache::lonnet::gettitle($resource); |
|
} |
|
$hierarchy = &show_timer_path($type,$resource,$navmap); |
if ($hierarchy) { |
if ($hierarchy) { |
$path = ' <span style="font-size:90%;">'. |
$path = ' <span style="font-size:90%;">'. |
&mt('(in: [_1])',$hierarchy). |
&mt('(in: [_1])',$hierarchy). |
Line 1419 sub create_interval_form {
|
Line 1439 sub create_interval_form {
|
'</label>'. |
'</label>'. |
$path; |
$path; |
} |
} |
if ($currkey eq $resource) { |
|
$intervalform .= $iteminfo; |
|
} |
|
$intervalform .= '<br />'; |
$intervalform .= '<br />'; |
} |
} |
} |
} |