--- rat/lonambiguous.pm 2008/11/20 15:19:05 1.23 +++ rat/lonambiguous.pm 2012/10/04 12:40:29 1.24 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to resolve ambiguous file locations # -# $Id: lonambiguous.pm,v 1.23 2008/11/20 15:19:05 jms Exp $ +# $Id: lonambiguous.pm,v 1.24 2012/10/04 12:40:29 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -192,29 +192,45 @@ sub handler { $r->send_http_header; my $start_page= &Apache::loncommon::start_page('Pick Instance of Resource'); - $r->print(< -Please click on the instance of the resource you intended to access: -

- - -ENDSTART + $r->print( + $start_page + .'

' + .&mt('The resource you had been accessing appears more than' + .' once in this course, and LON-CAPA has insufficient' + .' session information to determine which instance' + .' of the resource you meant.') + .'

' + .'

' + .&mt('Please click on the instance of the resource you' + .' intended to access:') + .'

' + ); + $r->print( + &Apache::loncommon::start_data_table() + .&Apache::loncommon::start_data_table_header_row() + .'' + .'' + .&Apache::loncommon::end_data_table_header_row() + .&Apache::loncommon::start_data_table_row() + ); map { - my $resurl=$bighash{'src_'.$_}; + my $resurl=$bighash{'src_'.$_}; my $mapurl=$bighash{'map_id_'.(split(/\./,$_))[0]}; - my $symb=&make_symb($_); - $r->print(''); + my $symb=&make_symb($_); + $r->print( + &Apache::loncommon::start_data_table_row() + .'' + .'' + .&Apache::loncommon::end_data_table_row() + ); } @possibilities; - $r->print('
TitlePart of ...
'.&mt('Title').''.&mt('Part of ...').'
'. - &Apache::lonnet::gettitle($symb). - ''. - &Apache::lonnet::gettitle($mapurl).' '. - '
' + .&Apache::lonnet::gettitle($symb) + .''.&Apache::lonnet::gettitle($mapurl).' 
'.&Apache::loncommon::end_page()); - untie(%bighash); + $r->print( + &Apache::loncommon::end_data_table() + .&Apache::loncommon::end_page() + ); + untie(%bighash); return OK; } }