--- loncom/interface/lonsimplepage.pm	2010/02/13 00:51:06	1.59.2.2
+++ loncom/interface/lonsimplepage.pm	2009/02/19 17:32:39	1.67
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Simple Page Editor
 #
-# $Id: lonsimplepage.pm,v 1.59.2.2 2010/02/13 00:51:06 raeburn Exp $
+# $Id: lonsimplepage.pm,v 1.67 2009/02/19 17:32:39 neumanie 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;
@@ -140,7 +141,7 @@ sub handler {
     if ($target ne 'tex') {
         my $title = 'Simple Course Page';
         if ($group ne '') {
-            $title = 'Group Page';
+            $title = 'Simple Group Page';
         }
 	my $start_page = 
 	    &Apache::loncommon::start_page($title,undef,
@@ -215,25 +216,7 @@ sub handler {
     if ($forcestudent or $target eq 'tex') { $allowed=0; }
 
     if ($allowed) {
-	$r->print('<p>'.
-		  &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>'.
-		  &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'</p>');
-    } elsif ($privileged and $target ne 'tex') {
-        my $edittext = &mt('Edit');
-        if ($group ne '') {
-            $edittext = &mt('Edit Group Homepage');
-        }
-	$r->print('<a href="'.$r->uri.'?forceedit=edit'.$refarg.'"><font size="+1">'.$edittext.'</font></a>');
-        if ($group ne '') {
-            if ($group_edit_perm) {
-                $r->print('&nbsp;&nbsp;&nbsp;<font size="+1">'.
-               '<a href="/adm/coursegroups?action=modify&amp;refpage=grouplist'.
-               '&amp;state=pick_task&amp;groupname='.$group.'">'.
-               &mt('Edit Group Settings').'</a></font>');
-            }
-        }    
+	$r->print('<p>'.&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes')) .'</p>');             
     } 
     if (($env{'form.uploaddoc.filename'} and $target ne 'tex') &&
 	($env{'form.storeupl'}) && ($allowed)) {
@@ -252,6 +235,13 @@ sub handler {
 	$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};
@@ -270,17 +260,39 @@ sub handler {
     if ((($syllabus{'uploaded.lastmodified'}) && 
          (($group ne '' && ($group_home_view || $group_edit_perm ||  
            $group_view_perm)) || ($group eq ''))) || ($allowed)) {
+	my $image;
 	if ($syllabus{'uploaded.photourl'}) {
 	    &Apache::lonnet::allowuploaded('/adm/smppg',
 					   $syllabus{'uploaded.photourl'});
 	    
-	    my $image='<img src="'.$syllabus{'uploaded.photourl'}.'"
-                            align="right" />';
+	    $image='<img src="'.$syllabus{'uploaded.photourl'}.'"
+                            />';
 	    if ($target eq 'tex') {
 		$image=&Apache::lonxml::xmlparse($r,'tex',$image);
-	    }
-	    $r->print($image);
-	}
+            }
+        }
+	if ($target ne 'tex') {
+		&Apache::lontemplate::print_start_page_functions($r);
+		if($allowed){
+			&Apache::lontemplate::print_functions_content($r,'<a href="'.$r->uri.'?forcestudent=1">'.&mt('Show Student View').'</a>'.
+          											&Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView'));	      		
+		}elsif($privileged){
+			my $edittext = &mt('Edit');
+       		 	if ($group ne '') {
+            			$edittext = &mt('Edit Group Homepage');
+        		}
+			&Apache::lontemplate::print_functions_content($r,'<a href="'.$r->uri.'?forceedit=edit'.$refarg.'"><font size="+1">'.$edittext.'</font></a>');
+        		if ($group ne '') {
+            			if ($group_edit_perm) {
+               				 &Apache::lontemplate::print_functions_content($r,'&nbsp;&nbsp;&nbsp;<font size="+1">'.
+               				'<a href="/adm/coursegroups?action=modify&amp;refpage=grouplist'.
+               				'&amp;state=pick_task&amp;groupname='.$group.'">'.
+               				&mt('Edit Group Settings').'</a></font>');
+           			}
+      	 	 	}		    
+		}
+		&Apache::lontemplate::print_end_page_functions($r);
+	  }	
 	if ($allowed) {
 	    $r->print(
 		      '<form method="post" enctype="multipart/form-data">'.
@@ -289,15 +301,18 @@ sub handler {
 		      '<input type="file" name="uploaddoc" size="50" />'.
 		      '<input type="submit" name="storeupl" value="'.&mt('Upload').'" />'.
 		      '</form><form method="post">'.
-                      '<input type="hidden" name="forceedit" value="edit" />');
-	}
+                      '<input type="hidden" name="forceedit" value="edit" />'.
+		      '<form method="post"><input type="submit" name="delupl" value="'.&mt('Delete Photo').'" />' );
+	}	
+	if($allowed){
+                $r->print($image.'<div class="clear">&nbsp;</div>');
+       }
+	
 	foreach my $field (sort(keys(%syllabusfields))) {
 	    if (($syllabus{$field}) || ($allowed) || 
                 ($field eq 'abb_links' && $group ne '')) {
 		my $message=$syllabus{$field};
-                if (!&Apache::lonfeedback::contains_block_html($message)) {
-                    &Apache::lonfeedback::newline_to_br(\$message);
-                }
+		&Apache::lonfeedback::newline_to_br(\$message);
 		$message
 		    =~s/(https*\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g;
 		if ($allowed) {
@@ -314,6 +329,9 @@ sub handler {
                     $r->print('<br />');
                 } elsif ($field eq 'aaa_title') {
                     if ($target ne 'tex') {
+			if($allowed){
+				$r->print('<p>');
+			}
                         $r->print('<h1>'.$message.'</h1>');
                     } else {
                         my $safeinit;
@@ -321,36 +339,29 @@ sub handler {
                     }
                     if ($allowed) {
                         if ($env{'form.grade_target'} ne 'tex') {
-                            $r->print(
-                                      '<br /><h3>'.&mt('Title').'</h3><textarea cols="80" rows="2" name="'.$field.'">'.
-                                      &HTML::Entities::encode($syllabus{$field},'"&<>').
-                                      '</textarea><input type="submit" name="storesyl" value="'.&mt('Save').'" />');
+                            $r->print('<br /><h3>'.&mt('Title').'</h3>');
+			    &Apache::lontemplate::print_editbox_template($r,$syllabus{$field},$field);				
+			    $r->print('</p>');
                         } 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('<h3>'.$syllabusfields{$field}.'</h3>');
-			} else {
-			    my $safeinit;
-			    $r->print(&Apache::lonxml::xmlparse($r,'tex','<h3>'.$syllabusfields{$field}.'</h3>'));
-			}
-		    }
 		    if ($target ne 'tex') {
-			$r->print('<blockquote>'.
-				  $message.'</blockquote>');
+			if($allowed){
+				$r->print('<p>');
+			}	
+			&Apache::lontemplate::print_template($r,$syllabusfields{$field},$message,$allowed,'LC_ContentBoxSpecial');
 		    } else {
 			my $safeinit;
+			$r->print(&Apache::lonxml::xmlparse($r,'tex','<h3>'.$syllabusfields{$field}.'</h3>'));
 			$r->print(&Apache::lonxml::xmlparse($r,'tex',$message));
 		    }
 		    if ($allowed) {
 			if ($target ne 'tex') {
-			    $r->print('<br /><textarea cols="80" rows="24" name="'.$field.'" id="'.$field.'">'.
-                                      &HTML::Entities::encode($syllabus{$field},'"&<>').
-				      '</textarea><input type="submit" name="storesyl" value="'.&mt('Save').'" />');
+			    &Apache::lontemplate::print_editbox_template($r,$syllabus{$field},$field);
+			    $r->print('</p>');
 			} else {
 			    my $safeinit;
 			    $r->print(&Apache::lonxml::xmlparse($r,'tex',$syllabus{$field},$safeinit));
@@ -359,6 +370,10 @@ sub handler {
 		}
 	    }
 	}
+	
+	if(!$allowed){
+		$r->print($image);
+	}	
 	if ($allowed && ($env{'form.grade_target'} ne 'tex')) {
 	    $r->print(&Apache::lonhtmlcommon::htmlareaselectactive
 		      ('bbb_content').'</form>');
@@ -368,7 +383,7 @@ sub handler {
         if ($group ne '') {
             &display_group_links($r,$target,$group,'view',$refarg,%groupinfo);
         } else {
-	    $r->print(&mt('<p>No page information provided.</p>'));
+	    $r->print('<p>'.&mt('No page information provided.').'</p>');
         }
     }
     if ($env{'form.grade_target'} ne 'tex') {
@@ -393,11 +408,11 @@ sub display_group_links {
                         href => '/adm/groupboards?group='.$group.$refarg,
                       );
     %{$menu{'chat'}} = (
-                        text => 'Group Chat Room',
+                        text => 'Group Chat',
                         href => "javascript:group_chat('$group')",
                       );
     %{$menu{'files'}} = (
-                        text => 'Group Portfolio',
+                        text => 'File Repository',
                         href => '/adm/coursegrp_portfolio?group='.$group.
                                 $refarg,
                       );
@@ -442,7 +457,7 @@ sub display_group_links {
         if ($context eq 'edit') {
             $output = &mt('No group functionality.');
         } 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') {
             $r->print(&Apache::lonxml::xmlparse($r,'tex',$output));
@@ -461,11 +476,10 @@ sub grouppage_breadcrumbs {
           title=>"Display Groups"},
         {href=>"/adm/$cdom/$cnum/$group/smppg?ref=grouplist",
           text=>&mt('Group:')." $description",
-          title=>&mt("Go to group's home page"),
-          no_mt=>1,},
+          title=>"Go to group's home page"},
         );
     my $output .= &Apache::lonhtmlcommon::breadcrumbs(&mt('Group page - [_1]',
-                      $description),undef,undef,undef,undef,1);
+                                                           $description));
     return $output;
 }