--- rat/lonambiguous.pm 2006/09/19 19:03:27 1.21
+++ 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.21 2006/09/19 19:03:27 albertel Exp $
+# $Id: lonambiguous.pm,v 1.24 2012/10/04 12:40:29 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -26,6 +26,8 @@
# http://www.lon-capa.org/
#
+
+
package Apache::lonambiguous;
use strict;
@@ -190,29 +192,45 @@ sub handler {
$r->send_http_header;
my $start_page=
&Apache::loncommon::start_page('Pick Instance of Resource');
- $r->print(<
Title | Part of ... | '.&mt('Title').' | ' + .''.&mt('Part of ...').' | ' + .&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('
---|---|
'. - &Apache::lonnet::gettitle($symb). - ' | '. - &Apache::lonnet::gettitle($mapurl).' '. - ' | ' + .&Apache::lonnet::gettitle($symb) + .' | ' + .''.&Apache::lonnet::gettitle($mapurl).' | ' + .&Apache::loncommon::end_data_table_row() + ); } @possibilities; - $r->print('