Diff for /rat/lonratedt.pm between versions 1.3 and 1.4

version 1.3, 2001/05/26 19:55:07 version 1.4, 2001/06/30 14:05:57
Line 3 Line 3
 # (TeX Content Handler  # (TeX Content Handler
 #  #
 # 05/29/00,05/30 Gerd Kortemeyer)  # 05/29/00,05/30 Gerd Kortemeyer)
 # 7/1 Gerd Kortemeyer  # 7/1,6/30 Gerd Kortemeyer
   
 package Apache::lonratedt;  package Apache::lonratedt;
   
Line 45  ENDSMPHEAD Line 45  ENDSMPHEAD
       '<input type=submit name=forcesmp value="Store"></form></body></html>');        '<input type=submit name=forcesmp value="Store"></form></body></html>');
 }  }
   
   sub nodir {
      my ($r,$dir)=@_;
      $dir=~s/^\/home\/\w+\/public\_html//;
      $r->print(<<ENDNODIR);
   <html>
   <body bgcolor='#FFFFFF'>
   <h1>No such directory: $dir</h1>
   </body>
   </html>
   ENDNODIR
   }
   
 # ================================================================ Main Handler  # ================================================================ Main Handler
   
 sub handler {  sub handler {
Line 57  sub handler { Line 69  sub handler {
   my $url=$r->uri;    my $url=$r->uri;
   my $fn=&Apache::lonnet::filelocation('',$url);    my $fn=&Apache::lonnet::filelocation('',$url);
   
     my ($dir)=($fn=~/^(.+)\/[^\/]+$/);
     unless (-e $dir) {
         &nodir($r,$dir);
         return OK;
     }
   my $adv=0;    my $adv=0;
   
   unless ($ENV{'form.forcesmp'}) {    unless ($ENV{'form.forcesmp'}) {

Removed from v.1.3  
changed lines
  Added in v.1.4


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