[BACK]Return to lonsimplepage.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonsimplepage.pm between versions 1.45 and 1.47

version 1.45, 2006/07/20 03:11:52 version 1.47, 2006/08/16 19:40:46
Line 38  use Apache::lonlocal; Line 38  use Apache::lonlocal;
 use Apache::lonprintout;  use Apache::lonprintout;
 use Apache::lonxml;  use Apache::lonxml;
 use Apache::longroup;  use Apache::longroup;
   use HTML::Entities();
 use LONCAPA;  use LONCAPA;
   
 sub handler {  sub handler {
Line 182  sub handler { Line 183  sub handler {
     }      }
   
     if ($forcestudent or $target eq 'tex') { $allowed=0; }      if ($forcestudent or $target eq 'tex') { $allowed=0; }
       
     if ($allowed) {      if ($allowed) {
  $r->print('<p>'.   $r->print('<p>'.
   &Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes','Help with filling in text boxes').'<br /><a href="'.$r->uri.'?forcestudent=1'.$refarg.'"><font size="+1">'.&mt('Show Student View').'</font></a>'.    &Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes','Help with filling in text boxes').'<br /><a href="'.$r->uri.'?forcestudent=1'.$refarg.'"><font size="+1">'.&mt('Show Student View').'</font></a>'.
Line 235  sub handler { Line 236  sub handler {
   
 # ---------------------------------------------------------------- Get syllabus  # ---------------------------------------------------------------- Get syllabus
     if ((($syllabus{'uploaded.lastmodified'}) &&       if ((($syllabus{'uploaded.lastmodified'}) && 
          (($group ne '' && ($group_home_view || $group_edit_perm ||            (($group ne '' && ($group_home_view || $group_edit_perm ||  
            $group_view_perm)) || ($group eq ''))) || ($allowed)) {              $group_view_perm)) || ($group eq ''))) || ($allowed)) {
  if ($syllabus{'uploaded.photourl'}) {   if ($syllabus{'uploaded.photourl'}) {
     &Apache::lonnet::allowuploaded('/adm/smppg',      &Apache::lonnet::allowuploaded('/adm/smppg',
    $syllabus{'uploaded.photourl'});     $syllabus{'uploaded.photourl'});
Line 258  sub handler { Line 259  sub handler {
       '</form><form method="post">');        '</form><form method="post">');
  }   }
  foreach (sort keys %syllabusfields) {   foreach (sort keys %syllabusfields) {
     if (($syllabus{$_}) || ($allowed)) {      if (($syllabus{$_}) || ($allowed) || 
                   ($_ eq 'abb_links' && $group ne '')) {
  my $message=$syllabus{$_};   my $message=$syllabus{$_};
  &Apache::lonfeedback::newline_to_br(\$message);   &Apache::lonfeedback::newline_to_br(\$message);
  $message   $message
Line 284  sub handler { Line 286  sub handler {
                         if ($env{'form.grade_target'} ne 'tex') {                          if ($env{'form.grade_target'} ne 'tex') {
                             $r->print(                              $r->print(
                                       '<br />Title<br /><textarea cols="80" rows="2" name="'.$_.'">'.                                        '<br />Title<br /><textarea cols="80" rows="2" name="'.$_.'">'.
                                       $syllabus{$_}.                                        &HTML::Entities::encode($syllabus{$_},'"&<>').
                                       '</textarea><input type="submit" name="storesyl" value="Store" />');                                        '</textarea><input type="submit" name="storesyl" value="Store" />');
                         } else {                          } else {
                             my $safeinit;                              my $safeinit;
Line 310  sub handler { Line 312  sub handler {
     if ($allowed) {      if ($allowed) {
  if ($target ne 'tex') {   if ($target ne 'tex') {
     $r->print('<br /><textarea cols="80" rows="24" name="'.$_.'" id="'.$_.'">'.      $r->print('<br /><textarea cols="80" rows="24" name="'.$_.'" id="'.$_.'">'.
       $syllabus{$_}.                                        &HTML::Entities::encode($syllabus{$_},'"&<>').
       '</textarea><input type="submit" name="storesyl" value="Store" />');        '</textarea><input type="submit" name="storesyl" value="Store" />');
  } else {   } else {
     my $safeinit;      my $safeinit;
Removed from v.1.45  
changed lines
  Added in v.1.47

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