--- loncom/interface/lonsimplepage.pm 2007/09/10 19:22:22 1.52 +++ loncom/interface/lonsimplepage.pm 2009/12/08 12:20:49 1.88 @@ -1,7 +1,7 @@ # The LearningOnline Network # Simple Page Editor # -# $Id: lonsimplepage.pm,v 1.52 2007/09/10 19:22:22 raeburn Exp $ +# $Id: lonsimplepage.pm,v 1.88 2009/12/08 12:20:49 amueller Exp $ # # Copyright Michigan State University Board of Trustees # @@ -31,6 +31,7 @@ package Apache::lonsimplepage; use strict; use Apache::Constants qw(:common); use Apache::loncommon; +use Apache::lontemplate; use Apache::lonnet; use Apache::lontexconvert; use Apache::lonfeedback; @@ -50,10 +51,10 @@ sub get_db_name { my $db_name; if ($dom && $crs && ($udom eq $dom) && ($uname eq $crs)) { - $marker =~ s/\W//g; - $db_name = 'grppage_'.$marker; + $marker =~ s/\W//g; + $db_name = 'grppage_'.$marker; } else { - $marker=~s/\D//g; + $marker=~s/\D//g; $db_name = 'smppage_'.$marker; } return if (!defined($marker)); @@ -69,17 +70,17 @@ sub handler { my $target=$env{'form.grade_target'}; # ------------------------------------------------------------ Print the screen 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'})); + } # Is this even in a course? unless ($env{'request.course.id'}) { - if ($target ne 'tex') { - &Apache::loncommon::simple_error_page($r,'','Not in a course'); - } else { - $r->print('\textbf{Not in a course}\end{document}'); - } - return OK; + if ($target ne 'tex') { + &Apache::loncommon::simple_error_page($r,'','Not in a course'); + } else { + $r->print('\textbf{Not in a course}\end{document}'); + } + return OK; } my $db_name = &get_db_name($r->uri); @@ -92,20 +93,20 @@ sub handler { my %groupinfo = (); if ($db_name =~ /^grppage_/) { $group = (split(m{/},$r->uri))[4]; - $group =~ s/\W//g; + $group =~ s/\W//g; my %curr_groups = &Apache::longroup::coursegroups($dom,$crs,$group); if (!%curr_groups) { - &Apache::loncommon::simple_error_page($r,'','Invalid group name'); - return OK; + &Apache::loncommon::simple_error_page($r,'','Invalid group name'); + return OK; } - %groupinfo = - &Apache::longroup::get_group_settings($curr_groups{$group}); + %groupinfo = + &Apache::longroup::get_group_settings($curr_groups{$group}); $group_desc = &unescape($groupinfo{'description'}); } if (!$db_name) { - &Apache::loncommon::simple_error_page($r,'','Invalid call'); - return OK; + &Apache::loncommon::simple_error_page($r,'','Invalid call'); + return OK; } # --------------------------------------------------------- The syllabus fields @@ -132,23 +133,23 @@ sub handler { 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 if ($target ne 'tex') { - my $title = 'Course Page'; + my $title = 'Simple Course Page'; if ($group ne '') { - $title = 'Group Page'; + $title = 'Simple Group Page'; } - my $start_page = - &Apache::loncommon::start_page($title,undef, - {'function' => $forcestudent, - 'domain' => $dom, - 'force_register' => - $env{'form.register'},}); - $r->print($start_page); + my $start_page = + &Apache::loncommon::start_page($title,undef, + {'function' => $forcestudent, + 'domain' => $dom, + 'force_register' => + $env{'form.register'},}); + $r->print($start_page); } if ($group ne '') { @@ -162,12 +163,12 @@ sub handler { $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 || + 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')) { $r->print(&grouppage_breadcrumbs($dom,$crs,$group,$group_desc)); } - if ((!$group_home_edit) && (!$group_home_view) && + 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') { @@ -178,17 +179,17 @@ sub handler { return OK; } } else { - my $msg = - &mt('You do not currently have rights to view this group.'); + my $msg = + &mt('You do not currently have rights to view this group.'); if ($target ne 'tex') { - $r->print("

$msg

". - &Apache::loncommon::end_page()); + $r->print('

'.$msg.'

'. + &Apache::loncommon::end_page()); } else { $r->print('\textbf{'.$msg.'}\end{document}'); } - return OK; + return OK; } - my ($blocked,$blocktext) = + my ($blocked,$blocktext) = &Apache::loncommon::blocking_status('groups'); if ($blocked) { $r->print($blocktext); @@ -198,176 +199,227 @@ sub handler { } my $allowed; - + if ($group ne '') { $allowed = $group_edit_perm; if (!$allowed) { - $allowed = $group_home_edit; + $allowed = $group_home_edit; } - } else { + } else { $allowed=&Apache::lonnet::allowed('mdc',$env{'request.course.id'}); } my $privileged=$allowed; if (($syllabus{'uploaded.lastmodified'}) && (!$forceedit)) { - $forcestudent='student'; + $forcestudent='student'; } if ($forcestudent or $target eq 'tex') { $allowed=0; } - if ($allowed) { - $r->print('

'. - &Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes','Help with filling in text boxes').'
'.&mt('Show Student View').''. - &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'

'); - } elsif ($privileged and $target ne 'tex') { - my $edittext = &mt('Edit'); - if ($group ne '') { - $edittext = &mt('Edit Group Homepage'); - } - $r->print(''.$edittext.''); - if ($group ne '') { - if ($group_edit_perm) { - $r->print('   '. - ''. - &mt('Edit Group Settings').''); - } - } - } if (($env{'form.uploaddoc.filename'} and $target ne 'tex') && - ($env{'form.storeupl'}) && ($allowed)) { - if ($env{'form.uploaddoc.filename'}=~/\.(gif|jpg|png|jpeg)$/i) { - if ($syllabus{'uploaded.photourl'}) { - &Apache::lonnet::removeuploadedurl($syllabus{'uploaded.photourl'}); - } + ($env{'form.storeupl'}) && ($allowed)) { + if ($env{'form.uploaddoc.filename'}=~/\.(gif|jpg|png|jpeg)$/i) { + if ($syllabus{'uploaded.photourl'}) { + &Apache::lonnet::removeuploadedurl($syllabus{'uploaded.photourl'}); + } if ($group ne '') { $syllabus{'uploaded.photourl'}=&Apache::lonnet::userfileupload( 'uploaddoc',1,"grouppage/$group"); } else { - $syllabus{'uploaded.photourl'}= - &Apache::lonnet::userfileupload('uploaddoc',1,'simplepage'); + $syllabus{'uploaded.photourl'}= + &Apache::lonnet::userfileupload('uploaddoc',1,'simplepage'); } - } - $syllabus{'uploaded.lastmodified'}=time; - &Apache::lonnet::put($db_name,\%syllabus,$dom,$crs); + } + $syllabus{'uploaded.lastmodified'}=time; + &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'})) { - foreach my $syl_field (keys(%syllabusfields)) { - my $field=$env{'form.'.$syl_field}; - chomp($field); - $field=~s/\s+$//s; - $field=~s/^\s+//s; - $field=~s/\$//s; - $field=&Apache::lonfeedback::clear_out_html($field,1); - $syllabus{$syl_field}=$field; - } - $syllabus{'uploaded.lastmodified'}=time; - &Apache::lonnet::put($db_name,\%syllabus,$dom,$crs); + foreach my $syl_field (keys(%syllabusfields)) { + my $field=$env{'form.'.$syl_field}; + chomp($field); + $field=~s/\s+$//s; + $field=~s/^\s+//s; + $field=~s/\$//s; + $field=&Apache::lonfeedback::clear_out_html($field,1); + $syllabus{$syl_field}=$field; + } + $syllabus{'uploaded.lastmodified'}=time; + &Apache::lonnet::put($db_name,\%syllabus,$dom,$crs); + } + +#---Print Function + if ($target ne 'tex') { + if ($allowed || $privileged) { + my $functions=&Apache::lonhtmlcommon::start_funclist(); + if ($allowed) { + $functions.=&Apache::lonhtmlcommon::add_item_funclist( + '' + .&mt('Show Student View').'' + .&Apache::loncommon::help_open_topic( + 'Uploaded_Templates_PublicView')); + } elsif ($privileged) { + my $edittext = &mt('Edit'); + if ($group ne '') { + $edittext = &mt('Edit Group Homepage'); + } + $functions.=&Apache::lonhtmlcommon::add_item_funclist( + '' + .$edittext.''); + if ($group ne '') { + if ($group_edit_perm) { + $functions.=&Apache::lonhtmlcommon::add_item_funclist( + '' + .&mt('Edit Group Settings') + .''); + } + } + } + $functions.=&Apache::lonhtmlcommon::end_funclist(); + $r->print(&Apache::loncommon::head_subbox($functions)); + } + } + +#---Print help Text + if($target ne 'tex'){ + if ($allowed) { + $r->print(&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes'))); + } } # ---------------------------------------------------------------- Get syllabus - if ((($syllabus{'uploaded.lastmodified'}) && - (($group ne '' && ($group_home_view || $group_edit_perm || + if ((($syllabus{'uploaded.lastmodified'}) && + (($group ne '' && ($group_home_view || $group_edit_perm || $group_view_perm)) || ($group eq ''))) || ($allowed)) { - if ($syllabus{'uploaded.photourl'}) { - &Apache::lonnet::allowuploaded('/adm/smppg', - $syllabus{'uploaded.photourl'}); - - my $image=''; - if ($target eq 'tex') { - $image=&Apache::lonxml::xmlparse($r,'tex',$image); - } - $r->print($image); - } - if ($allowed) { - $r->print( - '
'. - ''. - '

Upload a Photo

'. - ''. - ''. - '
'); - } - foreach my $field (sort(keys(%syllabusfields))) { - if (($syllabus{$field}) || ($allowed) || + #Print the title + my $titletext=$syllabus{'aaa_title'}; + if ($target ne 'tex') { + if ($allowed) { + $r->print('

'); + } + $r->print('

'.$titletext.'

'); + } else { + my $safeinit; + $r->print(&Apache::lonxml::xmlparse($r,'tex','

'.$titletext.'

')); + } + if ($allowed) { + if ($env{'form.grade_target'} ne 'tex') { + #editbox for title + $r->print(''); + &Apache::lontemplate::print_template($r, &mt('Title'), $titletext, $allowed, 'LC_Box'); + &Apache::lontemplate::print_editbox_template($r,$syllabus{'aaa_title'},'aaa_title'); + $r->print('

'); + } 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=''.&mt('Image').''; + if ($target eq 'tex') { + $image=&Apache::lonxml::xmlparse($r,'tex',$image); + } + } + + if ($allowed) { + $r->print( + ''. + '

'.&mt('Upload a Photo').'

'. + ''. + ''. + ''); +# if ($syllabus{'uploaded.photourl'}) { +# $r->print(''); +# } + } + if ($allowed) { + $r->print($image.'
 
'); + } + if (!$allowed) {$r->print($image); } + + foreach my $field (sort(keys(%syllabusfields))) { + if (($syllabus{$field}) || ($allowed) || ($field eq 'abb_links' && $group ne '')) { - my $message=$syllabus{$field}; - &Apache::lonfeedback::newline_to_br(\$message); - $message - =~s/(https*\:\/\/[^\s]+)/\\$1\<\/tt\>\<\/a\>/g; - if ($allowed) { - $message=&Apache::lonspeller::markeduptext($message); - } - $message=&Apache::lontexconvert::msgtexconverted($message); + my $message=$syllabus{$field}; + if (!&Apache::lonfeedback::contains_block_html($message)) { + &Apache::lonfeedback::newline_to_br(\$message); + } + $message=~s/(https*\:\/\/[^\s]+)/\\$1\<\/tt\>\<\/a\>/g; + if ($allowed) { + $message=&Apache::lonspeller::markeduptext($message); + } + if ($target ne 'tex') { + $message=&Apache::lontexconvert::msgtexconverted($message); + } if ($field eq 'abb_links' && $group ne '') { $r->print('
'); &display_group_links($r,$target,$group,'edit',$refarg, - %groupinfo); + %groupinfo); $r->print('
'); } elsif ($field eq 'aaa_title') { + next; + } else { if ($target ne 'tex') { - $r->print('

'.$message.'

'); + if ($allowed) { + $r->print('

'); + } + &Apache::lontemplate::print_template($r,$syllabusfields{$field},$message,$allowed,'LC_Box'); } else { my $safeinit; - $r->print(&Apache::lonxml::xmlparse($r,'tex','

'.$message.'

')); + $r->print(&Apache::lonxml::xmlparse($r,'tex','

'.$syllabusfields{$field}.'

')); + $r->print(&Apache::lonxml::xmlparse($r,'tex',$message)); } if ($allowed) { - if ($env{'form.grade_target'} ne 'tex') { - $r->print( - '
Title
'); + if ($target ne 'tex') { + &Apache::lontemplate::print_editbox_template($r,$syllabus{$field},$field); + $r->print('

'); } else { my $safeinit; $r->print(&Apache::lonxml::xmlparse($r,'tex',$syllabus{$field},$safeinit)); } } - } else { - if (($field ne 'bbb_content') || ($allowed)) { - if ($target ne 'tex') { - $r->print('

'.$syllabusfields{$field}.'

'); - } else { - my $safeinit; - $r->print(&Apache::lonxml::xmlparse($r,'tex','

'.$syllabusfields{$field}.'

')); - } - } - if ($target ne 'tex') { - $r->print('
'. - $message.'
'); - } else { - my $safeinit; - $r->print(&Apache::lonxml::xmlparse($r,'tex',$message)); - } - if ($allowed) { - if ($target ne 'tex') { - $r->print('
'); - } else { - my $safeinit; - $r->print(&Apache::lonxml::xmlparse($r,'tex',$syllabus{$field},$safeinit)); - } - } - } - } - } - if ($allowed && ($env{'form.grade_target'} ne 'tex')) { - $r->print(&Apache::lonhtmlcommon::htmlareaselectactive - ('bbb_content').''); - } - if ($env{'form.grade_target'} ne 'tex') {$r->print('

');} + } + } + } + if ($allowed && ($env{'form.grade_target'} ne 'tex')) { + $r->print(&Apache::lonhtmlcommon::htmlareaselectactive + ('bbb_content').''); + } + if ($env{'form.grade_target'} ne 'tex') {$r->print('

');} + } else { if ($group ne '') { &display_group_links($r,$target,$group,'view',$refarg,%groupinfo); } else { - $r->print(&mt('

No page information provided.

')); + my $text=&mt('No page information provided.'); + if ($target ne 'tex') { + $r->print('

'.$text.'

'); + } else { + $r->print($text) + } } } if ($env{'form.grade_target'} ne 'tex') { - $r->print(&Apache::loncommon::end_page()); + $r->print(&Apache::loncommon::end_page()); } else { - $r->print('\end{document}'); + $r->print('\end{document}'); } return OK; } @@ -377,7 +429,7 @@ sub display_group_links { my @available = (); my %menu = (); %{$menu{'email'}} = ( - text => 'Group e-mail', + text => 'Group Message', href => '/adm/email?compose=group&group='.$group. $refarg, ); @@ -386,16 +438,16 @@ sub display_group_links { href => '/adm/groupboards?group='.$group.$refarg, ); %{$menu{'chat'}} = ( - text => 'Group chat', + text => 'Group Chat Room', href => "javascript:group_chat('$group')", ); %{$menu{'files'}} = ( - text => 'File repository', + text => 'Group Portfolio', href => '/adm/coursegrp_portfolio?group='.$group. $refarg, ); %{$menu{'roster'}} = ( - text => 'Membership roster', + text => 'Membership Roster', href => '/adm/grouproster?group='.$group.$refarg, ); foreach my $tool (sort(keys(%menu))) { @@ -404,16 +456,27 @@ sub display_group_links { } } if (@available > 0) { - my $output = ''; + my $output = ''; + if ($target eq 'tex') { + $output = '
'; + } else { + $output = &Apache::loncommon::start_data_table(); + } foreach my $tool (@available) { if ($target eq 'tex') { - $output .= ''; + $output .= ''; } else { - $output .= ''; + $output .= &Apache::loncommon::start_data_table_row() + .'' + .&Apache::loncommon::end_data_table_row(); } } - $output .= '
'.&mt($menu{$tool}{text}).'
'.&mt($menu{$tool}{text}).'
'. - $menu{$tool}{text}.'' + .&mt($menu{$tool}{text}).'
'; + if ($target eq 'tex') { + $output .= ''; + } else { + $output .= &Apache::loncommon::end_data_table(); + } if ($target eq 'tex') { $r->print(&Apache::lonxml::xmlparse($r,'tex',&mt('Available functions').'

'.$output)); } else { @@ -423,8 +486,8 @@ sub display_group_links { my $output; if ($context eq 'edit') { $output = &mt('No group functionality.'); - } else { - $output = &mt('No group functionality (e.g., e-mail, discussion, chat or file upload) is currently available to you in this group: [_1].',&unescape($groupinfo{'description'})); + } 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].',''.&unescape($groupinfo{'description'}).''); } if ($target eq 'tex') { $r->print(&Apache::lonxml::xmlparse($r,'tex',$output)); @@ -442,7 +505,7 @@ sub grouppage_breadcrumbs { text=>"Groups", title=>"Display Groups"}, {href=>"/adm/$cdom/$cnum/$group/smppg?ref=grouplist", - text=>"Group: $description", + text=>&mt('Group:')." $description", title=>"Go to group's home page"}, ); my $output .= &Apache::lonhtmlcommon::breadcrumbs(&mt('Group page - [_1]', 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.