From lon-capa-cvs-allow@mail.lon-capa.org Mon Nov 26 10:27:59 2007
From: lon-capa-cvs-allow@mail.lon-capa.org (Mandy@Viagra.com)
Date: Mon, 26 Nov 2007 05:27:59 -0500
Subject: [LON-CAPA-cvs] November 76% OFF
Message-ID: <20071126042938.36879.qmail@station212>
Click to buy Viagra for as low as $1.43
From lon-capa-cvs-allow@mail.lon-capa.org Wed Nov 28 01:41:51 2007
From: lon-capa-cvs-allow@mail.lon-capa.org (albertel)
Date: Wed, 28 Nov 2007 01:41:51 -0000
Subject: [LON-CAPA-cvs] cvs: loncom /interface lonevaluate.pm
Message-ID:
albertel Tue Nov 27 20:41:51 2007 EDT
Modified files:
/loncom/interface lonevaluate.pm
Log:
- style police
Index: loncom/interface/lonevaluate.pm
diff -u loncom/interface/lonevaluate.pm:1.22 loncom/interface/lonevaluate.pm:1.23
--- loncom/interface/lonevaluate.pm:1.22 Thu Nov 22 10:12:31 2007
+++ loncom/interface/lonevaluate.pm Tue Nov 27 20:41:49 2007
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Evaluate
#
-# $Id: lonevaluate.pm,v 1.22 2007/11/22 15:12:31 bisitz Exp $
+# $Id: lonevaluate.pm,v 1.23 2007/11/28 01:41:49 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -135,8 +135,11 @@
}
}
# ------------------------------------------------------- Print out eval screen
- my %lt=&Apache::lonlocal::texthash('a' => 'Strongly Disagree', 'b' => 'Disagree'
- , 'c' => 'Neutral', 'd' => 'Agree', 'e' => 'Strongly Agree');
+ my %lt=&Apache::lonlocal::texthash('a' => 'Strongly Disagree',
+ 'b' => 'Disagree',
+ 'c' => 'Neutral',
+ 'd' => 'Agree',
+ 'e' => 'Strongly Agree',);
my $standardoptions='';
$standardoptions = (<-
@@ -151,14 +154,14 @@
my $end_page = &Apache::loncommon::end_page();
%lt=&Apache::lonlocal::texthash(
- 'pleaserank' => 'Please rank the following criteria:'
- , 'correct' => 'The material appears to be correct'
- , 'helpful' => 'The material is helpful'
- , 'depth' => 'The material is covered with sufficient depth'
- , 'clear' => 'The material is presented in a clear way'
- , 'technical' => 'The resource is technically correct (loads fast enough, does not produce errors, links work, etc)'
- , 'comments' => 'Any comments?'
- , 'submit' => 'Submit Evaluation'
+ 'pleaserank' => 'Please rank the following criteria:',
+ 'correct' => 'The material appears to be correct',
+ 'helpful' => 'The material is helpful',
+ 'depth' => 'The material is covered with sufficient depth',
+ 'clear' => 'The material is presented in a clear way',
+ 'technical' => 'The resource is technically correct (loads fast enough, does not produce errors, links work, etc)',
+ 'comments' => 'Any comments?',
+ 'submit' => 'Submit Evaluation',
);
$r->print(<
albertel Tue Nov 27 20:46:15 2007 EDT
Modified files:
/loncom/interface lonevaluate.pm
Log:
- &mt()ing
Index: loncom/interface/lonevaluate.pm
diff -u loncom/interface/lonevaluate.pm:1.23 loncom/interface/lonevaluate.pm:1.24
--- loncom/interface/lonevaluate.pm:1.23 Tue Nov 27 20:41:49 2007
+++ loncom/interface/lonevaluate.pm Tue Nov 27 20:46:12 2007
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Evaluate
#
-# $Id: lonevaluate.pm,v 1.23 2007/11/28 01:41:49 albertel Exp $
+# $Id: lonevaluate.pm,v 1.24 2007/11/28 01:46:12 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -33,7 +33,7 @@
use Apache::Constants qw(:common);
use Apache::loncommon();
use Apache::lonenc();
-use Apache::lonlocal; # must not have ()
+use Apache::lonlocal;
use LONCAPA();
sub handler {
@@ -100,20 +100,20 @@
my $start_page =
&Apache::loncommon::start_page('Evaluate Resource',$js);
- $r->print(<Thank you for your input!
-ENDHEADER
- $r->print('Saving feedback: '.
- &Apache::lonnet::put('nohist_resevaldata',\%currenteval,$rdomain,$rauth));
+ $r->print('
+'.$start_page.'
+
'.&mt('Thank you for your input!').'
+');
+ $r->print(&mt('Saving feedback: [_1]',
+ &Apache::lonnet::put('nohist_resevaldata',\%currenteval,$rdomain,$rauth)));
unless ($already) {
- $r->print(' Logging first evaluation');
+ $r->print(' '.&mt('Logging first evaluation'));
}
$r->print(
''.&Apache::loncommon::end_page());
return OK;
} else {
- $warning='Please fill out all fields below';
+ $warning=&mt('Please fill out all fields below');
}
}
From lon-capa-cvs-allow@mail.lon-capa.org Wed Nov 28 02:59:28 2007
From: lon-capa-cvs-allow@mail.lon-capa.org (albertel)
Date: Wed, 28 Nov 2007 02:59:28 -0000
Subject: [LON-CAPA-cvs] cvs: loncom /homework grades.pm
Message-ID:
albertel Tue Nov 27 21:59:28 2007 EDT
Modified files:
/loncom/homework grades.pm
Log:
- &mt()ing
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.497 loncom/homework/grades.pm:1.498
--- loncom/homework/grades.pm:1.497 Wed Nov 21 07:16:42 2007
+++ loncom/homework/grades.pm Tue Nov 27 21:59:27 2007
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.497 2007/11/21 12:16:42 foxr Exp $
+# $Id: grades.pm,v 1.498 2007/11/28 02:59:27 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -6672,9 +6672,7 @@
my $current_line = $first_bubble_line{$question-1} + 1 ;
if ($lines > 1) {
- $r->print("The group of bubble lines below responds to a single question. ");
- $r->print("Select at most one bubble in a single line and select 'No Bubble' ");
- $r->print("in all the other lines. ");
+ $r->print(&mt("The group of bubble lines below responds to a single question. Select at most one bubble in a single line and select 'No Bubble' in all the other lines. ")." ");
}
for (my $i =0; $i < $lines; $i++) {
my $selected = $$scan_record{"scantron.$current_line.answer"};
From lon-capa-cvs-allow@mail.lon-capa.org Wed Nov 28 07:24:05 2007
From: lon-capa-cvs-allow@mail.lon-capa.org (VIAGRA ® Official Site)
Date: Wed, 28 Nov 2007 02:24:05 -0500
Subject: [LON-CAPA-cvs] November 79% OFF
Message-ID: <20071128-32404.76025.qmail@josh-f6i6t31vif>
Click to buy Viagra for as low as $1.43
From lon-capa-cvs-allow@mail.lon-capa.org Wed Nov 28 17:36:13 2007
From: lon-capa-cvs-allow@mail.lon-capa.org (albertel)
Date: Wed, 28 Nov 2007 17:36:13 -0000
Subject: [LON-CAPA-cvs] cvs: loncom(version_2_6_X) /interface loncreatecourse.pm lonpickcourse.pm
Message-ID:
albertel Wed Nov 28 12:36:13 2007 EDT
Modified files: (Branch: version_2_6_X)
/loncom/interface lonpickcourse.pm loncreatecourse.pm
Log:
- hide type selector
Index: loncom/interface/lonpickcourse.pm
diff -u loncom/interface/lonpickcourse.pm:1.67 loncom/interface/lonpickcourse.pm:1.67.2.1
--- loncom/interface/lonpickcourse.pm:1.67 Mon Nov 5 23:39:19 2007
+++ loncom/interface/lonpickcourse.pm Wed Nov 28 12:36:11 2007
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Pick a course
#
-# $Id: lonpickcourse.pm,v 1.67 2007/11/06 04:39:19 raeburn Exp $
+# $Id: lonpickcourse.pm,v 1.67.2.1 2007/11/28 17:36:11 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -430,9 +430,9 @@
if ($domainselectform) {
$output .= $lt{'cdo'}.': '.$domainselectform.' '."\n";
}
- if ($typeselectform) {
- $output .= $lt{'cog'}.': '.$typeselectform.' '."\n";
- }
+# if ($typeselectform) {
+# $output .= $lt{'cog'}.': '.$typeselectform.' '."\n";
+# }
if ($instcodeform) {
$output .= $lt{'cin'}.': '.$instcodeform.' '."\n";
}
Index: loncom/interface/loncreatecourse.pm
diff -u loncom/interface/loncreatecourse.pm:1.104 loncom/interface/loncreatecourse.pm:1.104.2.1
--- loncom/interface/loncreatecourse.pm:1.104 Thu Aug 23 17:54:40 2007
+++ loncom/interface/loncreatecourse.pm Wed Nov 28 12:36:11 2007
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Create a course
#
-# $Id: loncreatecourse.pm,v 1.104 2007/08/23 21:54:40 albertel Exp $
+# $Id: loncreatecourse.pm,v 1.104.2.1 2007/11/28 17:36:11 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -44,10 +44,11 @@
sub print_course_creation_page {
my $r=shift;
- my $crstype = 'Group';
- if ($env{'form.phase'} eq 'courseone') {
- $crstype = 'Course';
- }
+ my $crstype = 'Course';
+# my $crstype = 'Group';
+# if ($env{'form.phase'} eq 'courseone') {
+# $crstype = 'Course';
+# }
my $defdom=$env{'request.role.domain'};
my %host_servers = &Apache::lonnet::get_servers($defdom,'library');
my $course_home = '