loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.33, 2003/10/17 19:56:13
+version 1.37, 2003/12/29 21:17:00
  Line 437  sub StatusOptions {
      $Str .= ' size="'.$size.'" ';
      $Str .= '>'."\n";
      $Str .= '<option value="Active" '.$OpSel1.'>'.
-         'Currently Enrolled</option>'."\n";
+         &mt('Currently Enrolled').'</option>'."\n";
      $Str .= '<option value="Expired" '.$OpSel2.'>'.
-         'Previously Enrolled</option>'."\n";
+         &mt('Previously Enrolled').'</option>'."\n";
      $Str .= '<option value="Any" '.$OpSel3.'>'.
-         'Any Enrollment Status</option>'."\n";
+         &mt('Any Enrollment Status').'</option>'."\n";
      $Str .= '</select>'."\n";
  }
  Line 835  sub Close_PrgWin {
      $r->rflush();
  }
+ # ------------------------------------------------------- Puts directory header
+ sub crumbs {
+     my ($uri,$target,$prefix)=@_;
+     my $output='<br /><tt><b><font size="+2">'.$prefix.'/';
+     if ($ENV{'user.adv'}) {
+ 	my $path=$prefix;
+ 	foreach (split('/',$uri)) {
+ 	    unless ($_) { next; }
+ 	    $path.='/'.$_;
+ 	    $output.='<a href="'.$path.'"'.($target?' target="'.$target.'"':'').'>'.$_.'</a>/';
+ 	}
+     } else {
+ 	$output.=$uri;
+     }
+     unless ($uri=~/\/$/) { $output=~s/\/$//; }
+     return $output.'</font></b></tt><br />';
+ }
 ;
  __END__