sub updateMedia {

        my $self=shift;
        my $q = $self->query();
        my $dbh = $self->param('mydbh');

        my $scripturl = $q->url();
        my $scripthome = $q->script_name();

        # From HTML form

        my $media_desc = $q->param('txtMediaDesc');
        my $media_code = $q->param('media_code');

        # SQL Update 

        my $media_desc_quoted = $dbh->quote( $media_desc );
        my $media_code_quoted = $dbh->quote( $media_code );

        my $sql = qq{UPDATE Media  SET media_desc=$media_desc_quoted
                     WHERE media_code=$media_code_quoted};

        my $sth = $dbh->prepare($sql);
        $sth->execute();

        # Redirect back to start

        $self->header_type('redirect');
        $self->header_props(-url=>$scripthome."?rm=editMedia&media_code=".$media_code);
        return;