[LON-CAPA-cvs] cvs: loncom /interface lonmsg.pm lonparmset.pm

bowersj2 lon-capa-cvs@mail.lon-capa.org
Mon, 22 Jul 2002 14:23:30 -0000


bowersj2		Mon Jul 22 10:23:30 2002 EDT

  Modified files:              
    /loncom/interface	lonmsg.pm lonparmset.pm 
  Log:
  Checking commit of scripts to make sure I don't get too far out of sync. Added help
  links to the message sender describing 'critical message', and several help links in
  the course parameters screen. (These will not work until some .tex files are checked
  in.)
  
  
  
Index: loncom/interface/lonmsg.pm
diff -u loncom/interface/lonmsg.pm:1.34 loncom/interface/lonmsg.pm:1.35
--- loncom/interface/lonmsg.pm:1.34	Wed Jun 26 16:41:55 2002
+++ loncom/interface/lonmsg.pm	Mon Jul 22 10:23:29 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.34 2002/06/26 20:41:55 www Exp $
+# $Id: lonmsg.pm,v 1.35 2002/07/22 14:23:29 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -49,6 +49,7 @@
 use vars qw($msgcount);
 use HTML::TokeParser;
 use Apache::Constants qw(:common);
+use Apache::loncommon;
 
 # ===================================================================== Package
 
@@ -343,10 +344,12 @@
       my $subject='Re: '.$content{'subject'};
       my $dispcrit='';
       if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {
+	 my $crithelp = Apache::loncommon::help_open_topic("Course_Critical_Message");
          $dispcrit=
- '<input type=checkbox name=critmsg> Send as critical message<br>'.
- '<input type=checkbox name=sendbck> Send as critical message'.
- ' and return receipt<p>';
+ '<input type=checkbox name=critmsg> Send as critical message ' . $crithelp . 
+ '<br>'.
+ '<input type=checkbox name=sendbck> Send as critical message ' .
+ ' and return receipt' . $crithelp . '<p>';
       }
       $r->print(<<"ENDREPLY");
 <form action="/adm/email" method=post>
@@ -432,10 +435,12 @@
     my $dismsg='';
     my $func='Send New';
       if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {
+	 my $crithelp = Apache::loncommon::help_open_topic("Course_Critical_Message");
          $dispcrit=
- '<input type=checkbox name=critmsg> Send as critical message<br>'.
- '<input type=checkbox name=sendbck> Send as critical message'.
- ' and return receipt<p>';
+ '<input type=checkbox name=critmsg> Send as critical message ' . $crithelp . 
+ '<br>'.
+ '<input type=checkbox name=sendbck> Send as critical message ' .
+ ' and return receipt' . $crithelp . '<p>';
       }
     if ($forwarding) {
        $dispcrit.='<input type=hidden name=forwid value="'.
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.54 loncom/interface/lonparmset.pm:1.55
--- loncom/interface/lonparmset.pm:1.54	Wed Jun 26 16:16:42 2002
+++ loncom/interface/lonparmset.pm	Mon Jul 22 10:23:29 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.54 2002/06/26 20:16:42 www Exp $
+# $Id: lonparmset.pm,v 1.55 2002/07/22 14:23:29 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -43,6 +43,8 @@
 # 12/19 Guy Albertelli
 # 12/26,12/27 Gerd Kortemeyer
 #
+# YEAR=2002
+# 7/19 Jeremy Bowers
 ###
 
 package Apache::lonparmset;
@@ -755,10 +757,9 @@
              'pageseparators'  => '<b>Visibly Separate Items on Pages</b><br>'.
                                  '("<tt>yes</tt>" for visible separation)',
              'pch.roles.denied'=> '<b>Disallow Resource Discussion for '.
-                                  'Roles</b><br>"<tt>st</tt>": '.
-                                  'student, "<tt>ta</tt>": '.
-                                  'TA, "<tt>in</tt>": '.
-                                  'instructor;<br><tt>role,role,...</tt>)',
+                                  'Roles</b> ' . 
+	   Apache::loncommon::help_open_topic("Course_Disable_Discussion")
+	                          ,
              'pch.users.denied' => 
                           '<b>Disallow Resource Discussion for Users</b><br>'.
                                  '(<tt>user:domain,user:domain,...</tt>)',