--- loncom/interface/loncommon.pm 2003/12/27 23:55:10 1.165
+++ loncom/interface/loncommon.pm 2003/12/29 21:17:00 1.167
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.165 2003/12/27 23:55:10 raeburn Exp $
+# $Id: loncommon.pm,v 1.167 2003/12/29 21:17:00 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -762,30 +762,43 @@ sub select_form {
return $selectform;
}
+sub gradeleveldescription {
+ my $gradelevel=shift;
+ my %gradelevels=(0 => 'Not specified',
+ 1 => 'Grade 1',
+ 2 => 'Grade 2',
+ 3 => 'Grade 3',
+ 4 => 'Grade 4',
+ 5 => 'Grade 5',
+ 6 => 'Grade 6',
+ 7 => 'Grade 7',
+ 8 => 'Grade 8',
+ 9 => 'Grade 9',
+ 10 => 'Grade 10',
+ 11 => 'Grade 11',
+ 12 => 'Grade 12',
+ 13 => 'Grade 13',
+ 14 => '100 Level',
+ 15 => '200 Level',
+ 16 => '300 Level',
+ 17 => '400 Level',
+ 18 => 'Graduate Level');
+ return &mt($gradelevels{$gradelevel});
+}
+
sub select_level_form {
my ($deflevel,$name)=@_;
unless ($deflevel) { $deflevel=0; }
- return &select_form($deflevel,$name,(
- 0 => 'Not specified',
- 1 => 'Grade 1',
- 2 => 'Grade 2',
- 3 => 'Grade 3',
- 4 => 'Grade 4',
- 5 => 'Grade 5',
- 6 => 'Grade 6',
- 7 => 'Grade 7',
- 8 => 'Grade 8',
- 9 => 'Grade 9',
- 10 => 'Grade 10',
- 11 => 'Grade 11',
- 12 => 'Grade 12',
- 13 => 'Grade 13',
- 14 => '100 Level',
- 15 => '200 Level',
- 16 => '300 Level',
- 17 => '400 Level',
- 18 => 'Graduate Level'));
+ my $selectform = "";
+ return $selectform;
}
+
#-------------------------------------------
=pod
@@ -1508,8 +1521,9 @@ sub noteswrapper {
# ------------------------------------------------------------- Aboutme Wrapper
sub aboutmewrapper {
- my ($link,$username,$domain)=@_;
- return "$link";
+ my ($link,$username,$domain,$target)=@_;
+ return "$link";
}
# ------------------------------------------------------------ Syllabus Wrapper
@@ -1587,7 +1601,7 @@ returns description of a specified copyr
=cut
sub copyrightdescription {
- return $cprtag{shift(@_)};
+ return &mt($cprtag{shift(@_)});
}
=pod
@@ -1636,7 +1650,7 @@ returns description for a specified file
=cut
sub filedescription {
- return $fd{lc(shift(@_))};
+ return &mt($fd{lc(shift(@_))});
}
=pod
@@ -1650,7 +1664,7 @@ extra formatting
sub filedescriptionex {
my $ex=shift;
- return '.'.$ex.' '.$fd{lc($ex)};
+ return '.'.$ex.' '.&mt($fd{lc($ex)});
}
# End of .tab access