--- loncom/interface/portfolio.pm 2010/10/29 23:22:43 1.229 +++ loncom/interface/portfolio.pm 2010/11/11 23:58:05 1.230 @@ -1,7 +1,7 @@ # The LearningOnline Network # portfolio browser # -# $Id: portfolio.pm,v 1.229 2010/10/29 23:22:43 raeburn Exp $ +# $Id: portfolio.pm,v 1.230 2010/11/11 23:58:05 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1998,44 +1998,56 @@ sub upload { conf => 'Are you sure you want to overwrite an existing file?', cont => 'Continue', ); + my $parserflag; + my $hidden = &hidden_elems(); + if ($mode eq 'parse') { + $parserflag = ''; + } $r->print(<<"END"); $msg -
+
$lt{'over'} - + - - - - +$hidden +$parserflag $group_elem

@@ -2061,6 +2073,20 @@ END } } +sub hidden_elems { + my $contelem; + if ($env{'form.mode'} eq 'selectfile') { + $contelem = ''; + } + return < + + + +$contelem +END +} + sub print_dependency_form { my ($r,$url,$allfiles,$codebase) = @_; my $state = <print(''.&mt('An error occurred ([_1]) while trying to overwrite [_2].' ,$result,&display_file(undef,$fname)).'
'); - $r->print(&done('Back',$url)); + $r->print(&after_overwrite(&mt('Back'),$url)); } else { if (%allfiles) { if (!&suppress_embed_prompt()) { &print_dependency_form($r,$url,\%allfiles,\%codebase); } else { - $r->print(&done(undef,$url)); + $r->print(&after_overwrite(undef,$url)); } } else { - $r->print(&done(undef,$url)); + $r->print(&after_overwrite(undef,$url)); } } return; } +sub after_overwrite { + my ($text,$url) = @_; + my $group_elem; + if (defined($env{'form.group'})) { + $group_elem = ''; + if (defined($env{'form.ref'})) { + $group_elem .= ''."\n"; + } + } + if ($text eq '') { + $text = &mt('Done'); + } + my $hidden = &hidden_elems(); + return <$text + +$hidden +$group_elem + +END +} + sub lock_info { my ($r,$url,$group) = @_; my ($uname,$udom) = &get_name_dom($group);