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

Diff for /loncom/interface/lonsimplepage.pm between versions 1.39 and 1.97

version 1.39, 2006/05/09 14:38:10 version 1.97, 2010/10/27 01:00:38
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;
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::lonprintout;  use Apache::lonprintout;
 use Apache::lonxml;  use Apache::lonxml;
   use Apache::longroup;
   use Apache::lonnavmaps();
   use HTML::Entities();
   use LONCAPA;
   
   sub get_db_name {
       my ($url) = @_;
       my ($udom,$uname,$marker)=(split(m{/},$url))[2,3,4];
       my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
       my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
   
       my $db_name;
   
       if ($dom && $crs && ($udom eq $dom) && ($uname eq $crs)) {
           $marker =~ s/\W//g;
           $db_name = 'grppage_'.$marker;
       } else {
           $marker=~s/\D//g;
           $db_name = 'smppage_'.$marker;
       }
       return if (!defined($marker));
   
       return $db_name;
   }
   
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
Line 46  sub handler { Line 71  sub handler {
     my $target=$env{'form.grade_target'};      my $target=$env{'form.grade_target'};
 # ------------------------------------------------------------ Print the screen  # ------------------------------------------------------------ Print the screen
     if ($target eq 'tex') {      if ($target eq 'tex') {
  $r->print(&Apache::lonprintout::print_latex_header($env{'form.latex_type'}));          $r->print(&Apache::lonprintout::print_latex_header($env{'form.latex_type'}));
     }       }
     my (undef,undef,undef,undef,$marker,$caller)=split(/\//,$r->uri);  
 # Is this even in a course?  # Is this even in a course?
     unless ($env{'request.course.id'}) {      unless ($env{'request.course.id'}) {
  if ($target ne 'tex') {          if ($target ne 'tex') {
     &Apache::loncommon::simple_error_page($r,'','Not in a course');              &Apache::loncommon::simple_error_page($r,'','Not in a course');
  } else {          } else {
     $r->print('\textbf{Not in a course}\end{document}');              $r->print('\textbf{Not in a course}\end{document}');
  }          }
  return OK;          return OK;
     }      }
   
       my $db_name = &get_db_name($r->uri);
   
     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};      my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};      my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
     my $grp_view_permission = &Apache::lonnet::allowed('vcg',      my ($group,$group_desc,$group_home_view,$group_home_edit,
                                                    $env{'request.course.id'});          $group_view_perm,$group_edit_perm);
     my $namespace;  
   
     my %curr_group = ();      my %curr_group = ();
     my %groupinfo = ();      my %groupinfo = ();
     if ($caller eq 'grppg') {      if ($db_name =~ /^grppage_/) {
         $marker =~ s/\W//g;          $group = (split(m{/},$r->uri))[4];
         $namespace = 'grppage_'.$marker;          $group =~ s/\W//g;
         my %curr_groups = &Apache::loncommon::coursegroups($dom,$crs,$marker);          my %curr_groups = &Apache::longroup::coursegroups($dom,$crs,$group);
         if (!%curr_groups) {          if (!%curr_groups) {
     &Apache::loncommon::simple_error_page($r,'','Invalid group name');              &Apache::loncommon::simple_error_page($r,'','Invalid group name');
     return OK;              return OK;
         }          }
         %groupinfo =           %groupinfo =
     &Apache::loncommon::get_group_settings($curr_groups{$marker});          &Apache::longroup::get_group_settings($curr_groups{$group});
     } else {            $group_desc = &unescape($groupinfo{'description'});
         $marker=~s/\D//g;  
         $namespace = 'smppage_'.$marker;  
     }      }
   
     if (!$marker) {      if (!$db_name) {
  &Apache::loncommon::simple_error_page($r,'','Invalid call');          &Apache::loncommon::simple_error_page($r,'','Invalid call');
  return OK;          return OK;
     }      }
   
 # --------------------------------------------------------- The syllabus fields  # --------------------------------------------------------- The syllabus fields
Line 92  sub handler { Line 115  sub handler {
        'aaa_title'         => 'Page Title',         'aaa_title'         => 'Page Title',
        'bbb_content'       => 'Content',         'bbb_content'       => 'Content',
        'ccc_webreferences' => 'Web References');         'ccc_webreferences' => 'Web References');
     if ($caller eq 'grppg') {      if ($group ne '') {
         $syllabusfields{'abb_links'} = &mt('Functionality');          $syllabusfields{'abb_links'} = &mt('Available Group Tools');
     }      }
   
   
 # ------------------------------------------------------------ Get query string  # ------------------------------------------------------------ Get query string
     &Apache::loncommon::get_unprocessed_cgi      &Apache::loncommon::get_unprocessed_cgi
                         ($ENV{'QUERY_STRING'},['forcestudent','forceedit','register']);                          ($ENV{'QUERY_STRING'},['forcestudent','forceedit',
                                                  'register','ref']);
 # --------------------------------------------------------------- Force Student  # --------------------------------------------------------------- Force Student
     my $forcestudent='';      my $forcestudent='';
     if ($env{'form.forcestudent'} || $target eq 'tex' ) { $forcestudent='student'; };      if ($env{'form.forcestudent'} || $target eq 'tex' ) { $forcestudent='student'; };
     my $forceedit='';      my $forceedit='';
     if ($env{'form.forceedit'}) { $forceedit='edit'; }      if ($env{'form.forceedit'}) { $forceedit='edit'; }
   
          my $refarg;
     my %syllabus=&Apache::lonnet::dump($namespace,$dom,$crs);      if ($env{'form.ref'}) {
                  $refarg = '&ref='.$env{'form.ref'};
       }
   
       my %syllabus=&Apache::lonnet::dump($db_name,$dom,$crs);
   
 # --------------------------------------- There is such a user, get environment  # --------------------------------------- There is such a user, get environment
   
     if ($target ne 'tex') {      if ($target ne 'tex') {
         my $title = 'Course Page';          my $title = 'Simple Course Page';
         if ($caller eq 'grppg') {          if ($group ne '') {
             $title = 'Group Page';              $title = 'Simple Group Page';
         }          }
  my $start_page =           my $start_page =
     &Apache::loncommon::start_page($title,undef,          &Apache::loncommon::start_page($title,undef,
    {'function'       => $forcestudent,                         {'function'       => $forcestudent,
     'domain'         => $dom,                          'domain'         => $dom,
     'force_register' =>                          'force_register' =>
  $env{'form.register'},});                          $env{'form.register'},});
  $r->print($start_page);          $r->print($start_page);
     }      }
   
     if ($caller eq 'grppg') {      if ($group ne '') {
         if (($grp_view_permission) ||           my $group_view_perm =
                            (&Apache::loncommon::check_group_access($caller))) {                 &Apache::lonnet::allowed('vcg',$env{'request.course.id'}.
             unless(&Apache::lonnet::allowed('vgh',                 ($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));
                                       $env{'request.course.id'}.'/'.$marker)) {          $group_edit_perm =
                 &display_group_links($r,$target,$marker,'view',%groupinfo);                 &Apache::lonnet::allowed('mdg',$env{'request.course.id'}.
                  ($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));
           $group_home_view = &Apache::lonnet::allowed('vgh',
                                            $env{'request.course.id'}.'/'.$group);
           $group_home_edit = &Apache::lonnet::allowed('mgh',
                                            $env{'request.course.id'}.'/'.$group);
           if ($group_view_perm || $group_edit_perm || $group_home_view ||
               $group_home_edit || &Apache::longroup::check_group_access($group)) {
               if (($env{'form.ref'} eq 'grouplist') && ($target ne 'tex') &&
                   (!$env{'form.register'})) {
                   $r->print(&grouppage_breadcrumbs($dom,$crs,$group,$group_desc));
               }
               if ((!$group_home_edit) && (!$group_home_view) &&
                   (!$group_view_perm) && (!$group_edit_perm)) {
                   &display_group_links($r,$target,$group,'view',$refarg,%groupinfo);
                   if ($env{'form.grade_target'} ne 'tex') {
                       $r->print(&Apache::loncommon::end_page());
                   } else {
                       $r->print('\end{document}');
                   }
                 return OK;                  return OK;
             }              }
         } else {          } else {
     my $msg =               my $msg =
  &mt('You do not currently have rights to view this group.');              &mt('You do not currently have rights to view this group.');
             if ($target ne 'tex') {              if ($target ne 'tex') {
                 $r->print("<p>$msg</p>".                  $r->print('<p class="LC_warning">'.$msg.'</p>'.
   &Apache::loncommon::end_page());                  &Apache::loncommon::end_page());
             } else {              } else {
                 $r->print('\textbf{'.$msg.'}\end{document}');                  $r->print('\textbf{'.$msg.'}\end{document}');
             }              }
     return OK;              return OK;
           }
           my ($blocked,$blocktext) =
                &Apache::loncommon::blocking_status('groups');
           if ($blocked) {
               $r->print($blocktext);
               $r->print(&Apache::loncommon::end_page());
               return OK;
         }          }
     }      }
   
     my $allowed;      my $allowed;
     if ($caller eq 'grppg') {  
         $allowed  = $grp_view_permission;      if ($group ne '') {
         unless ($allowed) {          $allowed  = $group_edit_perm;
             $allowed = &Apache::lonnet::allowed('mgh',$env{'request.course.id'}.          if (!$allowed) {
                                                                   '/'.$marker);              $allowed = $group_home_edit;
         }          }
     } else {       } else {
         $allowed=&Apache::lonnet::allowed('mdc',$env{'request.course.id'});          $allowed=&Apache::lonnet::allowed('mdc',$env{'request.course.id'});
     }      }
     my $privileged=$allowed;      my $privileged=$allowed;
     if (($syllabus{'uploaded.lastmodified'}) && (!$forceedit)) {      if (($syllabus{'uploaded.lastmodified'}) && (!$forceedit)) {
  $forcestudent='student';          $forcestudent='student';
     }      }
   
     if ($forcestudent or $target eq 'tex') { $allowed=0; }      if ($forcestudent or $target eq 'tex') { $allowed=0; }
       
     if ($allowed) {  
  $r->print('<p>'.  
   &Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes','Help with filling in text boxes').'<br /><a href="'.$r->uri.'?forcestudent=1"><font size="+1">'.&mt('Show Student View').'</font></a>'.  
   &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'</p>');  
     } elsif ($privileged and $target ne 'tex') {  
  $r->print('<a href="'.$r->uri.'?forceedit=edit"><font size="+1">'.&mt('Edit').'</font></a>');  
     }   
     if (($env{'form.uploaddoc.filename'} and $target ne 'tex') &&      if (($env{'form.uploaddoc.filename'} and $target ne 'tex') &&
  ($env{'form.storeupl'}) && ($allowed)) {      ($env{'form.storeupl'}) && ($allowed)) {
  if ($env{'form.uploaddoc.filename'}=~/\.(gif|jpg|png|jpeg)$/i) {          if ($env{'form.uploaddoc.filename'}=~/\.(gif|jpg|png|jpeg)$/i) {
     if ($syllabus{'uploaded.photourl'}) {              if ($syllabus{'uploaded.photourl'}) {
  &Apache::lonnet::removeuploadedurl($syllabus{'uploaded.photourl'});                  &Apache::lonnet::removeuploadedurl($syllabus{'uploaded.photourl'});
     }              }
             if ($caller eq 'grppage') {              if ($group ne '') {
                 $syllabus{'uploaded.photourl'}=&Apache::lonnet::userfileupload(                  $syllabus{'uploaded.photourl'}=&Apache::lonnet::userfileupload(
                                               'uploaddoc',1,"grouppage/$marker");                                                'uploaddoc','coursedoc',"grouppage/$group");
             } else {              } else {
         $syllabus{'uploaded.photourl'}=                  $syllabus{'uploaded.photourl'}=
      &Apache::lonnet::userfileupload('uploaddoc',1,'simplepage');                  &Apache::lonnet::userfileupload('uploaddoc','coursedoc','simplepage');
             }              }
  }          }
  $syllabus{'uploaded.lastmodified'}=time;          $syllabus{'uploaded.lastmodified'}=time;
  &Apache::lonnet::put($namespace,\%syllabus,$dom,$crs);          &Apache::lonnet::put($db_name,\%syllabus,$dom,$crs);
     }      }
   #    if ($allowed && $env{'form.delupl'}) {
   #        if ($syllabus{'uploaded.photourl'}) {
   #            &Apache::lonnet::removeuploadedurl($syllabus{'uploaded.photourl'});
   #            delete($syllabus{'uploaded.photourl'});
   #            &Apache::lonnet::del('simplepage',['uploaded.photourl']);
   #        }
   #    }
     if (($allowed) && ($env{'form.storesyl'})) {      if (($allowed) && ($env{'form.storesyl'})) {
  foreach (keys %syllabusfields) {          foreach my $syl_field (keys(%syllabusfields)) {
     my $field=$env{'form.'.$_};              my $field=$env{'form.'.$syl_field};
     chomp($field);              chomp($field);
     $field=~s/\s+$//s;              $field=~s/\s+$//s;
     $field=~s/^\s+//s;              $field=~s/^\s+//s;
     $field=~s/\<br\s*\/*\>$//s;              $field=~s/\<br\s*\/*\>$//s;
     $field=&Apache::lonfeedback::clear_out_html($field,1);              $field=&Apache::lonfeedback::clear_out_html($field,1);
     $syllabus{$_}=$field;              $syllabus{$syl_field}=$field;
  }          }
  $syllabus{'uploaded.lastmodified'}=time;          $syllabus{'uploaded.lastmodified'}=time;
  &Apache::lonnet::put($namespace,\%syllabus,$dom,$crs);          &Apache::lonnet::put($db_name,\%syllabus,$dom,$crs);
     }      }
   
 # ---------------------------------------------------------------- Get syllabus  #---Print Function
     if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) {      if ($target ne 'tex') {
  if ($syllabus{'uploaded.photourl'}) {          if ($allowed || $privileged) {
     &Apache::lonnet::allowuploaded('/adm/'.$caller,              my $functions=&Apache::lonhtmlcommon::start_funclist();
    $syllabus{'uploaded.photourl'});              my $url = $r->uri;
                   if ($group ne '') {
     my $image='<img src="'.$syllabus{'uploaded.photourl'}.'"                  my $navmap=Apache::lonnavmaps::navmap->new();
                             align="right" />';                  if (ref($navmap)) {
     if ($target eq 'tex') {                      $url = &Apache::longroup::get_group_link($dom,$crs,$group,$navmap);
  $image=&Apache::lonxml::xmlparse($r,'tex',$image);                  }
     }              }
     $r->print($image);              if ($allowed) {
  }                  $url .= (($url=~/\?/)?'&amp;':'?').'forcestudent=1';
  if ($allowed) {                  $functions.=&Apache::lonhtmlcommon::add_item_funclist(
     $r->print(                                  '<a href="'.$url.'">'
       '<form method="post" enctype="multipart/form-data">'.                                 .&mt('Show Student View').'</a>'
       '<input type="hidden" name="forceedit" value="edit" />'.                                 .&Apache::loncommon::help_open_topic(
       '<h3>Upload a Photo</h3>'.                                      'Uploaded_Templates_PublicView'));
       '<input type="file" name="uploaddoc" size="50">'.              } elsif ($privileged) {
       '<input type="submit" name="storeupl" value="Upload">'.                  my $edittext = &mt('Edit');
       '</form><form method="post">');                  $url .= (($url=~/\?/)?'&amp;':'?').'forceedit=edit'.$refarg;
  }                  if ($group ne '') {
  foreach (sort keys %syllabusfields) {                      $edittext = &mt('Edit Group Homepage');
     if (($syllabus{$_}) || ($allowed)) {                  }
  my $message=$syllabus{$_};                  $functions.=&Apache::lonhtmlcommon::add_item_funclist(
  &Apache::lonfeedback::newline_to_br(\$message);                                  '<a href="'.$url.'">'
  $message                                 .$edittext.'</a>');
     =~s/(https*\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g;                  if ($group ne '') {
  if ($allowed) {                      if ($group_edit_perm) {
     $message=&Apache::lonspeller::markeduptext($message);                          $functions.=&Apache::lonhtmlcommon::add_item_funclist(
  }                                          '<a href="/adm/coursegroups'
  $message=&Apache::lontexconvert::msgtexconverted($message);                                         .'?action=modify&amp;refpage=grouplist'
                 if ($_ eq 'abb_links' && $caller eq 'grppg') {                                         .'&amp;state=pick_task&amp;groupname='
                     $r->print('<br /><input type="hidden" name="'.$_.                                         .$group.'">'
                                           '" value="'.$syllabus{$_}.'" />');                                         .&mt('Edit Group Settings')
                     &display_group_links($r,$target,$marker,'edit',%groupinfo);                                         .'</a>');
                     $r->print('<br />');                         }
                 } elsif ($_ eq 'aaa_title') {  
                     if ($target ne 'tex') {  
                         $r->print('<h1>'.$message.'</h1>');  
                     } else {  
                         my $safeinit;  
                         $r->print(&Apache::lonxml::xmlparse($r,'tex','<h1>'.$message.'</h1>'));  
                     }  
                     if ($allowed) {  
                         if ($env{'form.grade_target'} ne 'tex') {  
                             $r->print(  
                                       '<br />Title<br /><textarea cols="80" rows="2" name="'.$_.'">'.  
                                       $syllabus{$_}.  
                                       '</textarea><input type="submit" name="storesyl" value="Store" />');  
                         } else {  
                             my $safeinit;  
                             $r->print(&Apache::lonxml::xmlparse($r,'tex',$syllabus{$_},$safeinit));  
                         }  
                     }                      }
                 } else {              }
     if (($_ ne 'bbb_content') || ($allowed)) {              $functions.=&Apache::lonhtmlcommon::end_funclist();
  if ($target ne 'tex') {              $r->print(&Apache::loncommon::head_subbox($functions));
     $r->print('<h3>'.$syllabusfields{$_}.'</h3>');          }
  } else {      }
     my $safeinit;  
     $r->print(&Apache::lonxml::xmlparse($r,'tex','<h3>'.$syllabusfields{$_}.'</h3>'));  #---Print help Text
  }      if($target ne 'tex'){
     }          if ($allowed) {
     if ($target ne 'tex') {              $r->print(&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes')));
  $r->print('<blockquote>'.          }
   $message.'</blockquote>');      }
     } else {  
  my $safeinit;  # ---------------------------------------------------------------- Get syllabus
  $r->print(&Apache::lonxml::xmlparse($r,'tex',$message));      if ((($syllabus{'uploaded.lastmodified'}) &&
     }           (($group ne '' && ($group_home_view || $group_edit_perm ||
     if ($allowed) {             $group_view_perm)) || ($group eq ''))) || ($allowed)) {
  if ($target ne 'tex') {          #Print the title
     $r->print('<br /><textarea cols="80" rows="24" name="'.$_.'" id="'.$_.'">'.          my $titletext=&HTML::Entities::encode($syllabus{'aaa_title'},'<>&"');
       $syllabus{$_}.          if ($target ne 'tex') {
       '</textarea><input type="submit" name="storesyl" value="Store" />');              if ($allowed) {
  } else {              }
     my $safeinit;              $r->print('<h2>'.$titletext.'</h2>');
     $r->print(&Apache::lonxml::xmlparse($r,'tex',$syllabus{$_},$safeinit));          } else {
               my $safeinit;
               $r->print(&Apache::lonxml::xmlparse($r,'tex','<h1>'.$titletext.'</h1>'));
           }
           if ($allowed) {
               if ($env{'form.grade_target'} ne 'tex') {
                   #editbox for title
                   $r->print('<form method="post" action="" enctype="multipart/form-data">');
    &Apache::lontemplate::print_start_template($r,&mt('Title'),'LC_Box');
    $r->print($titletext);
    $r->print("<br /><div>");
    &Apache::lontemplate::print_textarea_template($r, $syllabus{'aaa_title'},
    'aaa_title', Apache::lontemplate->RICH_TEXT_ALWAYS_OFF);
    &Apache::lontemplate::print_saveall_template($r);
    $r->print("</div>");
    &Apache::lontemplate::print_end_template($r);
               } else {
                   my $safeinit;
                   $r->print(&Apache::lonxml::xmlparse($r,'tex',$syllabus{'aaa_title'},$safeinit));
               }
           }
   
           #print the image
           my $image='';
           if ($syllabus{'uploaded.photourl'}) {
               &Apache::lonnet::allowuploaded('/adm/smppg',
                       $syllabus{'uploaded.photourl'});
   
               $image='<img src="'.$syllabus{'uploaded.photourl'}
                     .'" alt="'.&mt('Image').'" />';
               if ($target eq 'tex') {
                   $image=&Apache::lonxml::xmlparse($r,'tex',$image);
               }
           }
   
           if ($allowed) {
               &Apache::lontemplate::print_start_template($r, &mt('Upload a Photo'),'LC_Box');
               $r->print($image);
               $r->print("<br /><br />");
               $r->print(
                   '<input type="hidden" name="forceedit" value="edit" />'.
                   '<input type="file" name="uploaddoc" size="50" />'.
                   '<input type="submit" name="storeupl" value="'.&mt('Upload').'" />'.
                   '<input type="hidden" name="forceedit" value="edit" />');
               &Apache::lontemplate::print_end_template($r);
       
   
   #            if ($syllabus{'uploaded.photourl'}) {
   #                $r->print('<input type="submit" name="delupl"'
   #                         .' value="'.&mt('Delete Photo').'" />');
   #            }
           }
           #Image in Student view and printout.
           else {
               $r->print($image);
           }
          
           my $links_handler = sub { 
           my ($r, $field, $message, $group, $data_ref, $fields_ref, $target, $allowed) = @_;
    if ($group ne '') {
    my %data = %{$data_ref};
    my %fields = %{$fields_ref};
    $r->print('<br /><input type="hidden" name="'.$field.
    '" value="'.$data{$field}.'" />');
    &display_group_links($r, $target, $group, 'edit', $refarg, %groupinfo);
    $r->print('<br />');
  }   }
     }          };
  }          my $title_handler = sub {};
     }   my %custom_handlers = (
  }   'abb_links' => $links_handler,
  if ($allowed && ($env{'form.grade_target'} ne 'tex')) {   'aaa_title' => $title_handler
     $r->print(&Apache::lonhtmlcommon::htmlareaselectactive   );
       ('bbb_content').'</form>');   &Apache::lontemplate::print_template_fields($r, \%syllabus, \%syllabusfields, 
  }   $target, $allowed, Apache::lontemplate->RICH_TEXT_DETECT_HTML, \%custom_handlers, $group);
  if ($env{'form.grade_target'} ne 'tex') {$r->print('</p>');}  
           if ($allowed && ($env{'form.grade_target'} ne 'tex')) {
               $r->print(&Apache::lonhtmlcommon::htmlareaselectactive().
                         '</form>');
           }
   
     } else {      } else {
  $r->print('<p>No page information provided.</p>');          if ($group ne '') {
               &display_group_links($r,$target,$group,'view',$refarg,%groupinfo);
           } else {
               my $text=&mt('No page information provided.');
               if ($target ne 'tex') {
                   $r->print('<p class="LC_info">'.$text.'</p>');
               } else {
               $r->print($text)
               }
           }
     }      }
     if ($env{'form.grade_target'} ne 'tex') {      if ($env{'form.grade_target'} ne 'tex') {
  $r->print(&Apache::loncommon::end_page());          $r->print(&Apache::loncommon::end_page());
     } else {      } else {
  $r->print('\end{document}');          $r->print('\end{document}');
     }      }
     return OK;      return OK;
 }  }
   
 sub display_group_links {  sub display_group_links {
     my ($r,$target,$marker,$context,%groupinfo) = @_;      my ($r,$target,$group,$context,$refarg,%groupinfo) = @_;
     my @available = ();      my @available = ();
     my %menu = ();      my %menu = ();
     %{$menu{'email'}} = (      %{$menu{'email'}} = (
                         text => 'Group e-mail',                          text => 'Group Message',
                         href => '/adm/email?compose=group&group='.$marker,                          href => '/adm/email?compose=group&amp;group='.$group.
                                   $refarg,
                       );                        );
     %{$menu{'discussion'}} = (      %{$menu{'discussion'}} = (
                         text => 'Discussion Boards',                          text => 'Discussion Boards',
                         href => '/adm/groupboards?group='.$marker,                          href => '/adm/groupboards?group='.$group.$refarg,
                       );                        );
     %{$menu{'chat'}} = (      %{$menu{'chat'}} = (
                         text => 'Group chat',                          text => 'Group Chat Room',
                         href => "javascript:group_chat('$marker')",                          href => "javascript:group_chat('$group')",
                       );                        );
     %{$menu{'files'}} = (      %{$menu{'files'}} = (
                         text => 'File repository',                          text => 'Group Portfolio',
                         href => '/adm/coursegrp_portfolio?group='.$marker,                          href => '/adm/coursegrp_portfolio?group='.$group.
                                   $refarg,
                       );                        );
     %{$menu{'roster'}} = (      %{$menu{'roster'}} = (
                         text => 'Membership roster',                          text => 'Membership Roster',
                         href => '/adm/grouproster?group='.$marker,                          href => '/adm/grouproster?group='.$group.$refarg,
                       );                        );
     foreach my $tool (sort(keys(%menu))) {      foreach my $tool (sort(keys(%menu))) {
         if ($groupinfo{functions}{$tool} eq 'on') {          if ($groupinfo{functions}{$tool} eq 'on') {
Line 331  sub display_group_links { Line 449  sub display_group_links {
         }          }
     }      }
     if (@available > 0) {      if (@available > 0) {
         my $output = '<table cellspacing="4" cellpadding="4"><tr>';          my $output = '';
           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 .= '<td>'.$menu{$tool}{text}.'</td>';                  $output .= '<tr><td>'.&mt($menu{$tool}{text}).'</td></tr>';
             } else {              } else {
                 $output .= '<td><a href="'.$menu{$tool}{href}.'">'.                  $output .= &Apache::loncommon::start_data_table_row()
                            $menu{$tool}{text}.'</a></td>';                            .'<td><a href="'.$menu{$tool}{href}.'">'
                             .&mt($menu{$tool}{text}).'</a></td>'
                             .&Apache::loncommon::end_data_table_row();
             }              }
         }          }
         $output .= '</tr></table>';  
         if ($target eq 'tex') {          if ($target eq 'tex') {
             $r->print(&Apache::lonxml::xmlparse($r,'tex','Available functions<br /><br />'.$output));              $output .= '</table>';
         } else {          } else {
             $r->print('<h3>Functions</h3>'.$output);              $output .= &Apache::loncommon::end_data_table();
           }
           if ($target eq 'tex') {
               $r->print(&Apache::lonxml::xmlparse($r,'tex',&mt('Available functions').'<br /><br />'.$output));
           } else {
               $r->print('<h3>'.&mt('Available Group Tools').'</h3>'.$output);
         }          }
     } else {      } else {
         my $output;          my $output;
         if ($context eq 'edit') {          if ($context eq 'edit') {
             $output = 'No group functionality';              $output = &mt('No group functionality.');
         } else {            } else {
             $output = 'No group functionality (e.g., e-mail, discussion, chat or file upload) is currently available to you in this group: '.$marker;              $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>');
         }          }
         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 360  sub display_group_links { Line 489  sub display_group_links {
         }          }
     }      }
 }  }
    
   sub grouppage_breadcrumbs {
       my ($cdom,$cnum,$group,$description) = @_;
       &Apache::lonhtmlcommon::clear_breadcrumbs();
       &Apache::lonhtmlcommon::add_breadcrumb
           ({href=>"/adm/coursegroups",
             text=>"Groups",
             title=>"Display Groups"},
           {href=>"/adm/$cdom/$cnum/$group/smppg?ref=grouplist",
             text=>&mt('Group:')." $description",
             title=>"Go to group's home page"},
           );
       my $output .= &Apache::lonhtmlcommon::breadcrumbs(&mt('Group page - [_1]',
                                                              $description));
       return $output;
   }
   
 1;  1;
 __END__  __END__
Removed from v.1.39  
changed lines
  Added in v.1.97

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.