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

Diff for /loncom/interface/lonsimplepage.pm between versions 1.59.2.2 and 1.60

version 1.59.2.2, 2010/02/13 00:51:06 version 1.60, 2008/12/16 19:01:45
Line 31  package Apache::lonsimplepage; Line 31  package Apache::lonsimplepage;
 use strict;  use strict;
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::loncommon;  use Apache::loncommon;
   use Apache::lontemplate;
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::lontexconvert;  use Apache::lontexconvert;
 use Apache::lonfeedback;  use Apache::lonfeedback;
Line 138  sub handler { Line 139  sub handler {
 # --------------------------------------- There is such a user, get environment  # --------------------------------------- There is such a user, get environment
   
     if ($target ne 'tex') {      if ($target ne 'tex') {
         my $title = 'Simple Course Page';          my $title = 'Course Page';
         if ($group ne '') {          if ($group ne '') {
             $title = 'Group Page';              $title = 'Group Page';
         }          }
Line 215  sub handler { Line 216  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>'.'<br /><a href="'.$r->uri.'?forcestudent=1'.$refarg.'">'
   &Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes'))  
                  .'<br /><a href="'.$r->uri.'?forcestudent=1'.$refarg.'">'  
                  .'<font size="+1">'.&mt('Show Student View').'</font></a>'.                   .'<font size="+1">'.&mt('Show Student View').'</font></a>'.
   &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'</p>');                    &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').
     &Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes'))
     .'</p>');                
   # .'<br /><a href="'.$r->uri.'?forcestudent=1'.$refarg.'">'
    #                .'<font size="+1">'.&mt('Show Student View').'</font></a>'.
   #  &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'</p>');
     } elsif ($privileged and $target ne 'tex') {      } elsif ($privileged and $target ne 'tex') {
         my $edittext = &mt('Edit');          my $edittext = &mt('Edit');
         if ($group ne '') {          if ($group ne '') {
Line 270  sub handler { Line 274  sub handler {
     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)) {
    my $image;
  if ($syllabus{'uploaded.photourl'}) {   if ($syllabus{'uploaded.photourl'}) {
     &Apache::lonnet::allowuploaded('/adm/smppg',      &Apache::lonnet::allowuploaded('/adm/smppg',
    $syllabus{'uploaded.photourl'});     $syllabus{'uploaded.photourl'});
           
     my $image='<img src="'.$syllabus{'uploaded.photourl'}.'"      $image='<img src="'.$syllabus{'uploaded.photourl'}.'"
                             align="right" />';                              align="right" />';
     if ($target eq 'tex') {      if ($target eq 'tex') {
  $image=&Apache::lonxml::xmlparse($r,'tex',$image);   $image=&Apache::lonxml::xmlparse($r,'tex',$image);
     }              }
     $r->print($image);          }
  }  
  if ($allowed) {   if ($allowed) {
     $r->print(      $r->print(
       '<form method="post" enctype="multipart/form-data">'.        '<form method="post" enctype="multipart/form-data">'.
Line 291  sub handler { Line 295  sub handler {
       '</form><form method="post">'.        '</form><form method="post">'.
                       '<input type="hidden" name="forceedit" value="edit" />');                        '<input type="hidden" name="forceedit" value="edit" />');
  }   }
    &Apache::lontemplate::start_columnSection($r);
    if($allowed){
                   $r->print($image.'<div class="clear">&nbsp;</div>');
   #'<br style="clear: both;" />');
           }
    &Apache::lontemplate::start_ContentBox($r,$allowed);
  foreach my $field (sort(keys(%syllabusfields))) {   foreach my $field (sort(keys(%syllabusfields))) {
     if (($syllabus{$field}) || ($allowed) ||       if (($syllabus{$field}) || ($allowed) || 
                 ($field eq 'abb_links' && $group ne '')) {                  ($field eq 'abb_links' && $group ne '')) {
  my $message=$syllabus{$field};   my $message=$syllabus{$field};
                 if (!&Apache::lonfeedback::contains_block_html($message)) {   &Apache::lonfeedback::newline_to_br(\$message);
                     &Apache::lonfeedback::newline_to_br(\$message);  
                 }  
  $message   $message
     =~s/(https*\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g;      =~s/(https*\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g;
  if ($allowed) {   if ($allowed) {
Line 321  sub handler { Line 329  sub handler {
                     }                      }
                     if ($allowed) {                      if ($allowed) {
                         if ($env{'form.grade_target'} ne 'tex') {                          if ($env{'form.grade_target'} ne 'tex') {
                             $r->print(                              $r->print('<br /><h3>'.&mt('Title').'</h3>');
                                       '<br /><h3>'.&mt('Title').'</h3><textarea cols="80" rows="2" name="'.$field.'">'.      &Apache::lontemplate::print_editbox_template($r,$syllabus{$field},$field);
                                       &HTML::Entities::encode($syllabus{$field},'"&<>').  
                                       '</textarea><input type="submit" name="storesyl" value="'.&mt('Save').'" />');  
                         } else {                          } else {
                             my $safeinit;                              my $safeinit;
                             $r->print(&Apache::lonxml::xmlparse($r,'tex',$syllabus{$field},$safeinit));                              $r->print(&Apache::lonxml::xmlparse($r,'tex',$syllabus{$field},$safeinit));
                         }                          }
                     }                      }
                 } else {                  } else {
     if (($field ne 'bbb_content') || ($allowed)) {  
  if ($target ne 'tex') {  
     $r->print('<h3>'.$syllabusfields{$field}.'</h3>');  
  } else {  
     my $safeinit;  
     $r->print(&Apache::lonxml::xmlparse($r,'tex','<h3>'.$syllabusfields{$field}.'</h3>'));  
  }  
     }  
     if ($target ne 'tex') {      if ($target ne 'tex') {
  $r->print('<blockquote>'.   &Apache::lontemplate::print_template($r,$syllabusfields{$field},$message,$allowed);
   $message.'</blockquote>');  
     } else {      } else {
  my $safeinit;   my $safeinit;
    $r->print(&Apache::lonxml::xmlparse($r,'tex','<h3>'.$syllabusfields{$field}.'</h3>'));
  $r->print(&Apache::lonxml::xmlparse($r,'tex',$message));   $r->print(&Apache::lonxml::xmlparse($r,'tex',$message));
     }      }
     if ($allowed) {      if ($allowed) {
  if ($target ne 'tex') {   if ($target ne 'tex') {
     $r->print('<br /><textarea cols="80" rows="24" name="'.$field.'" id="'.$field.'">'.      &Apache::lontemplate::print_editbox_template($r,$syllabus{$field},$field);
                                       &HTML::Entities::encode($syllabus{$field},'"&<>').  
       '</textarea><input type="submit" name="storesyl" value="'.&mt('Save').'" />');  
  } else {   } else {
     my $safeinit;      my $safeinit;
     $r->print(&Apache::lonxml::xmlparse($r,'tex',$syllabus{$field},$safeinit));      $r->print(&Apache::lonxml::xmlparse($r,'tex',$syllabus{$field},$safeinit));
Line 359  sub handler { Line 355  sub handler {
  }   }
     }      }
  }   }
    &Apache::lontemplate::end_ContentBox($r);
    if(!$allowed){
    $r->print($image);
    }
    &Apache::lontemplate::end_columnSection($r);
    if ($allowed) {
                   $r->print('<p>'.'<br /><a href="'.$r->uri.'?forcestudent=1'.$refarg.'">'
                           .'<font size="+1">'.&mt('Show Student View').'</font></a>'.
                           &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'</p>');
           }
  if ($allowed && ($env{'form.grade_target'} ne 'tex')) {   if ($allowed && ($env{'form.grade_target'} ne 'tex')) {
     $r->print(&Apache::lonhtmlcommon::htmlareaselectactive      $r->print(&Apache::lonhtmlcommon::htmlareaselectactive
       ('bbb_content').'</form>');        ('bbb_content').'</form>');
Line 393  sub display_group_links { Line 399  sub display_group_links {
                         href => '/adm/groupboards?group='.$group.$refarg,                          href => '/adm/groupboards?group='.$group.$refarg,
                       );                        );
     %{$menu{'chat'}} = (      %{$menu{'chat'}} = (
                         text => 'Group Chat Room',                          text => 'Group Chat',
                         href => "javascript:group_chat('$group')",                          href => "javascript:group_chat('$group')",
                       );                        );
     %{$menu{'files'}} = (      %{$menu{'files'}} = (
                         text => 'Group Portfolio',                          text => 'File Repository',
                         href => '/adm/coursegrp_portfolio?group='.$group.                          href => '/adm/coursegrp_portfolio?group='.$group.
                                 $refarg,                                  $refarg,
                       );                        );
Line 411  sub display_group_links { Line 417  sub display_group_links {
         }          }
     }      }
     if (@available > 0) {      if (@available > 0) {
         my $output = '';          my $output = '<table cellspacing="4" cellpadding="4"><tr>';
         if ($target eq 'tex') {  
             $output = '<table cellspacing="4" cellpadding="4">';  
         } else {  
             $output = &Apache::loncommon::start_data_table();  
         }  
         foreach my $tool (@available) {          foreach my $tool (@available) {
             if ($target eq 'tex') {              if ($target eq 'tex') {
                 $output .= '<tr><td>'.&mt($menu{$tool}{text}).'</td></tr>';                  $output .= '<td>'.&mt($menu{$tool}{text}).'</td>';
             } else {              } else {
                 $output .= &Apache::loncommon::start_data_table_row()                  $output .= '<td><a href="'.$menu{$tool}{href}.'">'.
                           .'<td><a href="'.$menu{$tool}{href}.'">'                             &mt($menu{$tool}{text}).'</a></td>';
                           .&mt($menu{$tool}{text}).'</a></td>'  
                           .&Apache::loncommon::end_data_table_row();  
             }              }
         }          }
         if ($target eq 'tex') {          $output .= '</tr></table>';
             $output .= '</table>';  
         } else {  
             $output .= &Apache::loncommon::end_data_table();  
         }  
         if ($target eq 'tex') {          if ($target eq 'tex') {
             $r->print(&Apache::lonxml::xmlparse($r,'tex',&mt('Available functions').'<br /><br />'.$output));              $r->print(&Apache::lonxml::xmlparse($r,'tex',&mt('Available functions').'<br /><br />'.$output));
         } else {          } else {
Line 442  sub display_group_links { Line 437  sub display_group_links {
         if ($context eq 'edit') {          if ($context eq 'edit') {
             $output = &mt('No group functionality.');              $output = &mt('No group functionality.');
         } else {            } else {  
             $output = &mt('No group functionality (e.g., e-mail, discussion, chat room or file upload) is currently available to you in this group: [_1].','<b>'.&unescape($groupinfo{'description'}).'</b>');              $output = &mt('No group functionality (e.g., e-mail, discussion, chat or file upload) is currently available to you in this group: [_1].','<b>'.&unescape($groupinfo{'description'}).'</b>');
         }          }
         if ($target eq 'tex') {          if ($target eq 'tex') {
             $r->print(&Apache::lonxml::xmlparse($r,'tex',$output));              $r->print(&Apache::lonxml::xmlparse($r,'tex',$output));
Line 460  sub grouppage_breadcrumbs { Line 455  sub grouppage_breadcrumbs {
           text=>"Groups",            text=>"Groups",
           title=>"Display Groups"},            title=>"Display Groups"},
         {href=>"/adm/$cdom/$cnum/$group/smppg?ref=grouplist",          {href=>"/adm/$cdom/$cnum/$group/smppg?ref=grouplist",
           text=>&mt('Group:')." $description",            text=>"Group: $description",
           title=>&mt("Go to group's home page"),            title=>"Go to group's home page"},
           no_mt=>1,},  
         );          );
     my $output .= &Apache::lonhtmlcommon::breadcrumbs(&mt('Group page - [_1]',      my $output .= &Apache::lonhtmlcommon::breadcrumbs(&mt('Group page - [_1]',
                       $description),undef,undef,undef,undef,1);                                                             $description));
     return $output;      return $output;
 }  }
   
Removed from v.1.59.2.2  
changed lines
  Added in v.1.60

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