version 1.225, 2009/01/27 15:59:30
|
version 1.229, 2009/04/04 20:06:37
|
Line 432 sub prettyprint {
|
Line 432 sub prettyprint {
|
} |
} |
# Title |
# Title |
if ($type eq 'title') { |
if ($type eq 'title') { |
return '<font size="+1" face="arial">'.$value.'</font>'; |
return $value; |
} |
} |
# Dates |
# Dates |
if (($type eq 'creationdate') || |
if (($type eq 'creationdate') || |
Line 482 sub prettyprint {
|
Line 482 sub prettyprint {
|
($type eq 'comefrom_list') || |
($type eq 'comefrom_list') || |
($type eq 'sequsage_list') || |
($type eq 'sequsage_list') || |
($type eq 'dependencies')) { |
($type eq 'dependencies')) { |
return '<font size="-1"><ul>'.join("\n",map { |
return '<ul class="LC_fontsize_medium">'.join("\n",map { |
my $url = &Apache::lonnet::clutter_with_no_wrapper($_); |
my $url = &Apache::lonnet::clutter_with_no_wrapper($_); |
my $title = &Apache::lonnet::gettitle($url); |
my $title = &Apache::lonnet::gettitle($url); |
if ($title eq '') { |
if ($title eq '') { |
Line 500 sub prettyprint {
|
Line 500 sub prettyprint {
|
} |
} |
} |
} |
$_ = '<li>'.$title.' '. |
$_ = '<li>'.$title.' '. |
&Apache::lonhtmlcommon::crumbs($url,$target,$prefix,$form,'-1',$noformat). |
&Apache::lonhtmlcommon::crumbs($url,$target,$prefix,$form,'0',$noformat). |
'</li>' |
'</li>' |
} split(/\s*\,\s*/,$value)).'</ul></font>'; |
} split(/\s*\,\s*/,$value)).'</ul>'; |
} |
} |
# Evaluations |
# Evaluations |
if (($type eq 'clear') || |
if (($type eq 'clear') || |
Line 519 sub prettyprint {
|
Line 519 sub prettyprint {
|
# List of courses |
# List of courses |
if ($type=~/\_list/) { |
if ($type=~/\_list/) { |
my @Courses = split(/\s*\,\s*/,$value); |
my @Courses = split(/\s*\,\s*/,$value); |
my $Str='<font size="-1"><ul>'; |
my $Str='<ul class="LC_fontsize_medium">'; |
my %descriptions; |
my %descriptions; |
foreach my $course (@Courses) { |
foreach my $course (@Courses) { |
my %courseinfo = |
my %courseinfo = |
Line 538 sub prettyprint {
|
Line 538 sub prettyprint {
|
$Str .= $descriptions{$course}; |
$Str .= $descriptions{$course}; |
} |
} |
|
|
return $Str.'</ul></font>'; |
return $Str.'</ul>'; |
} |
} |
# No pretty print found |
# No pretty print found |
return $value; |
return $value; |
Line 558 sub selectbox {
|
Line 558 sub selectbox {
|
foreach my $id (@idlist) { |
foreach my $id (@idlist) { |
$selout.='<option value="'.$id.'"'; |
$selout.='<option value="'.$id.'"'; |
if ($id eq $value) { |
if ($id eq $value) { |
$selout.=' selected>'.&{$functionref}($id).'</option>'; |
$selout.=' selected="selected">'.&{$functionref}($id).'</option>'; |
} else { |
} else { |
$selout.='>'.&{$functionref}($id).'</option>'; |
$selout.='>'.&{$functionref}($id).'</option>'; |
} |
} |
Line 578 sub relatedfield {
|
Line 578 sub relatedfield {
|
return $relatedsep.' '; |
return $relatedsep.' '; |
} |
} |
return $relatedsep.'<input type="checkbox" name="'.$fieldname.'_related"'. |
return $relatedsep.'<input type="checkbox" name="'.$fieldname.'_related"'. |
($relatedvalue?' checked="1"':'').' />'; |
($relatedvalue?' checked="checked"':'').' />'; |
} |
} |
|
|
sub prettyinput { |
sub prettyinput { |
Line 691 sub prettyinput {
|
Line 691 sub prettyinput {
|
# Obsolete |
# Obsolete |
if ($type eq 'obsolete') { |
if ($type eq 'obsolete') { |
return '<input type="checkbox" name="'.$fieldname.'"'. |
return '<input type="checkbox" name="'.$fieldname.'"'. |
($value?' checked="1"':'').' />'. |
($value?' checked="checked"':'').' />'. |
&relatedfield(0,$relatedsearchflag,$relatedsep); |
&relatedfield(0,$relatedsearchflag,$relatedsep); |
} |
} |
# Obsolete replacement file |
# Obsolete replacement file |
Line 1467 sub store_metadata {
|
Line 1467 sub store_metadata {
|
$output .= $result; |
$output .= $result; |
} else { |
} else { |
if (! ($mfh=Apache::File->new('>'.$fn))) { |
if (! ($mfh=Apache::File->new('>'.$fn))) { |
$output .= '<p><font color="red">'; |
$output .= '<p class="LC_error">'; |
if ($caller eq 'transfer') { |
if ($caller eq 'transfer') { |
$output .= &mt('Could not transfer data in added fields to notes'); |
$output .= &mt('Could not transfer data in added fields to notes'); |
} else { |
} else { |
$output .= &mt('Could not write metadata'); |
$output .= &mt('Could not write metadata'); |
} |
} |
$output .= ', '.&mt('FAIL').'</font></p>'; |
$output .= ', '.&mt('FAIL').'</p>'; |
$outcome = 'fail'; |
$outcome = 'fail'; |
} else { |
} else { |
print $mfh ($file_content); |
print $mfh ($file_content); |
close($mfh); |
close($mfh); |
&update_metadata_table($uri); |
&update_metadata_table($uri); |
$output .= '<p><font color="blue">'; |
$output .= '<p class="LC_success">'; |
if ($caller eq 'transfer') { |
if ($caller eq 'transfer') { |
$output .= &mt('Transferred data in added fields to notes'); |
$output .= &mt('Transferred data in added fields to notes'); |
} else { |
} else { |
$output .= &mt('Wrote Metadata'); |
$output .= &mt('Wrote Metadata'); |
} |
} |
$output .= ' '.&Apache::lonlocal::locallocaltime(time). |
$output .= ' '.&Apache::lonlocal::locallocaltime(time). |
'</font></p>'; |
'</p>'; |
$outcome = 'ok'; |
$outcome = 'ok'; |
} |
} |
} |
} |
Line 1514 sub store_portfolio_metadata {
|
Line 1514 sub store_portfolio_metadata {
|
$env{'form.'.$formname.'.filename'}=$new_fn; |
$env{'form.'.$formname.'.filename'}=$new_fn; |
my $result =&Apache::lonnet::userfileupload($formname,'',$path); |
my $result =&Apache::lonnet::userfileupload($formname,'',$path); |
if ($result =~ /(error|notfound)/) { |
if ($result =~ /(error|notfound)/) { |
$output = '<p><font color="red">'; |
$output = '<p class="LC_error">'; |
if ($caller eq 'transfer') { |
if ($caller eq 'transfer') { |
$output .= |
$output .= |
&mt('Could not transfer data in added fields to notes'); |
&mt('Could not transfer data in added fields to notes'); |
} else { |
} else { |
$output .= &mt('Could not write metadata'); |
$output .= &mt('Could not write metadata'); |
} |
} |
$output .= ', '.&mt('FAIL').'</font></p>'; |
$output .= ', '.&mt('FAIL').'</p>'; |
$outcome = 'fail'; |
$outcome = 'fail'; |
} else { |
} else { |
&update_metadata_table($uri); |
&update_metadata_table($uri); |
$output = '<p><font color="blue">'; |
$output = '<p class="LC_success">'; |
if ($caller eq 'transfer') { |
if ($caller eq 'transfer') { |
$output .= &mt('Transferred data in added fields to notes'); |
$output .= &mt('Transferred data in added fields to notes'); |
} else { |
} else { |
$output .= &mt('Wrote Metadata'); |
$output .= &mt('Wrote Metadata'); |
} |
} |
$output .= ' '.&Apache::lonlocal::locallocaltime(time). |
$output .= ' '.&Apache::lonlocal::locallocaltime(time). |
'</font></p>'; |
'</p>'; |
$outcome = 'ok'; |
$outcome = 'ok'; |
} |
} |
return ($outcome,$output); |
return ($outcome,$output); |