Attachment #62204 for bug #14224

View | Details | Raw Unified | Return to bug 14224
Collapse All | Expand All





use Modern::Perl;

use JSON qw( to_json );
use C4::Service;
use C4::Auth qw /check_cookie_auth/;
use C4::Letters;

            $status = "fail";
        }

        my $json = to_json ( { status => $status, note => $clean_note, issue_id => $issue_id } );
        output_with_http_headers($query, undef, $json, 'json');
        exit;
    } # END Issue Note
}
- 

Return to bug 14224

Lines 19-24 Link Here

(-)a/opac/svc/patron_notes (-3 / +3 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
		22	use JSON qw( to_json );
22	use C4::Service;	23	use C4::Service;
23	use C4::Auth qw /check_cookie_auth/;	24	use C4::Auth qw /check_cookie_auth/;
24	use C4::Letters;	25	use C4::Letters;
Lines 96-103 if ($is_ajax) { Link Here
96	$status = "fail";	97	$status = "fail";
97	}	98	}
98		99
99	my $response = "{\"status\": \"$status\", \"note\": \"$clean_note\", \"issue_id\": \"$issue_id\"}";	100	my $json = to_json ( { status => $status, note => $clean_note, issue_id => $issue_id } );
100	output_with_http_headers($query, undef, $response, 'js');	101	output_with_http_headers($query, undef, $json, 'json');
101	exit;	102	exit;
102	} # END Issue Note	103	} # END Issue Note
103	}	104	}
104	-