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

Diff for /rat/lonambiguous.pm between versions 1.8 and 1.9

version 1.8, 2003/01/14 18:47:50 version 1.9, 2003/04/12 15:43:58
Line 37  use strict; Line 37  use strict;
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::Constants qw(:common REDIRECT);  use Apache::Constants qw(:common REDIRECT);
 use GDBM_File;  use GDBM_File;
   use Apache::loncommon;
   
 my %bighash;  my %bighash;
   
Line 56  sub getlost { Line 57  sub getlost {
     $r->content_type('text/html');      $r->content_type('text/html');
     $r->send_http_header;      $r->send_http_header;
     $r->print(      $r->print(
  '<head><title>Unknown Error</title></head><body bgcolor="#FFFFFF"><h1>'.   '<head><title>Unknown Error</title></head>'.
  'LON-CAPA</h1>Could not handle ambiguous resource reference.<p>'.$errmsg.    &Apache::loncommon::bodytag('Could not handle ambiguous resource reference').
     $errmsg.
  '</body></html>');   '</body></html>');
 }  }
   
Line 162  sub handler { Line 164  sub handler {
 # ----------------------------------------------- Okay, really multiple choices  # ----------------------------------------------- Okay, really multiple choices
                $r->content_type('text/html');                 $r->content_type('text/html');
                $r->send_http_header;                 $r->send_http_header;
                  my $bodytag=
                         &Apache::loncommon::bodytag('Pick Instance of Resource');
                $r->print(<<ENDSTART);                 $r->print(<<ENDSTART);
 <head><title>Choose Location</title></head>  <head><title>Choose Location</title></head>
 <body bgcolor="#FFFFFF">  $bodytag
 <h1>LON-CAPA</h1>  
 The resource you had been accessing appears more than once in this course,  The resource you had been accessing appears more than once in this course,
 and LON-CAPA has insufficient session information to determine which instance  and LON-CAPA has insufficient session information to determine which instance
 of the resource you meant.  of the resource you meant.
Line 183  ENDSTART Line 186  ENDSTART
                    $r->print('<tr><td><input type=submit value=Select name="'.                     $r->print('<tr><td><input type=submit value=Select name="'.
                               $_.'"></td><td>'.$bighash{'title_'.$_}.                                $_.'"></td><td>'.$bighash{'title_'.$_}.
                               '</td><td>'.$bighash{'type_'.$_}.                                '</td><td>'.$bighash{'type_'.$_}.
                               '</td><td><a href="'.$mapurl.'">'.$mapurl.                                '</td><td>'.
       '</a></td></tr>');                                ($mapurl=~/^\/uploaded\//?'':'<a href="'.$mapurl.'">').
                                 &Apache::lonnet::gettitle($mapurl).'&nbsp;'.
         ($mapurl=~/^\/uploaded\//?'':'</a>').'</td></tr>');
                } @possibilities;                 } @possibilities;
                $r->print('</table></form></body></html>');                 $r->print('</table></form></body></html>');
        untie(%bighash);         untie(%bighash);
Removed from v.1.8  
changed lines
  Added in v.1.9

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.