[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.99

version 1.96, 2004/11/19 19:31:13 version 1.99, 2004/11/23 16:04:33
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 880  sub crumbs { Line 904  sub crumbs {
     $output.='<font size="'.$size.'">'.$prefix.'/';      $output.='<font size="'.$size.'">'.$prefix.'/';
     if ($ENV{'user.adv'}) {      if ($ENV{'user.adv'}) {
  my $path=$prefix.'/';   my $path=$prefix.'/';
  foreach (split('/',$uri)) {   foreach my $dir (split('/',$uri)) {
     unless ($_) { next; }              if (! $dir) { next; }
     $path.=$_;              $path .= $dir;
     unless ($path eq $uri) { $path.='/'; }      unless ($path eq $uri) { $path.='/'; }
     my $linkpath=$path;              my $linkpath = &Apache::loncommon::escape_single($path);
     if ($form) {              if ($form) {
  my $escaped_path = &Apache::loncommon::escape_single($path);   $linkpath=
  $linkpath="javascript:$form.action='$escaped_path';$form.submit();";                      qq{javascript:$form.action='$linkpath';$form.submit();};
     }              }
     my $escaped_linkpath = &Apache::loncommon::escape_single($linkpath);              if ($target) { 
     my $escaped_target   = &Apache::loncommon::escape_single($target);                  $target = ' target="'.
     $output.='<a href="'.$escaped_linkpath.'"'.($target?' target="'.$escaped_target.'"':'').'>'.$_.'</a>/';                      &Apache::loncommon::escape_single($target).'"';
               }
       $output.=qq{<a href="$linkpath" $target>$dir</a>/};
  }   }
     } else {      } else {
  $output.=$uri;   $output.=$uri;
Removed from v.1.96  
changed lines
  Added in v.1.99

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