version 1.299, 2012/01/02 20:38:18
|
version 1.300, 2012/01/03 00:28:29
|
Line 2003 sub course_custom_roles {
|
Line 2003 sub course_custom_roles {
|
|
|
|
|
sub resource_info_box { |
sub resource_info_box { |
my ($symb,$onlyfolderflag)=@_; |
my ($symb,$onlyfolderflag,$stuvcurrent,$stuvdisp)=@_; |
my $return=''; |
my $return=''; |
|
if ($stuvcurrent ne '') { |
|
$return = '<div class="LC_left_float">'; |
|
} |
if ($symb) { |
if ($symb) { |
$return=&Apache::loncommon::start_data_table(); |
$return.=&Apache::loncommon::start_data_table(); |
my ($map,$id,$resource)=&Apache::lonnet::decode_symb($symb); |
my ($map,$id,$resource)=&Apache::lonnet::decode_symb($symb); |
my $folder=&Apache::lonnet::gettitle($map); |
my $folder=&Apache::lonnet::gettitle($map); |
$return.=&Apache::loncommon::start_data_table_row(). |
$return.=&Apache::loncommon::start_data_table_row(). |
'<th>'.&mt('Folder:').'</th><td>'.$folder.'</td>'. |
'<th align="left">'.&mt('Folder:').'</th><td>'.$folder.'</td>'. |
&Apache::loncommon::end_data_table_row(); |
&Apache::loncommon::end_data_table_row(); |
unless ($onlyfolderflag) { |
unless ($onlyfolderflag) { |
$return.=&Apache::loncommon::start_data_table_row(). |
$return.=&Apache::loncommon::start_data_table_row(). |
'<th>'.&mt('Resource:').'</th><td>'.&Apache::lonnet::gettitle($symb).'</td>'. |
'<th align="left">'.&mt('Resource:').'</th><td>'.&Apache::lonnet::gettitle($symb).'</td>'. |
|
&Apache::loncommon::end_data_table_row(); |
|
} |
|
if ($stuvcurrent ne '') { |
|
$return .= &Apache::loncommon::start_data_table_row(). |
|
'<th align="left">'.&mt("Student's current version:").'</th><td>'.$stuvcurrent.'</td>'. |
|
&Apache::loncommon::end_data_table_row(); |
|
} |
|
if ($stuvdisp ne '') { |
|
$return .= &Apache::loncommon::start_data_table_row(). |
|
'<th align="left">'.&mt("Student's version displayed:").'</th><td>'.$stuvdisp.'</td>'. |
&Apache::loncommon::end_data_table_row(); |
&Apache::loncommon::end_data_table_row(); |
} |
} |
$return.=&Apache::loncommon::end_data_table(); |
$return.=&Apache::loncommon::end_data_table(); |
} else { |
} else { |
$return='<p><span class="LC_error">'.&mt('No context provided.').'</span></p>'; |
$return='<p><span class="LC_error">'.&mt('No context provided.').'</span></p>'; |
} |
} |
|
if ($stuvcurrent ne '') { |
|
$return .= '</div>'; |
|
} |
return $return; |
return $return; |
|
|
} |
} |
|
|
############################################## |
############################################## |