--- rat/lonambiguous.pm 2008/11/11 16:06:46 1.22
+++ 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.22 2008/11/11 16:06:46 jms Exp $
+# $Id: lonambiguous.pm,v 1.24 2012/10/04 12:40:29 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -27,40 +27,6 @@
#
-=head1 NAME
-
-Apache::lonambiguous
-
-=head1 SYNOPSIS
-
-Handler to resolve ambiguous file locations.
-
-This is part of the LearningOnline Network with CAPA project
-described at http://www.lon-capa.org.
-
-=head1 HANDLER SUBROUTINE
-
-make_symb()
-
-and
-
-handler()
-
-=head1 OTHER SUBROUTINES
-
-=over
-
-=item *
-
-cleanup()
-
-=item *
-
-getlost()
-
-=back
-
-=cut
package Apache::lonambiguous;
@@ -226,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('