[BACK]Return to lonambiguous.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/lonambiguous.pm between versions 1.23 and 1.24

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).'&nbsp;'.                        .&Apache::lonnet::gettitle($symb)
      '</td></tr>');                        .'</a></td>'
                         .'<td>'.&Apache::lonnet::gettitle($mapurl).'&nbsp;</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;
             }              }
          }           }
Removed from v.1.23  
changed lines
  Added in v.1.24

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>