version 1.23, 2008/11/20 15:19:05
|
version 1.24, 2012/10/04 12:40:29
|
Line 192 sub handler {
|
Line 192 sub handler {
|
$r->send_http_header; |
$r->send_http_header; |
my $start_page= |
my $start_page= |
&Apache::loncommon::start_page('Pick Instance of Resource'); |
&Apache::loncommon::start_page('Pick Instance of Resource'); |
$r->print(<<ENDSTART); |
$r->print( |
$start_page |
$start_page |
The resource you had been accessing appears more than once in this course, |
.'<p class="LC_warning">' |
and LON-CAPA has insufficient session information to determine which instance |
.&mt('The resource you had been accessing appears more than' |
of the resource you meant. |
.' once in this course, and LON-CAPA has insufficient' |
<p> |
.' session information to determine which instance' |
Please click on the instance of the resource you intended to access: |
.' of the resource you meant.') |
</p> |
.'</p>' |
<table border="2"> |
.'<p>' |
<tr><th>Title</th><th>Part of ...</th></tr> |
.&mt('Please click on the instance of the resource you' |
ENDSTART |
.' intended to access:') |
|
.'</p>' |
|
); |
|
$r->print( |
|
&Apache::loncommon::start_data_table() |
|
.&Apache::loncommon::start_data_table_header_row() |
|
.'<th>'.&mt('Title').'</th>' |
|
.'<th>'.&mt('Part of ...').'</th>' |
|
.&Apache::loncommon::end_data_table_header_row() |
|
.&Apache::loncommon::start_data_table_row() |
|
); |
map { |
map { |
my $resurl=$bighash{'src_'.$_}; |
my $resurl=$bighash{'src_'.$_}; |
my $mapurl=$bighash{'map_id_'.(split(/\./,$_))[0]}; |
my $mapurl=$bighash{'map_id_'.(split(/\./,$_))[0]}; |
my $symb=&make_symb($_); |
my $symb=&make_symb($_); |
$r->print('<tr><td><a href="'.$resurl.'?symb='.$symb.'">'. |
$r->print( |
&Apache::lonnet::gettitle($symb). |
&Apache::loncommon::start_data_table_row() |
'</a></td><td>'. |
.'<td><a href="'.$resurl.'?symb='.$symb.'">' |
&Apache::lonnet::gettitle($mapurl).' '. |
.&Apache::lonnet::gettitle($symb) |
'</td></tr>'); |
.'</a></td>' |
|
.'<td>'.&Apache::lonnet::gettitle($mapurl).' </td>' |
|
.&Apache::loncommon::end_data_table_row() |
|
); |
} @possibilities; |
} @possibilities; |
$r->print('</table>'.&Apache::loncommon::end_page()); |
$r->print( |
untie(%bighash); |
&Apache::loncommon::end_data_table() |
|
.&Apache::loncommon::end_page() |
|
); |
|
untie(%bighash); |
return OK; |
return OK; |
} |
} |
} |
} |