version 1.473, 2011/12/20 22:41:31
|
version 1.476, 2011/12/25 19:39:08
|
Line 464 returns 4
|
Line 464 returns 4
|
|
|
=item add_linkitem() |
=item add_linkitem() |
|
|
=item show_linkitems() |
=item show_linkitems_toolbar() |
|
|
=back |
=back |
|
|
Line 632 sub getDescription {
|
Line 632 sub getDescription {
|
return &mt('Reserved - next open [_1]', |
return &mt('Reserved - next open [_1]', |
timeToHumanString($slot_time,'start')); |
timeToHumanString($slot_time,'start')); |
} elsif ($slot_status == $res->RESERVABLE) { |
} elsif ($slot_status == $res->RESERVABLE) { |
return &mt('Reservable ending [_1]', |
return &mt('Reservable, reservations close [_1]', |
timeToHumanString($slot_time,'end')); |
timeToHumanString($slot_time,'end')); |
} elsif ($slot_status == $res->RESERVABLE_LATER) { |
} elsif ($slot_status == $res->RESERVABLE_LATER) { |
return &mt('Reservable starting [_1]', |
return &mt('Reservable, reservations open [_1]', |
timeToHumanString($slot_time,'start')); |
timeToHumanString($slot_time,'start')); |
} elsif ($slot_status == $res->NOT_IN_A_SLOT) { |
} elsif ($slot_status == $res->NOT_IN_A_SLOT) { |
return &mt('Reserve a time/place to work'); |
return &mt('Reserve a time/place to work'); |
Line 1503 END
|
Line 1503 END
|
} |
} |
} |
} |
$result.='</form>'; |
$result.='</form>'; |
|
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { |
|
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
if ($env{'course.'.$env{'request.course.id'}.'.url'} eq |
|
"uploaded/$cdom/$cnum/default.sequence") { |
|
&add_linkitem($args->{'linkitems'},'edittoplevel', |
|
"javascript:gocmd('/adm/coursedocs','direct');", |
|
'Content Editor'); |
|
} |
|
} |
} |
} |
|
|
if ($args->{'caller'} eq 'navmapsdisplay') { |
if ($args->{'caller'} eq 'navmapsdisplay') { |
$result .= '<table><tr><td>'. |
$result .= &show_linkitems_toolbar($args,$condition); |
&Apache::loncommon::help_open_menu('Navigation Screen','Navigation_Screen',undef,'RAT').'</td>'; |
|
$result .= '<td> </td>'; |
|
$result.='<td class="LC_middle">'.&mt('Tools:').'</td>'; |
|
$result.=&show_linkitems_toolbar($args->{'linkitems'}); |
|
if ($args->{'sort_html'}) { |
|
$result.='<td> </td><td> </td><td> </td>'. |
|
'<td align="right">'.$args->{'sort_html'}.'</td></tr>'; |
|
} |
|
$result .= '</table>'; |
|
} elsif ($args->{'sort_html'}) { |
} elsif ($args->{'sort_html'}) { |
$result.=$args->{'sort_html'}; |
$result.=$args->{'sort_html'}; |
} |
} |
Line 1853 sub add_linkitem {
|
Line 1854 sub add_linkitem {
|
} |
} |
|
|
sub show_linkitems_toolbar { |
sub show_linkitems_toolbar { |
my ($linkitems,$condition)=@_; |
my ($args,$condition) = @_; |
my @linkorder = ('firsthomework','everything','uncompleted', |
my $result = |
'changefolder','clearbubbles'); |
'<table><tr><td>'. |
my $result .='<td align="left">'."\n". |
&Apache::loncommon::help_open_menu('Navigation Screen','Navigation_Screen',undef,'RAT'). |
'<span class="LC_nobreak">'."\n". |
'</td>'. |
'<ul id="LC_toolbar">'; |
'<td> </td>'. |
foreach my $link (@linkorder) { |
'<td class="LC_middle">'.&mt('Tools:').'</td>'; |
my $link_id = 'LC_content_toolbar_'.$link; |
if (ref($args) eq 'HASH') { |
if (defined($linkitems->{$link})) { |
if (ref($args->{'linkitems'}) eq 'HASH') { |
if ($linkitems->{$link}{'text'} ne '') { |
my @linkorder = ('firsthomework','everything','uncompleted', |
$linkitems->{$link}{'cmd'}=~s/"/'/g; |
'changefolder','clearbubbles','edittoplevel'); |
if ($linkitems->{$link}{'cmd'}) { |
$result .='<td align="left">'."\n". |
if ($link eq 'changefolder') { |
'<span class="LC_nobreak">'."\n". |
if ($condition) { |
'<ul id="LC_toolbar">'; |
$link_id='LC_content_toolbar_changefolder_toggled'; |
foreach my $link (@linkorder) { |
} else { |
my $link_id = 'LC_content_toolbar_'.$link; |
$link_id='LC_content_toolbar_changefolder'; |
if (ref($args->{'linkitems'}{$link}) eq 'HASH') { |
|
if ($args->{'linkitems'}{$link}{'text'} ne '') { |
|
$args->{'linkitems'}{$link}{'cmd'}=~s/"/'/g; |
|
if ($args->{'linkitems'}{$link}{'cmd'}) { |
|
if ($link eq 'changefolder') { |
|
if ($condition) { |
|
$link_id='LC_content_toolbar_changefolder_toggled'; |
|
} else { |
|
$link_id='LC_content_toolbar_changefolder'; |
|
} |
|
} |
|
$result .= '<li><a href="#" '. |
|
'onclick="'.$args->{'linkitems'}{$link}{'cmd'}.'" '. |
|
'id="'.$link_id.'" '. |
|
'class="LC_toolbarItem" '. |
|
'title="'.$args->{'linkitems'}{$link}{'text'}.'">'. |
|
'</a></li>'."\n"; |
} |
} |
} |
} |
$result .= '<li><a href="#" '. |
|
'onclick="'.$linkitems->{$link}{'cmd'}.'" '. |
|
'id="'.$link_id.'" '. |
|
'class="LC_toolbarItem" '. |
|
'title="'.$linkitems->{$link}{'text'}.'">'. |
|
'</a></li>'."\n"; |
|
} |
} |
} |
} |
|
$result .= '</ul>'. |
|
'</span></td>'."\n"; |
|
} |
|
if ($args->{'sort_html'}) { |
|
$result .= '<td> </td><td> </td><td> </td>'. |
|
'<td align="right">'.$args->{'sort_html'}.'</td>'; |
} |
} |
} |
} |
$result .= '</ul>'. |
$result .= '</tr></table>'; |
'</span></td>'."\n"; |
|
return $result; |
return $result; |
} |
} |
|
|
Line 5115 sub check_for_slot {
|
Line 5131 sub check_for_slot {
|
my $start = $slots{$slot_name}->{'starttime'}; |
my $start = $slots{$slot_name}->{'starttime'}; |
my $ip = $slots{$slot_name}->{'ip'}; |
my $ip = $slots{$slot_name}->{'ip'}; |
if ($self->simpleStatus() == OPEN) { |
if ($self->simpleStatus() == OPEN) { |
my @proctors; |
|
if ($slots{$slot_name}->{'proctor'} ne '') { |
|
@proctors = split(',',$slots{$slot_name}->{'proctor'}); |
|
} |
|
if ($end > $now) { |
if ($end > $now) { |
if ($start > $now) { |
if ($start > $now) { |
return (RESERVED_LATER,$start,$slot_name); |
return (RESERVED_LATER,$start,$slot_name); |
Line 5172 sub check_for_slot {
|
Line 5184 sub check_for_slot {
|
$env{'user.domain'}); |
$env{'user.domain'}); |
if (ref($reservable) eq 'HASH') { |
if (ref($reservable) eq 'HASH') { |
if ((ref($reservable->{'now_order'}) eq 'ARRAY') && (ref($reservable->{'now'}) eq 'HASH')) { |
if ((ref($reservable->{'now_order'}) eq 'ARRAY') && (ref($reservable->{'now'}) eq 'HASH')) { |
foreach my $slot (@{$reservable->{'now_order'}}) { |
foreach my $slot (reverse (@{$reservable->{'now_order'}})) { |
if (($reservable->{'now'}{$slot}{'symb'} eq '') || |
if (($reservable->{'now'}{$slot}{'symb'} eq '') || |
($reservable->{'now'}{$slot}{'symb'} eq $symb)) { |
($reservable->{'now'}{$slot}{'symb'} eq $symb)) { |
return(RESERVABLE,$reservable->{'now'}{$slot}{'endreserve'}); |
return(RESERVABLE,$reservable->{'now'}{$slot}{'endreserve'}); |
Line 5180 sub check_for_slot {
|
Line 5192 sub check_for_slot {
|
} |
} |
} |
} |
if ((ref($reservable->{'future_order'}) eq 'ARRAY') && (ref($reservable->{'future'}) eq 'HASH')) { |
if ((ref($reservable->{'future_order'}) eq 'ARRAY') && (ref($reservable->{'future'}) eq 'HASH')) { |
foreach my $slot (reverse (@{$reservable->{'future_order'}})) { |
foreach my $slot (@{$reservable->{'future_order'}}) { |
if (($reservable->{'future'}{$slot}{'symb'} eq '') || |
if (($reservable->{'future'}{$slot}{'symb'} eq '') || |
($reservable->{'future'}{$slot}{'symb'} eq $symb)) { |
($reservable->{'future'}{$slot}{'symb'} eq $symb)) { |
return(RESERVABLE_LATER,$reservable->{'future'}{$slot}{'startreserve'}); |
return(RESERVABLE_LATER,$reservable->{'future'}{$slot}{'startreserve'}); |