');
+ &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').
+ &Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes'))
+ .'
');
} elsif ($privileged and $target ne 'tex') {
my $edittext = &mt('Edit');
if ($group ne '') {
@@ -252,6 +253,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 +278,17 @@ 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='';
if ($target eq 'tex') {
$image=&Apache::lonxml::xmlparse($r,'tex',$image);
- }
- $r->print($image);
- }
+ }
+ }
if ($allowed) {
$r->print(
'');
}
+ &Apache::lontemplate::start_columnSection($r);
+ if($allowed){
+ $r->print($image.'
');
+ }
+ &Apache::lontemplate::start_ContentBox($r,$allowed);
foreach my $field (sort(keys(%syllabusfields))) {
if (($syllabus{$field}) || ($allowed) ||
($field eq 'abb_links' && $group ne '')) {
@@ -312,6 +326,9 @@ sub handler {
$r->print(' ');
} elsif ($field eq 'aaa_title') {
if ($target ne 'tex') {
+ if($allowed){
+ $r->print('
');
+ }
$r->print('
'.$message.'
');
} else {
my $safeinit;
@@ -319,36 +336,29 @@ sub handler {
}
if ($allowed) {
if ($env{'form.grade_target'} ne 'tex') {
- $r->print(
- '
'.&mt('Title').'
');
+ $r->print('
'.&mt('Title').'
');
+ &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('