[BACK]Return to lonhtmlcommon.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonhtmlcommon.pm between versions 1.96 and 1.98

version 1.96, 2004/11/19 19:31:13 version 1.98, 2004/11/23 14:53:05
Line 141  sub select_recent { Line 141  sub select_recent {
     return $return;      return $return;
 }  }
   
   sub get_recent {
       my ($area, $n) = @_;
       my %recent=&Apache::lonnet::dump(&recent_filename($area));
   
   # Create hash with key as time and recent as value
       my %time_hash = ();
       foreach (keys %recent) {
           my $thistime=(split(/\&/,$recent{$_}))[0];
           $time_hash{$thistime} = $_;
       }
   
   # Sort by decreasing time and return key value pairs
       my %return_hash = ();
       my $idx = 1;
       foreach (reverse sort keys %time_hash) {
          $return_hash{$time_hash{$_}} =
                     &Apache::lonnet::unescape((split(/\&/,$recent{$_}))[1]);
          if ($n && ($idx++ >= $n)) {last;}
       }
   
       return %return_hash;
   }
   
   
   
 =pod  =pod
   
Line 884  sub crumbs { Line 908  sub crumbs {
     unless ($_) { next; }      unless ($_) { next; }
     $path.=$_;      $path.=$_;
     unless ($path eq $uri) { $path.='/'; }      unless ($path eq $uri) { $path.='/'; }
     my $linkpath=$path;              my $escaped_linkpath = &Apache::loncommon::escape_single($path);
     if ($form) {              if ($form) {
  my $escaped_path = &Apache::loncommon::escape_single($path);   $escaped_linkpath="javascript:$form.action='".
  $linkpath="javascript:$form.action='$escaped_path';$form.submit();";                      &Apache::loncommon::escape_single($path).
     }                      "';$form.submit();";
     my $escaped_linkpath = &Apache::loncommon::escape_single($linkpath);              }
     my $escaped_target   = &Apache::loncommon::escape_single($target);      my $escaped_target   = &Apache::loncommon::escape_single($target);
     $output.='<a href="'.$escaped_linkpath.'"'.($target?' target="'.$escaped_target.'"':'').'>'.$_.'</a>/';      $output.='<a href="'.$escaped_linkpath.'"'.($target?' target="'.$escaped_target.'"':'').'>'.$_.'</a>/';
  }   }
Removed from v.1.96  
changed lines
  Added in v.1.98

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