[LON-CAPA-cvs] cvs: rat / lonambiguous.pm

bisitz bisitz at source.lon-capa.org
Thu Oct 4 08:40:30 EDT 2012


bisitz		Thu Oct  4 12:40:30 2012 EDT

  Modified files:              
    /rat	lonambiguous.pm 
  Log:
  - Standard design (data_table) for list of ambiguous resources
  - Warning style for warning message
  - Internationalization
  - Code clean up (no tabs)
  
  
Index: rat/lonambiguous.pm
diff -u rat/lonambiguous.pm:1.23 rat/lonambiguous.pm:1.24
--- rat/lonambiguous.pm:1.23	Thu Nov 20 15:19:05 2008
+++ rat/lonambiguous.pm	Thu Oct  4 12:40:29 2012
@@ -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 @@
                $r->send_http_header;
                my $start_page=
 		   &Apache::loncommon::start_page('Pick Instance of Resource');
-               $r->print(<<ENDSTART);
-$start_page
-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.
-<p>
-Please click on the instance of the resource you intended to access:
-</p>
-<table border="2">
-<tr><th>Title</th><th>Part of ...</th></tr>
-ENDSTART
+               $r->print(
+                   $start_page
+                  .'<p class="LC_warning">'
+                  .&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.')
+                  .'</p>'
+                  .'<p>'
+                  .&mt('Please click on the instance of the resource you'
+                      .' 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 {
-		   my $resurl=$bighash{'src_'.$_};
+                   my $resurl=$bighash{'src_'.$_};
                    my $mapurl=$bighash{'map_id_'.(split(/\./,$_))[0]};
-		   my $symb=&make_symb($_);
-		   $r->print('<tr><td><a href="'.$resurl.'?symb='.$symb.'">'.
-			     &Apache::lonnet::gettitle($symb).
-			     '</a></td><td>'.
-			     &Apache::lonnet::gettitle($mapurl).' '.
-			     '</td></tr>');
+                   my $symb=&make_symb($_);
+                   $r->print(
+                       &Apache::loncommon::start_data_table_row()
+                      .'<td><a href="'.$resurl.'?symb='.$symb.'">'
+                      .&Apache::lonnet::gettitle($symb)
+                      .'</a></td>'
+                      .'<td>'.&Apache::lonnet::gettitle($mapurl).' </td>'
+                      .&Apache::loncommon::end_data_table_row()
+                   );
                } @possibilities;
-               $r->print('</table>'.&Apache::loncommon::end_page());
-	       untie(%bighash);
+               $r->print(
+                   &Apache::loncommon::end_data_table()
+                  .&Apache::loncommon::end_page()
+               );
+               untie(%bighash);
                return OK;
             }
          }




More information about the LON-CAPA-cvs mailing list